7fd59977 |
1 | -- File: TestTopOpeDraw_DrawableMesure.cdl |
2 | -- Created: Wed Mar 19 08:58:22 1997 |
3 | -- Author: Prestataire Mary FABIEN |
4 | -- <fbi@langdox.paris1.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 1997 |
6 | |
7 | class DrawableMesure from TestTopOpeDraw inherits DrawableC3D from TestTopOpeDraw |
8 | |
9 | uses |
10 | |
11 | Interpretor from Draw, |
12 | Mesure from TestTopOpeTools, |
13 | PMesure from TestTopOpeTools, |
14 | Display from Draw, |
15 | Color from Draw, |
16 | Pnt from gp, |
17 | AsciiString from TCollection, |
18 | HArray1OfPnt from TColgp, |
19 | Array1OfPnt from TColgp, |
20 | HArray1OfDrawableP3D from TestTopOpeDraw |
21 | |
22 | is |
23 | |
24 | Create(M : Mesure from TestTopOpeTools; |
25 | CurveColor : Color from Draw ; |
26 | TextColor : Color from Draw; |
27 | ScaleX : Real from Standard = 1.0; |
28 | ScaleY : Real from Standard = 1.0) |
29 | returns mutable DrawableMesure from TestTopOpeDraw; |
30 | |
31 | SetScale(me : mutable; ScaleX : Real from Standard; |
32 | ScaleY : Real from Standard); |
33 | |
34 | SetScaleX(me : mutable; ScaleX : Real from Standard); |
35 | |
36 | SetScaleY(me : mutable; ScaleY : Real from Standard); |
37 | |
38 | SetName(me : mutable; Name : AsciiString from TCollection); |
39 | |
40 | Pnt(me) returns Pnt from gp |
41 | is redefined; |
42 | |
43 | Pnts(me) returns HArray1OfPnt from TColgp; |
44 | ---C++: return const& |
45 | |
46 | Clear(me : mutable); |
47 | |
48 | Whatis(me; I : in out Interpretor from Draw) |
49 | ---Purpose: For variable whatis command. |
50 | is redefined; |
51 | |
52 | DrawOn(me; dis : in out Display from Draw) |
53 | is redefined; |
54 | |
55 | fields |
56 | |
57 | myP : HArray1OfPnt from TColgp; |
58 | myCurveColor : Color from Draw; |
59 | myAXE1,myAXE2 : DrawableC3D from TestTopOpeDraw; |
60 | myHDP,myHADP1,myHADP2 : HArray1OfDrawableP3D from TestTopOpeDraw; |
61 | myScaleX : Real from Standard; |
62 | myScaleY : Real from Standard; |
63 | |
64 | end DrawableMesure; |