src/TestTopOpeDraw/TestTopOpeDraw_DrawableMesure.cdl

   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;