0022627: Change OCCT memory management defaults
[occt.git] / src / TestTopOpeDraw / TestTopOpeDraw_DrawableP3D.cdl
CommitLineData
7fd59977 1-- File: TestTopOpeDraw_DrawableP3D.cdl
2-- Created: Mon Oct 24 16:18:55 1994
3-- Author: Jean Yves LEBEY
4-- <jyl@bravox>
5---Copyright: Matra Datavision 1994
6
7class DrawableP3D from TestTopOpeDraw inherits Marker3D from Draw
8
9 ---Purpose:
10
11uses
12
13 Color from Draw,
14 Display from Draw,
15 Text3D from Draw,
16 MarkerShape from Draw,
17 CString from Standard,
18 Pnt from gp,
19 Pnt2d from gp,
20 Circ from gp
21
22is
23
24 Create (P : Pnt from gp; PColor : Color from Draw;
25 moveX : Real = 0.0; moveY : Real = 0.0)
26 returns mutable DrawableP3D from TestTopOpeDraw;
27
28 Create (P : Pnt from gp; PColor : Color from Draw;
29 Text : CString; TextColor : Color from Draw;
30 moveX : Real = 0.0; moveY : Real = 0.0)
31 returns mutable DrawableP3D from TestTopOpeDraw;
32
33 Create (P : Pnt from gp; T : MarkerShape from Draw; PColor : Color from Draw;
34 Text : CString from Standard; TextColor : Color from Draw;
35 Size : Integer from Standard = 2;
36 moveX : Real = 0.0; moveY : Real = 0.0)
37 returns mutable DrawableP3D from TestTopOpeDraw;
38
39 Create (P : Pnt from gp; T : MarkerShape from Draw;
40 PColor : Color from Draw;
41 Text : CString from Standard; TextColor : Color from Draw;
42 Tol : Real from Standard;
43 moveX : Real = 0.0; moveY : Real = 0.0)
44 returns mutable DrawableP3D from TestTopOpeDraw;
45
46 ChangePnt(me : mutable; P : Pnt);
47
48 DrawOn(me; dis : in out Display from Draw)
49 is redefined;
50
51fields
52
53 myPnt : Pnt from gp;
54 myText : CString from Standard;
55 myTextColor : Color from Draw;
56 myMoveX : Real from Standard;
57 myMoveY : Real from Standard;
58
59 myText3D : Text3D from Draw;
60
61end DrawableP3D;