7fd59977 |
1 | -- |
2 | -- File : ConicalSurface.cdl |
3 | -- Created : Sat 9 Jan 1993 |
4 | -- Author : CKY / Contract Toubro-Larsen ( SIVA ) |
5 | -- |
6 | ---Copyright : MATRA-DATAVISION 1993 |
7 | -- |
8 | |
9 | class ConicalSurface from IGESSolid inherits IGESEntity |
10 | |
11 | ---Purpose: defines ConicalSurface, Type <194> Form Number <0,1> |
12 | -- in package IGESSolid |
13 | -- The right circular conical surface is defined by a |
14 | -- point on the axis on the cone, the direction of the axis |
15 | -- of the cone, the radius of the cone at the axis point and |
16 | -- the cone semi-angle. |
17 | |
18 | uses |
19 | |
20 | Point from IGESGeom, |
21 | Direction from IGESGeom |
22 | |
23 | is |
24 | |
25 | Create returns mutable ConicalSurface; |
26 | |
27 | -- Specific Methods pertaining to the class |
28 | |
29 | Init (me : mutable; |
30 | aLocation : Point; |
31 | anAxis : Direction; |
32 | aRadius : Real; |
33 | anAngle : Real; |
34 | aRefdir : Direction); |
35 | ---Purpose : This method is used to set the fields of the class |
36 | -- ConicalSurface |
37 | -- - aLocation : Location of the point on axis |
38 | -- - anAxis : Direction of the axis |
39 | -- - aRadius : Radius at axis point |
40 | -- - anAngle : Value of semi-angle in degrees (0<angle<90) |
41 | -- - aRefdir : Reference direction (parametrised surface) |
42 | -- Null if unparametrised surface. |
43 | |
44 | LocationPoint(me) returns Point; |
45 | ---Purpose : returns the location of the point on the axis |
46 | |
47 | Axis(me) returns Direction; |
48 | ---Purpose : returns the direction of the axis |
49 | |
50 | Radius(me) returns Real; |
51 | ---Purpose : returns the radius at the axis point |
52 | |
53 | SemiAngle(me) returns Real; |
54 | ---Purpose : returns the semi-angle value |
55 | |
56 | ReferenceDir(me) returns Direction; |
57 | ---Purpose : returns the reference direction of the conical surface in case |
58 | -- of parametrised surface. For unparametrised surface it returns |
59 | -- NULL. |
60 | |
61 | IsParametrised(me) returns Boolean; |
62 | ---Purpose : returns True if Form no is 1 else false |
63 | |
64 | fields |
65 | |
66 | -- |
67 | -- Class : IGESSolid_ConicalSurface |
68 | -- |
69 | -- Purpose : Declaration of variables specific to the definition |
70 | -- of the Class ConicalSurface. |
71 | -- |
72 | -- Reminder : A ConicalSurface instance is defined by : |
73 | -- a point on the axis of the cone(Location), the direction of |
74 | -- the axis of the cone(Axis), the radius of the cone at the axis |
75 | -- point(Radius) and the cone semi-angle(Angle). If the surface |
76 | -- is parametrised then a reference direction is given(RefDir). |
77 | -- |
78 | |
79 | theLocationPoint : Point; |
80 | -- the location of the point on the axis |
81 | |
82 | theAxis : Direction; |
83 | -- the direction of the axis |
84 | |
85 | theRadius : Real; |
86 | -- the radius at the axis point |
87 | |
88 | theAngle : Real; |
89 | -- the semi-angle of the cone |
90 | |
91 | theRefDir : Direction; |
92 | -- the reference direction (for parametrised surface alone) |
93 | |
94 | end ConicalSurface; |