7fd59977 |
1 | -- |
2 | -- File : SectionedArea.cdl |
3 | -- Created : Sat 9 Jan 1993 |
4 | -- Author : CKY / Contract Toubro-Larsen ( SIVA ) |
5 | -- |
6 | ---Copyright : MATRA-DATAVISION 1993 |
7 | -- |
8 | |
9 | class SectionedArea from IGESDimen inherits IGESEntity |
10 | |
11 | ---Purpose: defines IGES Sectioned Area, Type <230> Form <0>, |
12 | -- in package IGESDimen |
13 | -- A sectioned area is a portion of a design which is to be |
14 | -- filled with a pattern of lines. Ordinarily, this entity |
15 | -- is used to reveal or expose shape or material characteri- |
16 | -- stics defined by other entities. It consists of a pointer |
17 | -- to an exterior definition curve, a specification of the |
18 | -- pattern of lines, the coordinates of a point on a pattern |
19 | -- line, the distance between the pattern lines, the angle |
20 | -- between the pattern lines and the X-axis of definition |
21 | -- space, and the specification of any enclosed definition |
22 | -- curves (commonly known as islands). |
23 | |
24 | |
25 | uses |
26 | |
27 | Pnt from gp, |
28 | XYZ from gp, |
29 | HArray1OfIGESEntity from IGESData |
30 | |
31 | raises OutOfRange |
32 | |
33 | is |
34 | |
35 | Create returns mutable SectionedArea; |
36 | |
37 | -- --specific-- -- |
38 | Init(me : mutable; |
39 | aCurve : IGESEntity; |
40 | aPattern : Integer; |
41 | aPoint : XYZ; |
42 | aDistance : Real; |
43 | anAngle : Real; |
44 | someIslands : HArray1OfIGESEntity); |
45 | -- This method is used to set fields of the |
46 | -- class SectionedArea |
47 | -- - aCurve : The exterior definition curve (closed) |
48 | -- - aPattern : The fill pattern code |
49 | -- - aPoint : The passing point of the pattern lines |
50 | -- - aDistance : Normal distance between adjacent lines |
51 | -- - anAngle : Angle between XT axis to sectioning lines |
52 | -- (default Pi/4) |
53 | -- - someIslands : The interior definition curves |
54 | |
55 | SetInverted (me : mutable; mode : Boolean); |
56 | ---Purpose : Sets the cross hatches to be inverted or not, |
57 | -- according value of <mode> (corresponds to FormNumber) |
58 | |
59 | IsInverted (me) returns Boolean; |
60 | ---Purpose : Returns True if cross hatches as Inverted, else they are |
61 | -- Standard (Inverted : Form=1, Standard : Form=0) |
62 | |
63 | ExteriorCurve(me) returns IGESEntity; |
64 | ---Purpose : returns the exterior definition curve |
65 | |
66 | Pattern(me) returns Integer; |
67 | ---Purpose : returns fill pattern code |
68 | |
69 | PassingPoint(me) returns Pnt; |
70 | ---Purpose : returns point thru which line should pass |
71 | |
72 | TransformedPassingPoint(me) returns Pnt; |
73 | ---Purpose : returns point thru which line should pass after Transformation |
74 | |
75 | ZDepth(me) returns Real; |
76 | ---Purpose : returns the Z depth |
77 | |
78 | Distance(me) returns Real; |
79 | ---Purpose : returns the normal distance between lines |
80 | |
81 | Angle(me) returns Real; |
82 | ---Purpose : returns the angle of lines with XT axis |
83 | |
84 | NbIslands(me) returns Integer; |
85 | ---Purpose : returns the number of island curves |
86 | |
87 | IslandCurve(me; Index: Integer) returns IGESEntity |
88 | raises OutOfRange; |
89 | ---Purpose : returns the interior definition curves, returns Null Handle |
90 | -- exception raised if Index <= 0 or Index > NbIslands() |
91 | |
92 | fields |
93 | |
94 | -- |
95 | -- Class : IGESDimen_SectionedArea |
96 | -- |
97 | -- Purpose : Declaration of variables specific to the definition |
98 | -- of the Class SectionedArea. |
99 | -- |
100 | -- Reminder : A SectionedArea instance is defined by : |
101 | -- - An Exterior Curve |
102 | -- - An Integer representing the pattern |
103 | -- - The coordinates thru which a line should pass |
104 | -- - The Z-depth of the lines |
105 | -- - The normal distance between adjacent lines |
106 | -- - The angle in radians from XT-axis to section lines |
107 | -- - A Single Array of Interior Definition Curves |
108 | -- |
109 | |
110 | theExteriorCurve: IGESEntity; |
111 | thePattern : Integer; |
112 | thePassingPoint : XYZ; |
113 | theDistance : Real; |
114 | theAngle : Real; |
115 | theIslandCurves : HArray1OfIGESEntity; |
116 | |
117 | end SectionedArea; |