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
|
-- File: DsgPrs_AnglePresentation.cdl
-- Created: Tue Feb 7 12:13:12 1995
-- Author: Arnaud BOUZY
-- <adn@houblon>
-- Modifs by ROB : Added one Method to take into Account Units in
-- Presentation
---Copyright: Matra Datavision 1995
class AnglePresentation from DsgPrs
---Purpose: A framework for displaying angles.
uses
Presentation from Prs3d,
Pnt from gp,
Dir from gp,
Circ from gp,
Drawer from Prs3d,
ExtendedString from TCollection,
ArrowSide from DsgPrs,
Ax1 from gp
is
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
aVal: Real from Standard;
aText: ExtendedString from TCollection;
aCircle: Circ from gp;
aPosition: Pnt from gp;
Apex: Pnt from gp;
VminCircle: Circ from gp;
VmaxCircle: Circ from gp;
aArrowSize: Real from Standard );
---Purpose: Draws the presenation of the full angle of a cone.
-- VminCircle - a circle at V parameter = Vmin
-- VmaxCircle - a circle at V parameter = Vmax
-- aCircle - a circle at V parameter from projection of aPosition to axis of the cone
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
theval: Real from Standard;
CenterPoint : Pnt from gp;
AttachmentPoint1: Pnt from gp;
AttachmentPoint2: Pnt from gp;
dir1: Dir from gp;
dir2: Dir from gp;
OffsetPoint: Pnt from gp);
---Purpose: Draws the representation of the angle
-- defined by dir1 and dir2, centered on
-- CenterPoint, using the offset point OffsetPoint.
-- Lines are drawn to points AttachmentPoint1 and AttachmentPoint2
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
theval: Real from Standard;
thevalstring : ExtendedString from TCollection;
CenterPoint : Pnt from gp;
AttachmentPoint1: Pnt from gp;
AttachmentPoint2: Pnt from gp;
dir1: Dir from gp;
dir2: Dir from gp;
OffsetPoint: Pnt from gp);
---Purpose: Same as above, but <thevalstring> contains conversion
-- in Session units....
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
theval: Real from Standard;
thevalstring : ExtendedString from TCollection;
CenterPoint : Pnt from gp;
AttachmentPoint1: Pnt from gp;
AttachmentPoint2: Pnt from gp;
dir1: Dir from gp;
dir2: Dir from gp;
OffsetPoint: Pnt from gp;
ArrowSide : ArrowSide from DsgPrs);
---Purpose: Same as above, may add one or
-- two Arrows according to <ArrowSide> value
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer: Drawer from Prs3d;
theval: Real from Standard;
thevalstring : ExtendedString from TCollection;
CenterPoint : Pnt from gp;
AttachmentPoint1: Pnt from gp;
AttachmentPoint2: Pnt from gp;
dir1: Dir from gp;
dir2: Dir from gp;
axisdir: Dir from gp;
OffsetPoint: Pnt from gp);
---Purpose: Same as above, but axisdir contains the axis direction
-- useful for Revol that can be opened with 180 degrees
Add( myclass; aPresentation : Presentation from Prs3d;
aDrawer : Drawer from Prs3d;
theval : Real from Standard;
thevalstring : ExtendedString from TCollection;
CenterPoint : Pnt from gp;
AttachmentPoint1 : Pnt from gp;
AttachmentPoint2 : Pnt from gp;
dir1 : Dir from gp;
dir2 : Dir from gp;
axisdir : Dir from gp;
isPlane : Boolean from Standard;
AxisOfSurf : Ax1 from gp;
OffsetPoint : Pnt from gp;
ArrowSide : ArrowSide from DsgPrs);
---Purpose: Same as above,may add one or
-- two Arrows according to <ArrowSide> value
Add( myclass; aPresentation: Presentation from Prs3d;
aDrawer:Drawer from Prs3d;
theval: Real from Standard;
theCenter,AttachmentPoint1:Pnt from gp;
theAxe: Ax1 from gp;
ArrowSide: ArrowSide from DsgPrs);
---Purpose: simple representation of a poor lonesome angle dimension
-- Draw a line from <theCenter> to <AttachmentPoint1>, then operates
-- a rotation around the perpmay add one or
-- two Arrows according to <ArrowSide> value. The
-- attributes (color,arrowsize,...) are driven by the Drawer.
end AnglePresentation;
|
