Integration of OCCT 6.5.0 from SVN
[occt.git] / src / TestTopOpeDraw / TestTopOpeDraw_DrawableC2D.cdl
CommitLineData
7fd59977 1-- File: TestTopOpeDraw_DrawableC2D.cdl
2-- Created: Fri Dec 1 17:56:57 1995
3-- Author: Jean Yves LEBEY
4-- <jyl@meteox>
5---Copyright: Matra Datavision 1995
6
7class DrawableC2D from TestTopOpeDraw inherits Curve2d from DrawTrSurf
8
9uses
10
11 Interpretor from Draw,
12 Curve from Geom2d,
13 Color from Draw,
14 Display from Draw,
15 Text2D from Draw,
16 CString from Standard,
17 Pnt2d from gp
18
19is
20
21 Create (C : Curve from Geom2d; CColor : Color from Draw)
22 returns mutable DrawableC2D from TestTopOpeDraw;
23
24 Create (C : Curve from Geom2d; CColor : Color from Draw;
25 Text : CString; TextColor : Color from Draw)
26 returns mutable DrawableC2D from TestTopOpeDraw;
27
28 Create (C : Curve from Geom2d; CColor : Color from Draw;
29 Text : CString; TextColor : Color from Draw;
30 Discret : Integer;
31 DispOrigin : Boolean = Standard_True;
32 DispCurvRadius : Boolean = Standard_False;
33 RadiusMax : Real = 1.0e3;
34 RatioOfRadius : Real = 0.1)
35 returns mutable DrawableC2D from TestTopOpeDraw;
36
37 Pnt2d(me) returns Pnt2d from gp is virtual;
38
39 ChangePnt2d(me : mutable; P : Pnt2d);
40
41 ChangeCurve(me : mutable; C : Curve from Geom2d);
42
43 ChangeText(me : mutable; T : CString from Standard);
44
45 Name(me : mutable; N : CString) is redefined;
46
47 Whatis(me; I : in out Interpretor from Draw) is redefined;
48 ---Purpose: For variable whatis command.
49
50 DrawOn(me; dis : in out Display from Draw) is redefined;
51
52fields
53
54 myText2D : Text2D from Draw is protected;
55 myText : CString from Standard is protected;
56 myTextColor : Color from Draw;
57
58end DrawableC2D;