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
|
-- File: Plane.cdl
-- Created: Fri Jan 17 11:54:50 1992
-- Author: GG
-- Modified: GG 23/11/00 Add Display(),Erase(),IsDisplayed() methods
---Copyright: Matra Datavision 1992
class Plane from V3d
inherits
TShared
---Purpose: Defines the services of Plane type objects. Only
-- the creation and editing of the functions is dealt
-- with here.
-- Warning: The representation of the clipping plane must be
-- calculated by the application by means of Graphic3d.
-- Editing of this representation must be coherent with
-- respect to the position of the plane.
uses
View from V3d,
ClipPlane from Visual3d,
Structure from Graphic3d,
Parameter from Quantity,
Color from Quantity
raises
BadValue from Viewer
is
--
-- The methods :
--
Create (A: Parameter = 0.0;
B: Parameter = 0.0;
C: Parameter = 1.0;
D: Parameter = 0.0
) returns mutable Plane
---Level : Public
---Purpose: Creates a clipping plane using the equation :
-- <A>*X + <B>*Y + <C>*Z + <D> = 0.0
raises BadValue from Viewer;
---Purpose: Warning! raises BadValue from Viewer
-- if the norm of the plane is NULL.
--------------------------------------------------------
---Category: Methods to modify the Attributs of the Plane
--------------------------------------------------------
SetPlane( me : mutable; A,B,C,D : Parameter)
---Level : Public
---Purpose: Modifies the plane equation.
raises BadValue from Viewer
---Purpose: Warning! raises BadValue from Viewer
-- if the norm of the plane is NULL.
-- If the norm of the plane is NULL.
is static;
Display(me: mutable; aView: View from V3d;
aColor: Color from Quantity= Quantity_NOC_GRAY)
---Level : Public
---Purpose: Display the plane representation
-- in the choosen view.
is virtual;
Erase(me: mutable) is static;
---Level: Public
---Purpose: Erase the plane representation.
---------------------------------------------------
---Category: Inquire methods
---------------------------------------------------
Plane( me ; A,B,C,D : out Parameter ) is static;
---Level : Public
---Purpose: Returns the parameters of the plane .
IsDisplayed( me ) returns Boolean from Standard is static;
---Level : Public
---Purpose: Returns TRUE when the plane representation is displayed
-----------------------------------------
---Category: Private or Protected methods
-----------------------------------------
Plane( me) returns mutable ClipPlane from Visual3d is static private ;
---Level : Internal
---Purpose: Returns the associated plane from Visual3d.
Update( me : mutable ) is static private;
---Level : Internal
---Purpose: Updates the the plane representation.
fields
MyPlane: ClipPlane from Visual3d ;
MyGraphicStructure: Structure from Graphic3d is protected;
friends
SetPlaneOn from class View from V3d ( me : mutable ),
SetPlaneOn from class View from V3d
( me : mutable ; Plane : Plane from V3d ),
SetPlaneOff from class View from V3d ( me : mutable ),
SetPlaneOff from class View from V3d
( me : mutable ; Plane : Plane from V3d )
end Plane;
|