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
|
-- File: Graphic2d_SetOfPolylines.cdl
-- Created: Thu April 13 16:36:51 1993
-- Author: Gerard GRAS
-- <gg@stylox>
---Copyright: Matra Datavision 1993
class SetOfPolylines from Graphic2d inherits Line from Graphic2d
---Version:
---Purpose: The primitive SetOfPolylines
-- Warning: This primitive must be use as possible for to insure
-- that the sets is drawn correctly when the line type or
-- line width attrib is not SOLID and 1 pixel for the set.
-- NOTE: than the method PickedIndex() permits to known
-- the last picked polyline and segment in the set.
---References:
uses
Drawer from Graphic2d,
GraphicObject from Graphic2d,
Length from Quantity,
SequenceOfPolyline from Graphic2d,
FStream from Aspect,
IFStream from Aspect
raises
OutOfRange from Standard
is
-------------------------
-- Category: Constructors
-------------------------
Create (aGraphicObject: GraphicObject from Graphic2d)
returns mutable SetOfPolylines from Graphic2d;
---Level: Public
---Purpose: Creates an empty set of polylines in the graphic
-- object <aGraphicObject>.
---Category: Constructors
Add(me : mutable; X, Y: Length from Quantity;
NewPolyline: Boolean from Standard = Standard_False);
---Level: Public
---Purpose: Add a point in the current polyline of the set
-- or creates a new one when <NewPolyline> flag is TRUE.
---Category: Update method
Add(me : mutable; X1, Y1, X2, Y2: Length from Quantity);
---Level: Public
---Purpose: Add a segment in the set to one of polyline
-- which has the last point identical to one of the segment
-- or creates a new polyline in the sets with the 2 segment points.
-- The first point is <X1>, <Y1>.
-- The second point is <X2>, <Y2>.
---Category: Update method
Length(me) returns Integer from Standard;
---Level: Public
---Purpose: Returns the number of polylines in the set.
---Category: Inquiry method
Length(me; aPrank: Integer from Standard)
returns Integer from Standard
---Level: Public
---Purpose: Returns the number of points of the polylines
-- of rank <aPrank>.
-- Trigger: Raises OutOfRange if <aPrank> is <1 or >Length()
raises OutOfRange from Standard;
---Category: Inquiry method
Values( me; aPrank : Integer from Standard;
aVrank : Integer from Standard;
X,Y : out Length from Quantity)
---Level: Public
---Purpose: Returns the point of rank <aVrank>
-- from the polyline of rank <aPrank>.
-- Trigger: Raises OutOfRange if <aPrank> is <1 or >Length()
-- or if <aVrank> is <1 or >Length(<aPrank>)
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 set of polylines <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 one point of the set <me>
-- is picked, Standard_False if not.
-- Warning: The PickIndex() method returns the rank of the picked
-- polyline point if any under the format :
-- (<aPrank> << 16) | <aVrank>.
----------------------------------------------------------------------
Save( me; aFStream: in out FStream from Aspect ) is virtual;
-- Retrieve( me; aIFStream: in out IFStream from AIS2D ) is virtual;
fields
myPolylines: SequenceOfPolyline from Graphic2d;
end SetOfPolylines from Graphic2d;
|
