blob: 14dfd5cbe119debfe856f6b6b41d5d3b133d6850 (
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
|
-- File: DrawTrSurf_Point.cdl
-- Created: Mon Mar 28 15:49:05 1994
-- Author: Remi LEQUETTE
-- <rle@zerox>
---Copyright: Matra Datavision 1994
class Point from DrawTrSurf inherits Drawable3D from Draw
---Purpose: A drawable point.
uses
Pnt from gp,
Pnt2d from gp,
MarkerShape from Draw,
Color from Draw,
Display from Draw,
Drawable3D from Draw,
Interpretor from Draw
is
Create( P : Pnt from gp;
Shape : MarkerShape from Draw;
Col : Color from Draw)
returns mutable Point from DrawTrSurf;
Create( P : Pnt2d from gp;
Shape : MarkerShape from Draw;
Col : Color from Draw)
returns mutable Point from DrawTrSurf;
DrawOn (me; dis : in out Display from Draw);
Is3D(me) returns Boolean
---Purpose: Is a 3D object. (Default True).
is redefined;
Point(me) returns Pnt from gp
is static;
Point(me : mutable; P : Pnt from gp)
is static;
Point2d(me) returns Pnt2d from gp
is static;
Point2d(me : mutable; P : Pnt2d from gp)
is static;
Color(me : mutable; aColor : Color from Draw)
is static;
Color (me) returns Color from Draw
is static;
Shape(me : mutable; S : MarkerShape from Draw)
is static;
Shape(me) returns MarkerShape from Draw
is static;
Copy(me) returns mutable Drawable3D from Draw
---Purpose: For variable copy.
is redefined;
Dump(me; S : in out OStream)
---Purpose: For variable dump.
is redefined;
Whatis(me; I : in out Interpretor from Draw)
---Purpose: For variable whatis command.
is redefined;
fields
myPoint : Pnt from gp;
is3D : Boolean;
myShape : MarkerShape from Draw;
myColor : Color from Draw;
end Point;
|
