Integration of OCCT 6.5.0 from SVN
[occt.git] / src / TestTopOpeDraw / TestTopOpeDraw_DrawableP2D.cdl
1 -- File:        TestTopOpeDraw_DrawableP2D.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 DrawableP2D from TestTopOpeDraw inherits Marker2D from Draw
8
9     ---Purpose: 
10
11 uses  
12
13     Color           from Draw,
14     Display         from Draw,
15     Text2D          from Draw,
16     MarkerShape     from Draw,
17     CString         from Standard,
18     Pnt2d           from gp,
19     Circ            from gp
20     
21 is
22
23     Create (P : Pnt2d from gp; PColor : Color from Draw;
24             moveX : Real = 0.0; moveY : Real = 0.0)
25     returns mutable DrawableP2D from TestTopOpeDraw;
26
27     Create (P : Pnt2d from gp; PColor : Color from Draw;
28             Text : CString; TextColor : Color from Draw;
29             moveX : Real = 0.0; moveY : Real = 0.0)
30     returns mutable DrawableP2D from TestTopOpeDraw;
31
32     Create (P : Pnt2d from gp; T : MarkerShape from Draw; PColor : Color from Draw;
33             Text : CString from Standard; TextColor : Color from Draw;
34             Size : Integer from Standard = 2;
35             moveX : Real = 0.0; moveY : Real = 0.0)
36     returns mutable DrawableP2D from TestTopOpeDraw;
37
38     Create (P : Pnt2d from gp; T : MarkerShape from Draw; 
39             PColor : Color from Draw;
40             Text : CString from Standard; TextColor : Color from Draw;
41             Tol : Real from Standard;
42             moveX : Real = 0.0; moveY : Real = 0.0)
43     returns mutable DrawableP2D from TestTopOpeDraw;
44
45     ChangePnt2d(me : mutable; P : Pnt2d);
46     
47     DrawOn(me; dis : in out Display from Draw)
48     is redefined;
49     
50 fields
51
52     myPnt2d : Pnt2d from gp;
53     myText : CString from Standard;
54     myTextColor : Color from Draw;
55     myMoveX  : Real from Standard;
56     myMoveY  : Real from Standard;
57
58     myText2D : Text2D from Draw;
59
60 end DrawableP2D;