blob: 0ab2d2180bd26a73194afaca19f124bb60855621 (
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
|
--
-- File: Aspect_WidthMapEntry.cdl
-- Created: 09/09/93
-- Author: GG
-- Updated by JLF (Reason : Width MUST be given in METER 2 Mars 94)
--
---Copyright: MatraDatavision 1993
--
class WidthMapEntry from Aspect
---Version: 0.0
---Purpose: This class defines a widthmap entry.
-- A widthmap entry is an association between
-- a LineStyle object and an index in the widthmap.
---Keywords:
---Warning:
---References:
uses
WidthOfLine from Aspect,
Length from Quantity
raises
OutOfRange from Standard,
BadAccess from Aspect
is
Create
returns WidthMapEntry from Aspect;
---Level: Public
---Purpose: Creates an unallocated widthmap entry
Create ( index : Integer from Standard;
style : WidthOfLine from Aspect)
returns WidthMapEntry;
---Level: Public
---Purpose: Creates an allocated widthmap entry from width style
Create ( index : Integer from Standard;
width : Length from Quantity)
returns WidthMapEntry;
---Level: Public
---Purpose: Creates an allocated widthmap entry from width value
Create ( entry : WidthMapEntry from Aspect )
returns WidthMapEntry
---Level: Public
---Purpose: Creates an allocated widthmap entry.
---Warning: Raises error if the widthmap entry <entry>
-- is unallocated.
raises BadAccess from Aspect;
SetValue ( me: in out; index : Integer from Standard;
style : WidthOfLine from Aspect );
---Level: Public
---Purpose: Sets widthmap entry value from width style
-- and allocates it.
SetValue ( me: in out; index : Integer from Standard;
width : Length from Quantity);
---Level: Public
---Purpose: Sets widthmap entry value from width value
-- and allocates it.
SetValue ( me: in out; entry : WidthMapEntry from Aspect);
---Level: Public
---Purpose: Sets widthmap entry value and allocates it.
---C++: alias operator =
SetIndex ( me: in out; index : Integer from Standard);
---Level: Public
---Purpose: Sets index value of a widthmap entry.
SetType ( me: in out; Style : WidthOfLine from Aspect );
---Level: Public
---Purpose: Sets width style of widthmap entry.
SetWidth ( me: in out; Width : Length from Quantity);
---Level: Public
---Purpose: Sets width value of widthmap entry.
Type ( me ) returns WidthOfLine from Aspect
---Level: Public
---Warning: Raises error if the widthmap entry is unallocated .
raises BadAccess from Aspect;
Width ( me ) returns Length from Quantity
---Level: Public
---Purpose: Returns width value of widthmap entry.
-- Warning: Raises error if the widthmap entry is unallocated .
raises BadAccess from Aspect;
Index ( me ) returns Integer from Standard
---Level: Public
---Purpose: Returns index value of a widthmap entry.
-- Warning: Raises error if the widthmap entry is unallocated .
raises BadAccess from Aspect;
Free ( me : in out );
---Level: Public
---Purpose: Unallocates the widthmap entry.
IsAllocated ( me ) returns Boolean from Standard;
---Level: Public
---Purpose: Returns True if the widthmap entry is allocated.
-- Warning: A widthmap entry is allocated when the width and
-- the index is defined.
Dump( me );
---Level: Internal
----------------------------
-- Category: Private methods
----------------------------
SetPredefinedStyle ( me : in out;
Type : WidthOfLine from Aspect )
---Level: Internal
---Purpose: Set Line Width with the predefined style values
-- according of type
-- Warning: Raises error if the Width style is USER_DEFINED
raises BadAccess from Aspect is private;
---Category: Private methods
fields
MyType : WidthOfLine from Aspect;
MyWidth : Real from Standard;
MyIndex : Integer from Standard;
MyTypeIsDef : Boolean from Standard;
MyIndexIsDef : Boolean from Standard;
end WidthMapEntry from Aspect;
|
