7fd59977 |
1 | -- File: Line.cdl |
2 | -- Created: Fri Dec 1 11:11:22 1995 |
3 | -- Author: EXPRESS->CDL V0.2 Translator |
4 | -- Copyright: Matra-Datavision 1993 |
5 | |
6 | |
7 | class Line from StepGeom |
8 | |
9 | inherits Curve from StepGeom |
10 | |
11 | uses |
12 | |
13 | CartesianPoint from StepGeom, |
14 | Vector from StepGeom, |
15 | HAsciiString from TCollection |
16 | is |
17 | |
18 | Create returns mutable Line; |
19 | ---Purpose: Returns a Line |
20 | |
21 | |
22 | Init (me : mutable; |
23 | aName : mutable HAsciiString from TCollection) is redefined; |
24 | |
25 | Init (me : mutable; |
26 | aName : mutable HAsciiString from TCollection; |
27 | aPnt : mutable CartesianPoint from StepGeom; |
28 | aDir : mutable Vector from StepGeom) is virtual; |
29 | |
30 | -- Specific Methods for Field Data Access -- |
31 | |
32 | SetPnt(me : mutable; aPnt : mutable CartesianPoint); |
33 | Pnt (me) returns mutable CartesianPoint; |
34 | SetDir(me : mutable; aDir : mutable Vector); |
35 | Dir (me) returns mutable Vector; |
36 | |
37 | fields |
38 | |
39 | pnt : CartesianPoint from StepGeom; |
40 | dir : Vector from StepGeom; |
41 | |
42 | end Line; |