0022627: Change OCCT memory management defaults
[occt.git] / src / TestTopOpeDraw / TestTopOpeDraw_DrawableP3D.cdl
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
7 class DrawableP3D from TestTopOpeDraw inherits Marker3D from Draw
8
9     ---Purpose: 
10
11 uses  
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     
22 is
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     
51 fields
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
61 end DrawableP3D;