blob: 6e6544397486c081ebfb5065f264963b6bf21f9d (
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
|
-- File: AIS_EllipseRadiusDimension.cdl
-- Created: Thu Jan 22 09:01:38 1998
-- Author: Sergey ZARITCHNY
-- <szy@androx.nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1998
deferred class EllipseRadiusDimension from AIS inherits Relation from AIS
---Purpose:
-- Computes geometry ( basis curve and plane of dimension)
-- for input shape aShape from TopoDS
-- Root class for MinRadiusDimension and MaxRadiusDimension
uses
Shape from TopoDS,
Elips from gp,
Pnt from gp,
Pln from gp,
Curve from Geom,
OffsetCurve from Geom,
Ellipse from Geom,
Plane from Geom,
Surface from Geom,
ExtendedString from TCollection,
KindOfSurface from AIS,
KindOfDimension from AIS
is
Initialize(aShape : Shape from TopoDS;
aText : ExtendedString from TCollection);
-- Ellipse radius dimension of a Shape which can be Edge
-- or Face (planar or cylindrical(surface of extrusion or
-- surface of offset))
KindOfDimension(me) returns KindOfDimension from AIS
is redefined;
IsMovable(me) returns Boolean from Standard
is redefined;
--
-- Computation private methods
--
ComputeGeometry( me: mutable ) ;
-- is private;
ComputeFaceGeometry(me: mutable)
is private;
ComputeCylFaceGeometry(me: mutable;
aSurfType : KindOfSurface from AIS;
aSurf : Surface from Geom;
Offset : Real from Standard )
is private;
ComputePlanarFaceGeometry(me: mutable)
is private;
ComputeEdgeGeometry(me: mutable)
is private;
fields
myEllipse : Elips from gp is protected;
myFirstPar : Real from Standard is protected;
myLastPar : Real from Standard is protected;
myIsAnArc : Boolean from Standard is protected;
myOffsetCurve : OffsetCurve from Geom is protected;
myOffset : Real from Standard is protected;
myIsOffset : Boolean from Standard is protected;
end EllipseRadiusDimension;
|
