blob: 79e680756ac88061686cf5fef1c3b74fa40b8371 (
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
|
--
-- File : SurfaceOfRevolution.cdl
-- Created : Sat 9 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( Kiran )
--
---Copyright : MATRA-DATAVISION 1993
--
class SurfaceOfRevolution from IGESGeom inherits IGESEntity
---Purpose: defines IGESSurfaceOfRevolution, Type <120> Form <0>
-- in package IGESGeom
-- A surface of revolution is defined by an axis of rotation
-- a generatrix, and start and terminate rotation angles. The
-- surface is created by rotating the generatrix about the axis
-- of rotation through the start and terminate rotation angles.
uses
Pnt from gp,
Dir from gp,
Vec from gp,
Ax1 from gp,
Trsf from gp,
Line from IGESGeom
is
Create returns mutable SurfaceOfRevolution;
-- Specific Methods pertaining to the class
Init (me : mutable;
anAxis : Line;
aGeneratrix : IGESEntity;
aStartAngle : Real;
anEndAngle : Real);
---Purpose : This method is used to set the fields of the class Line
-- - anAxis : Axis of revolution
-- - aGeneratrix : The curve which is revolved about the axis
-- - aStartAngle : Start angle of the surface of revolution
-- - anEndAngle : End angle of the surface of revolution
AxisOfRevolution (me) returns Line;
---Purpose : returns the axis of revolution
Generatrix (me) returns IGESEntity;
---Purpose : returns the curve which is revolved about the axis
StartAngle (me) returns Real;
---Purpose : returns start angle of revolution
EndAngle (me) returns Real;
---Purpose : returns end angle of revolution
fields
--
-- Class : IGESGeom_SurfaceOfRevolution
--
-- Purpose : Declaration of variables specific to the definition
-- of the Class SurfaceOfRevolution.
--
-- Reminder : A SurfaceOfRevolution instance is defined by :
-- An axis, a generatrix curve which is rotated about
-- the axis, the start and ending angles of rotation.
theLine : Line;
theGeneratrix : IGESEntity;
theStartAngle : Real;
theEndAngle : Real;
end SurfaceOfRevolution;
|
