1 -- File: TestTopOpeDraw_DrawableP2D.cdl
2 -- Created: Mon Oct 24 16:18:55 1994
3 -- Author: Jean Yves LEBEY
5 ---Copyright: Matra Datavision 1994
7 class DrawableP2D from TestTopOpeDraw inherits Marker2D from Draw
16 MarkerShape from Draw,
17 CString from Standard,
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;
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;
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;
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;
45 ChangePnt2d(me : mutable; P : Pnt2d);
47 DrawOn(me; dis : in out Display from Draw)
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;
58 myText2D : Text2D from Draw;