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
|
-- File: AIS_TangentRelation.cdl
-- Created: Thu Dec 5 10:43:26 1996
-- Author: Jean-Pierre COMBE/Odile Olivier
-- <odl@sacadox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1996
class TangentRelation from AIS inherits Relation from AIS
---Purpose: A framework to display tangency constraints between
-- two or more Interactive Objects of the datum type.
-- The datums are normally faces or edges.
uses Shape from TopoDS,
Presentation from Prs3d,
PresentationManager3d from PrsMgr,
Selection from SelectMgr,
Pnt from gp,
Dir from gp,
Projector from Prs3d,
Transformation from Geom,
PresentationManager2d from PrsMgr,
GraphicObject from Graphic2d,
Plane from Geom
is
Create (aFShape : Shape from TopoDS;
aSShape : Shape from TopoDS;
aPlane : Plane from Geom;
anExternRef : Integer from Standard = 0)
---Purpose: TwoFacesTangent or TwoEdgesTangent relation
returns mutable TangentRelation from AIS;
---Purpose: Constructs an object to display tangency constraints.
-- This object is defined by the first shape aFShape, the
-- second shape aSShape, the plane aPlane and the index anExternRef.
-- aPlane serves as an optional axis.
-- anExternRef set to 0 indicates that there is no relation.
ExternRef(me: mutable) returns Integer from Standard
is static;
---Purpose: Returns the external reference for tangency.
-- The values are as follows:
-- - 0 - there is no connection;
-- - 1 - there is a connection to the first shape;
-- - 2 - there is a connection to the second shape.
-- This reference is defined at construction time.
SetExternRef(me: mutable;aRef : Integer from Standard)
is static;
---Purpose: Sets the external reference for tangency, aRef.
-- The values are as follows:
-- - 0 - there is no connection;
-- - 1 - there is a connection to the first shape;
-- - 2 - there is a connection to the second shape.
-- This reference is initially defined at construction time.
Compute(me : mutable;
aPresentationManager: PresentationManager3d from PrsMgr;
aPresentation : mutable Presentation from Prs3d;
aMode : Integer from Standard= 0)
is redefined static 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 private;
--
-- Computation private methods
--
ComputeTwoFacesTangent(me: mutable;
aPresentation : mutable Presentation from Prs3d)
is private;
ComputeTwoEdgesTangent(me: mutable;
aPresentation : mutable Presentation from Prs3d)
is private;
fields
myAttach : Pnt from gp;
myDir : Dir from gp;
myLength : Real from Standard;
myExternRef : Integer from Standard; ---purpose: (0 no attachment,1 attachment with first shape, 2 attachment with second shape)
end TangentRelation;
|
