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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
--
-- File: Aspect_MarkerStyle.cdl
-- Created: Vendredi 13 Janvier 1995
-- Author: GG
--
---Copyright: MatraDatavision 1991-1993
--
class MarkerStyle from Aspect
---Version:
---Purpose: This class defines a Marker Style.
-- The Style can be Predefined or defined by the user
-- A user defined style must be described in the space <-1,+1>
---Keywords: MarkerStyle
---Warning:
---References:
uses
TypeOfMarker from Aspect,
Array1OfReal from TColStd,
Array1OfBoolean from TColStd,
HArray1OfBoolean from TColStd,
Array1OfShortReal from TShort,
HArray1OfShortReal from TShort
raises
MarkerStyleDefinitionError from Aspect
is
Create returns MarkerStyle from Aspect;
---Level: Public
---Purpose: Creates a marker style with the default value of
-- MarkerStyle type : POINT
--
Create ( aType : TypeOfMarker ) returns MarkerStyle from Aspect ;
---Level: Public
---Purpose: Creates the marker style <aType>.
Create ( aXpoint : Array1OfReal ;
aYpoint : Array1OfReal )
returns MarkerStyle from Aspect
---Level: Public
---Purpose: Creates a marker style from a implicit draw point
--descriptor .
-- Each coordinate <aXpoint(i),aYpoint(i)> must be defined
--in the space -1,+1.
raises MarkerStyleDefinitionError;
---Trigger:
-- if <aXpoint>,<aYpoint> have different length.
-- if one coordinate is <-1 or >+1.
Create ( aXpoint : Array1OfReal ;
aYpoint : Array1OfReal ;
aSpoint : Array1OfBoolean )
returns MarkerStyle from Aspect
---Level: Public
---Purpose: Creates a marker style from a move-draw point descriptor .
-- Each coordinate <aXpoint(i),aYpoint(i)> must be defined
--in the space -1,+1.
-- Each status point <aSpoint(i)> must be TRUE for drawing
--or FALSE for moving to the last at this point .
raises MarkerStyleDefinitionError;
---Trigger:
-- if <aXpoint>,<aYpoint>,<aSpoint> have different length.
-- if one coordinate is <-1 or >+1
---------------------------------------------------
-- Category: Methods to modify the class definition
---------------------------------------------------
Assign ( me : in out ;
Other : MarkerStyle from Aspect )
returns MarkerStyle from Aspect is static;
---Level: Public
---Purpose: Updates the marker style <me> from the definition of the
-- marker style <Other>.
---Category: Methods to modify the class definition
---C++: alias operator =
---C++: return &
----------------------------
-- Category: Inquire methods
----------------------------
Type ( me ) returns TypeOfMarker is static;
---Level: Public
---Purpose: Returns the type of the marker style <me>
---Category: Inquire methods
Length ( me ) returns Integer is static;
---Level: Public
---Purpose: Returns the components length of the marker descriptors
---Category: Inquire methods
Values ( me ; aRank : Integer ;
aX,aY : out Real ) returns Boolean
---Level: Public
---Purpose: Returns the point and status of a marker style
--descriptor of rank <aRank>.
raises MarkerStyleDefinitionError is static;
---Trigger:
-- If aRank is < 1 or > Length()
---Category: Inquire methods
XValues ( me ) returns Array1OfShortReal is static;
---Level: Public
---Purpose: Returns the X vector of a marker style descriptor
---Category: Inquire methods
---C++: return const &
YValues ( me ) returns Array1OfShortReal is static;
---Level: Public
---Purpose: Returns the Y vector of a marker style descriptor
---Category: Inquire methods
---C++: return const &
SValues ( me ) returns Array1OfBoolean is static;
---Level: Public
---Purpose: Returns the State vector of a marker style descriptor
---Category: Inquire methods
---C++: return const &
IsEqual(me; Other : MarkerStyle from Aspect) returns Boolean;
---C++: alias operator==
IsNotEqual(me; Other : MarkerStyle from Aspect) returns Boolean;
---C++: alias operator!=
----------------------------
-- Category: Private methods
----------------------------
SetPredefinedStyle ( me : in out ) is static private;
---Level: Internal
---Purpose: Set MyMarkerDescriptor with the predefined style values
-- according of current type
---Category: Private methods
--
fields
--
-- Class : Aspect_MarkerStyle
--
-- Purpose : Declaration of variables specific to marker styles
--
MyMarkerType : TypeOfMarker;
MyXpoint : HArray1OfShortReal;
MyYpoint : HArray1OfShortReal;
MySpoint : HArray1OfBoolean;
end MarkerStyle;
|
