blob: ce0216366c0bb1ded3e13b487ae7b7184974cc26 (
plain)
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
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
--
-- File: Aspect_AspectFillArea.cdl
-- Created: Lundi 4 Novembre 1991
-- Author: NW,JPB,CAL
-- Modified: 15/01/98 ; FMN : Ajout Hidden Line
-- 08/01/03 ; SAV : Added method and field to control back face interior
-- color
--
---Copyright: MatraDatavision 1991,1992,1993,1994
--
deferred class AspectFillArea from Aspect
---Purpose: Group of attributes for the FACE primitives.
-- The attributes are:
-- * type of interior
-- * type of hatch
-- * interior colour
-- * border colour
-- * type of border
-- * thickness of border
-- when the value of the group is modified, all graphic
-- objects using this group are modified.
inherits
TShared
uses
Color from Quantity,
HatchStyle from Aspect,
InteriorStyle from Aspect,
TypeOfLine from Aspect
raises
AspectFillAreaDefinitionError from Aspect
is
Initialize;
---Level: Public
---Purpose: Initialise the constructor
-- of Graphic3d_AspectFillArea3d.
--
-- default values :
--
-- InteriorStyle = Aspect_IS_EMPTY;
-- InteriorColor = Quantity_NOC_CYAN1;
-- EdgeColor = Quantity_NOC_WHITE;
-- EdgeType = Aspect_TOL_SOLID;
-- EdgeWidth = 1.0;
-- HatchStyle = Aspect_HS_VERTICAL;
Initialize ( InteriorStyle : InteriorStyle from Aspect;
InteriorColor : Color from Quantity;
EdgeColor : Color from Quantity;
EdgeLineType : TypeOfLine from Aspect;
EdgeLineWidth : Real from Standard )
---Level: Public
---Purpose: Initialise the values for the constructor of
-- Graphic3d_AspectFillArea3d.
--
-- InteriorStyle :
-- IS_EMPTY no interior.
-- IS_HOLLOW display the boundaries of the surface.
-- IS_HATCH display hatched with a hatch style.
-- IS_SOLID display the interior entirely filled.
--
-- EdgeLineType :
-- TOL_SOLID continuous
-- TOL_DASH dashed
-- TOL_DOT dotted
-- TOL_DOTDASH mixed
--
-- default values :
-- HatchStyle = Aspect_HS_VERTICAL;
--
-- Warning: Raises AspectFillAreaDefinitionError if the
-- width is a negative value.
raises AspectFillAreaDefinitionError from Aspect;
---------------------------------------------------
-- Category: Methods to modify the class definition
---------------------------------------------------
SetEdgeColor ( me : mutable;
AColor : Color from Quantity );
---Level: Public
---Purpose: Modifies the colour of the edge of the face
---Category: Methods to modify the class definition
SetEdgeLineType ( me : mutable;
AType : TypeOfLine from Aspect );
---Level: Public
---Purpose: Modifies the edge line type
---Category: Methods to modify the class definition
SetEdgeWidth ( me : mutable;
AWidth : Real from Standard )
---Level: Public
---Purpose: Modifies the edge thickness
--
-- Category: Methods to modify the class definition
--
-- Warning: Raises AspectFillAreaDefinitionError if the
-- width is a negative value.
raises AspectFillAreaDefinitionError from Aspect;
SetHatchStyle ( me : mutable;
AStyle : HatchStyle from Aspect );
---Level: Public
---Purpose: Modifies the hatch type used when InteriorStyle
-- is IS_HATCH
---Category: Methods to modify the class definition
SetInteriorColor ( me : mutable;
AColor : Color from Quantity );
---Level: Public
---Purpose: Modifies the colour of the interior of the face
---Category: Methods to modify the class definition
SetBackInteriorColor( me : mutable; color : Color from Quantity );
---Level: Public
---Purpose: Modifies the colour of the interior of the back face
---Category: Methods to modify the class definition
SetInteriorStyle ( me : mutable;
AStyle : InteriorStyle from Aspect );
---Level: Public
---Purpose: Modifies the interior type used for rendering
--
-- InteriorStyle : IS_EMPTY no interior
-- IS_HOLLOW display the boundaries of the surface
-- IS_HATCH display hatching
-- IS_SOLID display interior entirely filled
--
---Category: Methods to modify the class definition
----------------------------
-- Category: Inquire methods
----------------------------
HatchStyle ( me )
returns HatchStyle from Aspect;
---Level: Public
---Purpose: Returns the hatch type used when InteriorStyle
-- is IS_HATCH
---Category: Inquire methods
Values ( me;
AStyle : out InteriorStyle from Aspect;
AIntColor : out Color from Quantity;
AEdgeColor : out Color from Quantity;
AType : out TypeOfLine from Aspect;
AWidth : out Real from Standard );
Values ( me;
AStyle : out InteriorStyle from Aspect;
AIntColor : out Color from Quantity;
BackIntColor : out Color from Quantity;
AEdgeColor : out Color from Quantity;
AType : out TypeOfLine from Aspect;
AWidth : out Real from Standard );
---Level: Public
---Purpose: Returns the current values of the <me> group.
---Category: Inquire methods
--
fields
--
-- Class : Aspect_AspectFillArea
--
-- Purpose : Declaration of specific variables in the context of
-- drawing faces
--
-- Reminder : The drawing context of a face is defined by:
-- - the interior style and color of the face
-- - the style, color and thickness of the face edge
--
-- the interior
MyInteriorStyle : InteriorStyle from Aspect;
MyInteriorColor : Color from Quantity;
MyBackInteriorColor : Color from Quantity;
-- the edge
MyEdgeColor : Color from Quantity;
MyEdgeType : TypeOfLine from Aspect;
MyEdgeWidth : Real from Standard;
-- the hatch
MyHatchStyle : HatchStyle from Aspect;
end AspectFillArea;
|
