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
|
--
-- File: V3d_RectangularGrid.cdl
-- Created: Jeudi 16 Juillet 1998
-- Author: CAL
-- Updated: GG IMP230300 The color fields have moved Aspect_Grid
--
---Copyright: Matra Datavision 1998
private class RectangularGrid from V3d inherits RectangularGrid from Aspect
uses
Ax3 from gp,
Color from Quantity,
Group from Graphic3d,
Structure from Graphic3d,
GridDrawMode from Aspect,
ViewerPointer from V3d
is
Create ( aViewer : ViewerPointer from V3d;
aColor : Color from Quantity;
aTenthColor : Color from Quantity )
returns mutable RectangularGrid from V3d;
SetColors ( me : mutable;
aColor : Color from Quantity;
aTenthColor : Color from Quantity )
is redefined static;
Display ( me : mutable )
is redefined static;
Erase ( me )
is redefined static;
IsDisplayed ( me )
returns Boolean from Standard
is redefined static;
GraphicValues ( me;
XSize, YSize : out Real from Standard;
OffSet : out Real from Standard )
is static;
SetGraphicValues ( me : mutable;
XSize, YSize : Real from Standard;
OffSet : Real from Standard )
is static;
DefineLines ( me : mutable )
is static private;
DefinePoints ( me : mutable )
is static private;
UpdateDisplay ( me : mutable )
is redefined static protected;
fields
myStructure : Structure from Graphic3d;
myGroup1, myGroup2 : Group from Graphic3d;
myCurViewPlane : Ax3 from gp;
-- myColor, myTenthColor : Color from Quantity;
-- myCurColor1, myCurColor2: Color from Quantity;
myViewer : ViewerPointer from V3d;
myCurAreDefined : Boolean from Standard;
myCurDrawMode : GridDrawMode from Aspect;
myCurXo, myCurYo : Real from Standard;
myCurAngle : Real from Standard;
myCurXStep, myCurYStep : Real from Standard;
myXSize, myYSize : Real from Standard;
myOffSet : Real from Standard;
-- Debug
-- myStructureGridPlane : Structure from Graphic3d;
-- myStructureViewPlane : Structure from Graphic3d;
-- myGroupGridPlane : Group from Graphic3d;
-- myGroupViewPlane : Group from Graphic3d;
-- myGridPlane : Ax3 from gp;
end RectangularGrid from V3d;
|
