7fd59977 |
1 | -- |
2 | -- File : DrawingSize.cdl |
3 | -- Created : Sat 9 Jan 1993 |
4 | -- Author : CKY / Contract Toubro-Larsen ( TCD ) |
5 | -- |
6 | ---Copyright : MATRA-DATAVISION 1993 |
7 | -- |
8 | |
9 | class DrawingSize from IGESGraph inherits IGESEntity |
10 | |
11 | ---Purpose: defines IGESDrawingSize, Type <406> Form <16> |
12 | -- in package IGESGraph |
13 | -- |
14 | -- Specifies the drawing size in drawing units. The |
15 | -- origin of the drawing is defined to be (0,0) in |
16 | -- drawing space |
17 | |
18 | uses Integer, Real -- no one specific type |
19 | |
20 | |
21 | is |
22 | |
23 | Create returns mutable DrawingSize; |
24 | |
25 | -- Specific Methods pertaining to the class |
26 | |
27 | Init (me : mutable; |
28 | nbProps : Integer; |
29 | aXSize : Real; |
30 | aYSize : Real); |
31 | ---Purpose : This method is used to set the fields of the class |
32 | -- DrawingSize |
33 | -- - nbProps : Number of property values (NP = 2) |
34 | -- - aXSize : Extent of Drawing along positive XD axis |
35 | -- - aYSize : Extent of Drawing along positive YD axis |
36 | |
37 | -- Specific Access Methods : According to each type of Entity |
38 | |
39 | NbPropertyValues (me) returns Integer; |
40 | ---Purpose : returns the number of property values in <me> (NP = 2) |
41 | |
42 | XSize (me) returns Real; |
43 | ---Purpose : returns the extent of Drawing along positive XD axis |
44 | |
45 | YSize (me) returns Real; |
46 | ---Purpose : returns the extent of Drawing along positive YD axis |
47 | |
48 | fields |
49 | |
50 | -- |
51 | -- Class : IGESGraph_DrawingSize |
52 | -- |
53 | -- Purpose : Declaration of the variables specific to a Drawing Size. |
54 | -- |
55 | -- Reminder : A Drawing Size is defined by : |
56 | -- - Number of property values |
57 | -- - X Size |
58 | -- - Y Size |
59 | -- |
60 | |
61 | theNbPropertyValues : Integer; |
62 | |
63 | theXSize : Real; |
64 | |
65 | theYSize : Real; |
66 | |
67 | end DrawingSize; |