blob: f233e2dffc146df3dc1154d817ee1ec1a5e9b1f1 (
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
|
-- File : Prs2d_AspectLine.cdl
-- Created : February 2000
-- Author : Tanya COOL
---Copyright: Matra Datavision 2000
class AspectLine from Prs2d inherits AspectRoot from Prs2d
---Purpose: defines the attributes when drawing a line presentation
uses
Color from Quantity,
NameOfColor from Quantity,
TypeOfLine from Aspect,
WidthOfLine from Aspect,
TypeOfPolygonFilling from Graphic2d
is
Create returns mutable AspectLine from Prs2d;
---Purpose: default constructor
Create( aColor : NameOfColor from Quantity;
aType : TypeOfLine from Aspect;
aWidth : WidthOfLine from Aspect;
aInterColor : NameOfColor from Quantity = Quantity_NOC_YELLOW;
aTypeFill : TypeOfPolygonFilling from Graphic2d = Graphic2d_TOPF_EMPTY;
aTiled : Integer from Standard = 0;
aDrawEdge : Boolean from Standard = Standard_True )
returns mutable AspectLine from Prs2d;
---Purpose: Initializes the AspectLine defined values
Create( aColor : Color from Quantity;
aType : TypeOfLine from Aspect;
aWidth : WidthOfLine from Aspect;
aInterColor : Color from Quantity;
aTypeFill : TypeOfPolygonFilling from Graphic2d = Graphic2d_TOPF_EMPTY;
aTileInd : Integer from Standard = 0;
aDrawEdge : Boolean from Standard = Standard_True)
returns mutable AspectLine from Prs2d;
---Purpose: Initializes the AspectLine defined values
---------------------------------------------------------------------
---Category: Modifications of the class properties
SetColor( me: mutable; aColor: NameOfColor from Quantity );
---Level: Public
---Purpose: Modifies the Aspect by redefining a color
SetColor( me: mutable; aColor: Color from Quantity );
---Level: Public
---Purpose: Modifies the Aspect by redefining a color
SetType( me: mutable; aType: TypeOfLine from Aspect );
---Level: Public
---Purpose: Modifies the Aspect by redefining a type of line
SetWidth( me: mutable; aWidth: WidthOfLine from Aspect );
---Level: Public
---Purpose: Modifies the Aspect by redefining a width of line
SetInterColor( me: mutable; aColor: NameOfColor from Quantity );
---Level: Public
---Purpose: Modifies the Aspect by redefining a interior color
SetInterColor( me: mutable; aColor: Color from Quantity );
---Level: Public
---Purpose: Modifies the Aspect by redefining a interior color
SetTypeOfFill( me: mutable; aType: TypeOfPolygonFilling from Graphic2d );
---Level: Public
---Purpose: Modifies the Aspect Polygon by redefining its type of polygon filling
SetTile( me: mutable; aTile: Integer from Standard);
---Level: Public
---Purpose: Sets the tile of the Aspect Polygon
SetDrawEdge( me: mutable; aDrawEdge: Boolean from Standard);
---Level: Public
---Purpose: Sets the flag <aDrawEdge>
ValuesOfLine( me;
aColor: out Color from Quantity;
aType: out TypeOfLine from Aspect;
aWidth: out WidthOfLine from Aspect);
---Level: Public
---Purpose: Return the current values of this line
ValuesOfPoly( me;
aColor : out Color from Quantity;
aTypeFill: out TypeOfPolygonFilling from Graphic2d;
aTile : out Integer from Standard;
aDrawEdge: out Boolean from Standard );
---Level: Public
---Purpose: Returns the current values of this closed line
ColorIndex( me ) returns Integer from Standard;
---Level: Internal
---Purpose: Returns current color index according to the color aspect
TypeIndex( me ) returns Integer from Standard;
---Level: Internal
---Purpose: Returns current type index according to the type aspect
WidthIndex( me ) returns Integer from Standard;
---Level: Internal
---Purpose: Returns current width index according to the width aspect
InterColorIndex( me ) returns Integer from Standard;
---Level: Internal
---Purpose: Returns current color index according to the color aspect
SetColorIndex( me: mutable; anInd: Integer from Standard );
---Level: Internal
---Purpose: Sets current color index according to the color aspect
SetTypeIndex( me: mutable; anInd: Integer from Standard );
---Level: Internal
---Purpose: Sets current type index according to the type aspect
SetWidthIndex( me: mutable; anInd: Integer from Standard );
---Level: Internal
---Purpose: Sets current width index according to the width aspect
SetIntColorInd( me: mutable; anInd: Integer from Standard );
---Level: Internal
---Purpose: Sets current color index according to the color aspect
fields
myColor : Color from Quantity;
myType : TypeOfLine from Aspect;
myWidth : WidthOfLine from Aspect;
myInterColor : Color from Quantity;
myFillType : TypeOfPolygonFilling from Graphic2d;
myTile : Integer from Standard;
myDrawEdge : Boolean from Standard;
myColorIndex : Integer from Standard;
myTypeIndex : Integer from Standard;
myWidthIndex : Integer from Standard;
myIntColorInd : Integer from Standard;
end AspectLine from Prs2d;
|