blob: 4c312eda04be8eacd9956db7457eebf4df5fde74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
--
-- File : UniformRectGrid.cdl
-- Created : Sat 9 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( TCD )
--
---Copyright : MATRA-DATAVISION 1993
--
class UniformRectGrid from IGESGraph inherits IGESEntity
---Purpose: defines IGESUniformRectGrid, Type <406> Form <22>
-- in package IGESGraph
--
-- Stores sufficient information for the creation of
-- a uniform rectangular grid within a drawing
uses
XY from gp,
Pnt2d from gp,
Vec2d from gp
is
Create returns mutable UniformRectGrid;
-- Specific Methods pertaining to the class
Init (me : mutable;
nbProps : Integer;
finite : Integer;
line : Integer;
weighted : Integer;
aGridPoint : XY;
aGridSpacing : XY;
pointsX : Integer;
pointsY : Integer);
---Purpose : This method is used to set the fields of the class
-- UniformRectGrid
-- - nbProps : Number of property values (NP = 9)
-- - finite : Finite/Infinite grid flag
-- - line : Line/Point grid flag
-- - weighted : Weighted/Unweighted grid flag
-- - aGridPoint : Point on the grid
-- - aGridSpacing : Grid spacing
-- - pointsX : No. of points/lines in X Direction
-- - pointsY : No. of points/lines in Y Direction
NbPropertyValues (me) returns Integer;
---Purpose : returns the number of property values in <me>.
IsFinite (me) returns Boolean;
---Purpose : returns False if <me> is an infinite grid,
-- True if <me> is a finite grid.
IsLine (me) returns Boolean;
---Purpose : returns False if <me> is a Point grid,
-- True if <me> is a Line grid.
IsWeighted (me) returns Boolean;
---Purpose : returns False if <me> is a Weighted grid,
-- True if <me> is not a Weighted grid.
GridPoint (me) returns Pnt2d;
---Purpose : returns coordinates of lower left corner,
-- if <me> is a finite grid,
-- coordinates of an arbitrary point,
-- if <me> is an infinite grid.
GridSpacing (me) returns Vec2d;
---Purpose : returns the grid-spacing in drawing coordinates.
NbPointsX (me) returns Integer;
---Purpose : returns the no. of points/lines in X direction
-- (only applicable if IsFinite() = 1, i.e: a finite grid).
NbPointsY (me) returns Integer;
---Purpose : returns the no. of points/lines in Y direction
-- (only applicable if IsFinite() = 1, i.e: a finite grid).
fields
--
-- Class : IGESGraph_UniformRectGrid
--
-- Purpose : Declaration of the variables specific to a
-- Uniform Rectangular Grid.
--
-- Reminder : A Uniform Rectangular Grid is defined by :
-- - Number of property values
-- - Finite/Infinite grid flag
-- - Line/Point grid flag
-- - Weighted/Unweighted grid flag
-- - Point on the grid
-- - Grid spacing
-- - No. of points/lines in X Direction
-- - No. of points/lines in Y Direction
--
theNbPropertyValues : Integer;
isItFinite : Integer;
isItLine : Integer;
isItWeighted : Integer;
theGridPoint : XY;
theGridSpacing : XY;
theNbPointsX : Integer;
theNbPointsY : Integer;
end UniformRectGrid;
|