blob: aae8ea59b25cae36979f81f3601ce6f23eaad66f (
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
|
--
-- File: Aspect_LineStyle.cdl
-- Created: Mardi 7 Septembre 1993
-- Author: GG
-- Updated: JLF (Reason LineStyle MUST be given in METER ) 2 Mars 94
--
---Copyright: MatraDatavision 1991-1993
--
class LineStyle from Aspect
---Version:
---Purpose: This class allows the definition of a Line Style.
-- The Style can be Predefined or defined by the user
---Keywords: LineStyle
---Warning:
---References:
uses
TypeOfLine from Aspect,
Array1OfLength from TColQuantity,
HArray1OfLength from TColQuantity
raises
LineStyleDefinitionError from Aspect
is
Create
returns LineStyle from Aspect
---Level: Public
---Purpose: Creates a line style with the default value of
-- LineStyle type : SOLID
--
raises LineStyleDefinitionError from Aspect;
-- if the maximum number of line style is exceeded
Create ( Type : TypeOfLine from Aspect )
returns LineStyle from Aspect ;
---Level: Public
---Purpose: Creates the line style <Type>.
Create ( Style : Array1OfLength from TColQuantity )
returns LineStyle from Aspect
---Level: Public
---Purpose: Creates a line style from METER Float style descriptor .
-- Style Descriptor is :
-- Each Odd float described the Drawn part of the style .
-- Each Even float described the Hidden part of the style .
-- (e.g) [0.010,0.002,0.005,0.004]
-- Draw 10 MM ,Move 2 MM,Draw 5 MM ..
raises LineStyleDefinitionError from Aspect;
-- if the METER float values are <= 0.
---------------------------------------------------
-- Category: Methods to modify the class definition
---------------------------------------------------
Assign ( me : in out ;
Other : LineStyle from Aspect )
returns LineStyle from Aspect is static;
---Level: Public
---Purpose: Updates the line style <me> from the definition of the
-- line style <Other>.
---Category: Methods to modify the class definition
---C++: alias operator =
---C++: return &
SetValues ( me : in out ;
Type : TypeOfLine from Aspect ) is static;
---Level: Public
---Purpose: Updates the line style <me> from the definition of the
-- line style <Type>.
---Category: Methods to modify the class definition
SetValues ( me : in out ;
Style : Array1OfLength from TColQuantity )
---Level: Public
---Purpose: Updates a line style with the new Float descriptor
raises LineStyleDefinitionError from Aspect is static;
-- if the METER float values are <= 0.
---Category: Methods to modify the class definition
----------------------------
-- Category: Inquire methods
----------------------------
Style ( me )
returns TypeOfLine from Aspect is static;
---Level: Public
---Purpose: Returns the type of the line style <me>
---Category: Inquire methods
Length ( me )
returns Integer from Standard is static;
---Level: Public
---Purpose: Returns the components length of the line style
---Category: Inquire methods
Values ( me )
returns Array1OfLength from TColQuantity is static;
---Level: Public
---Purpose: Returns the components of a line style
---Category: Inquire methods
---C++: return const &
IsEqual(me; Other : LineStyle from Aspect) returns Boolean;
---C++: alias operator==
IsNotEqual(me; Other : LineStyle from Aspect) returns Boolean;
---C++: alias operator!=
----------------------------
-- Category: Private methods
----------------------------
PredefinedStyle ( me : in out ;
Type : TypeOfLine from Aspect )
---Level: Internal
---Purpose: Set MyLineDescriptor with the predefined style values
-- according of type
---Category: Private methods
returns HArray1OfLength from TColQuantity is static private;
--
fields
--
-- Class : Aspect_LineStyle
--
-- Purpose : Declaration of variables specific to line styles
--
MyLineType : TypeOfLine from Aspect;
MyLineDescriptor : HArray1OfLength from TColQuantity;
end LineStyle;
|
