1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
-- File: Graphic2d_Polyline.cdl
-- Created: Tue Jun 22 16:36:51 1993
-- Author: Jean Louis FRENKEL, Gerard GRAS
-- <jlf@stylox>
---Copyright: Matra Datavision 1993
class Polyline from Graphic2d inherits Line from Graphic2d
---Version:
---Purpose: The primitive Polyline
---Keywords: Primitive, Polyline
---Warning:
---References:
uses
Length from Quantity,
Drawer from Graphic2d,
Array1OfReal from TColStd,
Array1OfShortReal from TShort,
GraphicObject from Graphic2d,
Array1OfVertex from Graphic2d,
FStream from Aspect,
IFStream from Aspect
raises
PolylineDefinitionError from Graphic2d,
OutOfRange from Standard
is
-------------------------
-- Category: Constructors
-------------------------
Create( aGraphicObject: GraphicObject from Graphic2d;
aListVertex: Array1OfVertex from Graphic2d )
returns mutable Polyline from Graphic2d
---Level: Public
---Purpose: Creates a polyline.
-- Warning: Raises an error if the length of the polyline
-- is less than 2 points.
raises PolylineDefinitionError from Graphic2d;
---Category: Constructors
Create (aGraphicObject: GraphicObject from Graphic2d;
aListX: Array1OfReal from TColStd;
aListY: Array1OfReal from TColStd)
returns mutable Polyline from Graphic2d
---Level: Public
---Purpose: Creates a polyline.
-- Warning: Raises an error if the length of the polyline
-- is less than 2 points or if length of <aListX>
-- is not equal to length of <aListY>.
raises PolylineDefinitionError from Graphic2d;
-------------------------
---Category: Inquire methods
-------------------------
Length(me) returns Integer from Standard;
---Level: Public
---Purpose: Returns the number of points of the line.
---Category: Inquiry method
Values(me; aRank: Integer from Standard;
X,Y: out Length from Quantity)
---Level: Public
---Purpose: Returns the point of rank <aRank> from the line.
---Trigger: Raises OutOfRange if <aRank> is <1 or >Length()
raises OutOfRange from Standard;
---Category: Inquiry method
--------------------------
-- Category: Draw and Pick
--------------------------
Draw( me : mutable; aDrawer: Drawer from Graphic2d)
is static protected;
---Level: Internal
---Purpose: Draws the polyline <me>.
DrawElement( me : mutable; aDrawer: Drawer from Graphic2d;
anIndex: Integer from Standard)
is redefined protected;
---Level: Internal
---Purpose: Draws edge <anIndex> of the polyline <me>.
DrawVertex( me : mutable; aDrawer: Drawer from Graphic2d;
anIndex: Integer from Standard)
is redefined protected;
---Level: Internal
---Purpose: Draws vertex <anIndex> of the polyline <me>.
Pick( me : mutable;
X, Y: ShortReal from Standard;
aPrecision: ShortReal from Standard;
aDrawer: Drawer from Graphic2d)
returns Boolean from Standard
is static protected;
---Level: Internal
---Purpose: Returns Standard_True if the polyline <me> is picked,
-- Standard_False if not.
-- Warning: The method PickIndex() returns the last picked point
-- rank of the line or 0 if picking occurs inside
-- the filled line.
----------------------------------------------------------------------
Save(me; aFStream: in out FStream from Aspect) is virtual;
Retrieve(myclass; anIFStream: in out IFStream from Aspect;
aGraphicObject: GraphicObject from Graphic2d);
fields
myX: Array1OfShortReal from TShort;
myY: Array1OfShortReal from TShort;
end Polyline from Graphic2d;
|