src/DrawTrSurf/DrawTrSurf_Triangulation2D.cdl

   1 -- File:        DrawTrSurf_Triangulation2D.cdl
   2 -- Created:     Tue Jul 22 15:09:16 1997
   3 -- Author:      Laurent PAINNOT
   4 --              <lpa@penox.paris1.matra-dtv.fr>
   5 ---Copyright:    Matra Datavision 1997
   6
   7
   8 class Triangulation2D from DrawTrSurf inherits Drawable2D from Draw
   9
  10         ---Purpose: Used to display a 2d triangulation.
  11         --
  12         --          Display internal edges in blue
  13         --          Display boundary edges in red
  14         --          Optional display of triangles and nodes indices.
  15
  16 uses
  17     HArray1OfInteger from TColStd,
  18     Triangulation from Poly,
  19     Drawable3D    from Draw,
  20     Display       from Draw,
  21     Interpretor   from Draw,
  22     OStream
  23
  24 is
  25
  26     Create(T : Triangulation from Poly)
  27     returns mutable Triangulation2D from DrawTrSurf;
  28
  29     Triangulation(me)
  30     returns Triangulation from Poly;
  31
  32     DrawOn(me; dis : in out Display);
  33
  34     Copy(me) returns mutable Drawable3D from Draw
  35     is redefined;
  36         ---Purpose: For variable copy.
  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 fields
  48
  49     myTriangulation : Triangulation from Poly;
  50     myInternals     : HArray1OfInteger from TColStd;
  51     myFree          : HArray1OfInteger from TColStd;
  52
  53 end Triangulation2D;