7fd59977 |
1 | -- |
2 | -- File : RightAngularWedge.cdl |
3 | -- Created : Sat 9 Jan 1993 |
4 | -- Author : CKY / Contract Toubro-Larsen ( SIVA ) |
5 | -- |
6 | ---Copyright : MATRA-DATAVISION 1993 |
7 | -- |
8 | |
9 | class RightAngularWedge from IGESSolid inherits IGESEntity |
10 | |
11 | |
12 | ---Purpose: defines RightAngularWedge, Type <152> Form Number <0> |
13 | -- in package IGESSolid |
14 | -- A right angular wedge is a triangular/trapezoidal prism |
15 | |
16 | uses |
17 | |
18 | Pnt from gp, |
19 | Dir from gp, |
20 | XYZ from gp |
21 | |
22 | is |
23 | |
24 | Create returns mutable RightAngularWedge; |
25 | |
26 | Init (me : mutable; |
27 | aSize : XYZ; |
28 | lowX : Real; |
29 | aCorner : XYZ; |
30 | anXAxis : XYZ; |
31 | anZAxis : XYZ); |
32 | ---Purpose : This method is used to set the fields of the class |
33 | -- RightAngularWedge |
34 | -- - aSize : the lengths along the local axes |
35 | -- - lowX : the length at the smaller X-side |
36 | -- - aCorner : the corner point coordinates |
37 | -- default (0,0,0) |
38 | -- - anXAxis : the unit vector defining local X-axis |
39 | -- default (1,0,0) |
40 | -- - anZAxis : the unit vector defining local Z-axis |
41 | -- default (0,0,1) |
42 | |
43 | Size(me) returns XYZ; |
44 | ---Purpose : returns the size |
45 | |
46 | XBigLength (me) returns Real; |
47 | ---Purpose : returns the length along the local X-axis |
48 | |
49 | XSmallLength (me) returns Real; |
50 | ---Purpose : returns the smaller length along the local X-direction at Y=LY |
51 | |
52 | YLength (me) returns Real; |
53 | ---Purpose : returns the length along the local Y-axis |
54 | |
55 | ZLength (me) returns Real; |
56 | ---Purpose : returns the length along the local Z-axis |
57 | |
58 | Corner (me) returns Pnt; |
59 | ---Purpose : returns the corner point coordinates |
60 | |
61 | TransformedCorner (me) returns Pnt; |
62 | ---Purpose : returns the corner point coordinates after applying |
63 | -- TransformationMatrix |
64 | |
65 | XAxis (me) returns Dir; |
66 | ---Purpose : returns the direction defining the local X-axis |
67 | |
68 | TransformedXAxis (me) returns Dir; |
69 | ---Purpose : returns the direction defining the local X-axis |
70 | -- after applying the TransformationMatrix |
71 | |
72 | YAxis (me) returns Dir; |
73 | ---Purpose : returns the direction defining the local Y-axis |
74 | -- it is got by taking the cross product of ZAxis and XAxis |
75 | |
76 | TransformedYAxis (me) returns Dir; |
77 | ---Purpose : returns the direction defining the local Y-axis |
78 | -- after applying the TransformationMatrix |
79 | |
80 | ZAxis (me) returns Dir; |
81 | ---Purpose : returns the direction defining the local Z-axis |
82 | |
83 | TransformedZAxis (me) returns Dir; |
84 | ---Purpose : returns the direction defining the local Z-axis |
85 | -- after applying the TransformationMatrix |
86 | |
87 | fields |
88 | |
89 | -- |
90 | -- Class : IGESSolid_RightAngularWedge |
91 | -- |
92 | -- Purpose : Declaration of variables specific to the definition |
93 | -- of the Class RightAngularWedge. |
94 | -- |
95 | -- Reminder : A RightAngularWedge instance is defined by : |
96 | -- a vertex at (X1,Y1,Z1) and three orthogonal edges lying |
97 | -- along the local +X, +Y and +Z axes. The local X and Z axes |
98 | -- are defined by a unit vector along the axes. |
99 | |
100 | theSize : XYZ; |
101 | -- the lengths along the local axes |
102 | |
103 | theXSmallLength : Real; |
104 | -- the length of X-direction at Y = LY |
105 | |
106 | theCorner : XYZ; |
107 | -- the corner point coordinates |
108 | |
109 | theXAxis : XYZ; |
110 | -- the unit vector along the local X-direction |
111 | |
112 | theZAxis : XYZ; |
113 | -- the unit vector along the local Z-direction |
114 | |
115 | end RightAngularWedge; |