blob: 54cb6f56a9b6e4bde639326b03eac26984ead08d (
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
|
-- File: BOPTest_DrawableShape.cdl
-- Created: Thu May 25 14:55:46 2000
-- Author: Peter KURNEV
-- <pkv@irinox>
---Copyright: Matra Datavision 2000
class DrawableShape from BOPTest inherits DrawableShape from DBRep
---Purpose:
uses
Shape from TopoDS,
Color from Draw,
Display from Draw,
Text3D from Draw,
Marker3D from Draw,
CString from Standard,
Pnt from gp
is
Create (S : Shape from TopoDS;
FreeCol : Color from Draw; -- color for free edges
ConnCol : Color from Draw; -- color for shared edges
EdgeCol : Color from Draw; -- color for other edges
IsosCol : Color from Draw; -- color for Isos
size : Real; -- size for infinite isos
nbisos : Integer; -- # of isos on each face
discret : Integer; -- # of points on curves
Text : CString from Standard;
TextColor : Color from Draw
)
returns mutable DrawableShape from BOPTest;
Create (S : Shape from TopoDS;
Text : CString from Standard;
TextColor : Color from Draw
)
returns mutable DrawableShape from BOPTest;
Pnt(me) returns Pnt from gp is private;
DrawOn(me; dis : in out Display from Draw)
is redefined;
fields
myText : Text3D from Draw;
myTextColor : Color from Draw;
end DrawableShape;
|
