blob: 9cd4b359b63babfa67a338d3fa3e7a16a5e40fa3 (
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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
--
-- File : ToroidalSurface.cdl
-- Created : Sat 9 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( SIVA )
--
---Copyright : MATRA-DATAVISION 1993
--
class ToroidalSurface from IGESSolid inherits IGESEntity
---Purpose: defines ToroidalSurface, Type <198> Form Number <0,1>
-- in package IGESSolid
-- This entity is defined by the center point, the axis
-- direction and the major and minor radii. In case of
-- parametrised surface a reference direction is provided.
uses
Point from IGESGeom,
Direction from IGESGeom,
Pnt from gp
is
Create returns mutable ToroidalSurface;
-- Specific Methods pertaining to the class
Init (me : mutable;
aCenter : Point;
anAxis : Direction;
majRadius : Real;
minRadius : Real;
Refdir : Direction);
---Purpose : This method is used to set the fields of the class
-- ToroidalSurface
-- - aCenter : the center point coordinates
-- - anAxis : the direction of the axis
-- - majRadius : the major radius
-- - minRadius : the minor radius
-- - Refdir : the reference direction (parametrised)
-- default Null for unparametrised surface
Center(me) returns Point;
---Purpose : returns the center point coordinates of the surface
TransformedCenter(me) returns Pnt;
---Purpose : returns the center point coordinates of the surface
-- after applying TransformationMatrix
Axis(me) returns Direction;
---Purpose : returns the direction of the axis
MajorRadius(me) returns Real;
---Purpose : returns the major radius of the surface
MinorRadius(me) returns Real;
---Purpose : returns the minor radius of the surface
ReferenceDir(me) returns Direction;
---Purpose : returns the reference direction (parametrised surface)
-- Null is returned if the surface is not parametrised
IsParametrised(me) returns Boolean;
---Purpose : Returns True if the surface is parametrised, else False
fields
--
-- Class : IGESSolid_ToroidalSurface
--
-- Purpose : Declaration of variables specific to the definition
-- of the Class ToroidalSurface.
--
-- Reminder : A ToroidalSurface instance is defined by :
-- This entity is defined by the center point, the axis
-- direction and the major and minor radii. In case of
-- parametrised surface a reference direction is provided.
--
theCenter : Point;
-- the center point coordinates of the surface
theAxis : Direction;
-- the direction of the axis
theMajorRadius : Real;
-- the major radius of the surface
theMinorRadius : Real;
-- the minor radius of the surface
theRefDir : Direction;
-- the reference direction of the surface (parametrised)
end ToroidalSurface;
|
