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;