src/DrawTrSurf/DrawTrSurf_Polygon3D.cdl

   1 -- File:        DrawTrSurf_Polygon3D.cdl
   2 -- Created:     Thu Mar  9 17:00:59 1995
   3 -- Author:      Laurent PAINNOT
   4 --              <lpa@metrox>
   5 ---Copyright:    Matra Datavision 1995
   6
   7
   8 class Polygon3D from DrawTrSurf inherits Drawable3D from Draw
   9
  10         ---Purpose: Used to display a 3d polygon.
  11         --
  12         --          Optional display of nodes.
  13
  14
  15 uses Polygon3D   from Poly,
  16      Display     from Draw,
  17      Interpretor from Draw,
  18      OStream
  19
  20 is
  21
  22     Create(P: Polygon3D from Poly)
  23     returns mutable Polygon3D from DrawTrSurf;
  24
  25     Polygon3D(me) returns Polygon3D from Poly;
  26
  27     ShowNodes(me: mutable; B: Boolean);
  28
  29     ShowNodes(me) returns Boolean;
  30
  31     DrawOn(me; dis: in out Display);
  32
  33     Copy(me) returns mutable Drawable3D from Draw
  34     is redefined;
  35         ---Purpose: For variable copy.
  36
  37
  38     Dump(me; S : in out OStream)
  39     is redefined;
  40         ---Purpose: For variable dump.
  41
  42     Whatis(me; I : in out Interpretor from Draw)
  43     is redefined;
  44         ---Purpose: For variable whatis command. Set  as a result  the
  45         --          type of the variable.
  46
  47
  48 fields
  49
  50     myPolygon3D:  Polygon3D from Poly;
  51     myNodes:      Boolean;
  52
  53 end Polygon3D;