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
|
-- File: AIS_MaxRadiusDimension.cdl
-- Created: Thu Jan 22 08:58:19 1998
-- Author: Sergey ZARITCHNY
-- <szy@androx.nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1998
class MaxRadiusDimension from AIS inherits EllipseRadiusDimension from AIS
---Purpose:
-- Ellipse Max radius dimension of a Shape which can be Edge
-- or Face (planar or cylindrical(surface of extrusion or
-- surface of offset))
uses
Shape from TopoDS,
Elips from gp,
Pnt from gp,
Pln from gp,
Ellipse from Geom,
OffsetCurve from Geom,
Plane from Geom,
Surface from Geom,
Presentation from Prs3d,
PresentationManager3d from PrsMgr,
Selection from SelectMgr,
Projector from Prs3d,
Transformation from Geom,
PresentationManager2d from PrsMgr,
GraphicObject from Graphic2d,
ExtendedString from TCollection,
ArrowSide from DsgPrs,
KindOfSurface from AIS,
KindOfDimension from AIS
raises ConstructionError from Standard
is
Create (aShape : Shape from TopoDS;
aVal : Real from Standard;
aText : ExtendedString from TCollection)
---Purpose: Max Ellipse radius dimension
-- Shape can be edge , planar face or cylindrical face
--
returns mutable MaxRadiusDimension from AIS;
Create (aShape : Shape from TopoDS;
aVal : Real from Standard;
aText : ExtendedString from TCollection;
aPosition : Pnt from gp;
aSymbolPrs : ArrowSide from DsgPrs;
anArrowSize : Real from Standard = 0.0)
---Purpose: Max Ellipse radius dimension with position
-- Shape can be edge , planar face or cylindrical face
--
returns mutable MaxRadiusDimension from AIS;
-- Methods from PresentableObject
Compute(me : mutable;
aPresentationManager: PresentationManager3d from PrsMgr;
aPresentation : mutable Presentation from Prs3d;
aMode : Integer from Standard= 0)
is redefined private;
Compute(me:mutable;
aProjector: Projector from Prs3d;
aPresentation: mutable Presentation from Prs3d)
is redefined static private;
Compute(me:mutable;
aPresentationManager: PresentationManager2d from PrsMgr;
aPresentation: mutable GraphicObject from Graphic2d;
aMode: Integer from Standard = 0)
is redefined static private;
Compute(me : mutable;
aProjector : Projector from Prs3d;
aTrsf : Transformation from Geom;
aPresentation : mutable Presentation from Prs3d)
is redefined;
---Purpose: computes the presentation according to a point of view
-- given by <aProjector>.
-- To be Used when the associated degenerated Presentations
-- have been transformed by <aTrsf> which is not a Pure
-- Translation. The HLR Prs can't be deducted automatically
-- WARNING :<aTrsf> must be applied
-- to the object to display before computation !!!
-- Methods from SelectableObject
ComputeSelection(me : mutable;
aSelection : mutable Selection from SelectMgr;
aMode : Integer from Standard)
is redefined private;
--
-- Computation private methods
--
ComputeEllipse(me: mutable;
aPresentation : mutable Presentation from Prs3d)
is private;
ComputeArcOfEllipse(me: mutable;
aPresentation : mutable Presentation from Prs3d )
is private;
fields
myApexP : Pnt from gp;
myApexN : Pnt from gp;
myEndOfArrow : Pnt from gp;
end MaxRadiusDimension;
|
