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 : Prs2d_Length.cdl
-- Created : April 2000
-- Author : Tanya COOL
---Copyright: Matra Datavision 2000
class Length from Prs2d inherits Dimension from Prs2d
---Purpose: Constructs the primitive Length
uses
Drawer from Graphic2d,
GraphicObject from Graphic2d,
Pnt2d from gp,
Lin2d from gp,
ExtendedString from TCollection,
ArrowSide from Prs2d,
TypeOfDist from Prs2d,
TypeOfArrow from Prs2d,
FStream from Aspect
is
Create( aGraphicObject: GraphicObject from Graphic2d;
anAttachPnt1 : Pnt2d from gp;
anAttachPnt2 : Pnt2d from gp;
aText : ExtendedString from TCollection;
aTxtScale : Real from Standard = 5.0;
aLength : Real from Standard = 0.0;
aTypeDist : TypeOfDist from Prs2d = Prs2d_TOD_AUTOMATIC;
anArrAngle : Real from Standard = 20.0;
anArrLength : Real from Standard = 25.0;
anArrType : TypeOfArrow from Prs2d = Prs2d_TOA_OPENED;
anArrow : ArrowSide from Prs2d = Prs2d_AS_BOTHAR;
IsReverseArrow: Boolean from Standard = Standard_False )
returns mutable Length from Prs2d;
---Purpose: Initializes the length dimension between points
-- anAttachPnt1 and anAttachPnt2.
-- aLength is length of the attach lines
-- aTypeDist defines the orientation of the displayed length:
-- AIS2D_TOD_AUTOMATIC
-- AIS2D_TOD_OBLIQUE
-- AIS2D_TOD_HORIZONTAL
-- AIS2D_TOD_VERTICAL
-- anArrow defines the number of arrows (one, two or none)
Create( aGraphicObject: GraphicObject from Graphic2d;
anAttachPnt : Pnt2d from gp;
anAttachLin : Lin2d from gp;
aText : ExtendedString from TCollection;
aTxtScale : Real from Standard = 10.0;
aLenAttachLin : Real from Standard = 0.0;
anArrAngle : Real from Standard = 20.0;
anArrLength : Real from Standard = 25.0;
anArrType : TypeOfArrow from Prs2d = Prs2d_TOA_OPENED;
anArrow : ArrowSide from Prs2d = Prs2d_AS_BOTHAR;
IsReverseArrow: Boolean from Standard = Standard_False )
returns mutable Length from Prs2d;
---Purpose: Initializes the length dimension between point
-- anAttachPnt1 and line defined anAttachLin.
-- aLenAttachLin is length of the attach lines
Create( aGraphicObject: GraphicObject from Graphic2d;
anAttachLin1 : Lin2d from gp;
anAttachLin2 : Lin2d from gp;
aText : ExtendedString from TCollection;
aTxtScale : Real from Standard = 10.0;
aLenAttachLin : Real from Standard = 0.0;
anArrAngle : Real from Standard = 20.0;
anArrLength : Real from Standard = 25.0;
anArrType : TypeOfArrow from Prs2d = Prs2d_TOA_OPENED;
anArrow : ArrowSide from Prs2d = Prs2d_AS_BOTHAR;
IsReverseArrow: Boolean from Standard = Standard_False )
returns mutable Length from Prs2d;
---Purpose: Initializes the length dimension between line
-- anAttachLin1 and line defined anAttachLin2.
-- aLenAttachLin is length of the attach lines
--------------------------
-- Category: Draw and Pick
--------------------------
Draw( me : mutable; aDrawer: Drawer from Graphic2d ) is static protected;
---Level: Internal
---Purpose: Draws the length <me>.
DrawElement( me : mutable; aDrawer: Drawer from Graphic2d;
anIndex: Integer from Standard) is redefined protected;
---Level: Internal
---Purpose: Draws element <anIndex> of the length <me>.
DrawVertex( me : mutable; aDrawer: Drawer from Graphic2d;
anIndex: Integer from Standard) is redefined protected;
---Level: Internal
---Purpose: Draws vertex <anIndex> of the length <me>.
Pick( me : mutable; X, Y: ShortReal from Standard;
aPrecision: ShortReal from Standard;
aDrawer: Drawer from Graphic2d) returns Boolean from Standard
is static protected;
---Level: Internal
---Purpose: Returns Standard_True if the length <me> is picked,
-- Standard_False if not.
GetPntProject( me: mutable; aLength: Real from Standard ) is private;
ComputeArrows( me: mutable; isnotPoints: Boolean from Standard ) is private;
--------------------------------------------
-- Category: Modification of the properties
--------------------------------------------
SetAttachLinLength( me: mutable; aLength: Real from Standard );
---Level: Public
---Purpose: Sets the length of attachment lines
Save( me; aFStream: in out FStream from Aspect ) is virtual;
CalcTxtPos(me:mutable; theFromAbs:
Boolean from Standard=Standard_False)
---C++: inline
is redefined protected;
LineCoord( me ; aFirstPnt, aSecondPnt: in out Pnt2d from gp );
---Level: Internal
---Purpose: returns coordinates of points, which are begining
-- and end of arrow
CallOutCoord( me ; aFirstPnt, aSecondPnt: in out Pnt2d from gp );
---Level: Internal
---Purpose: returns coordinates of points, which are begining
-- and end of arrow
TypeOfDist(me) returns TypeOfDist;
---Level: Internal
fields
myX1 : ShortReal from Standard;
myY1 : ShortReal from Standard;
myX2 : ShortReal from Standard;
myY2 : ShortReal from Standard;
myAX1 : ShortReal from Standard;
myAY1 : ShortReal from Standard;
myAX2 : ShortReal from Standard;
myAY2 : ShortReal from Standard;
myTypeDist : TypeOfDist from Prs2d;
myXT1 : ShortReal from Standard;
myYT1 : ShortReal from Standard;
myXT2 : ShortReal from Standard;
myYT2 : ShortReal from Standard;
end Length from Prs2d;
|
