src/DrawTrSurf/DrawTrSurf_Polygon2D.cdl

   1 -- Created on: 1995-03-10
   2 -- Created by: Laurent PAINNOT
   3 -- Copyright (c) 1995-1999 Matra Datavision
   4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
   5 --
   6 -- This file is part of Open CASCADE Technology software library.
   7 --
   8 -- This library is free software; you can redistribute it and/or modify it under
   9 -- the terms of the GNU Lesser General Public License version 2.1 as published
  10 -- by the Free Software Foundation, with special exception defined in the file
  11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  12 -- distribution for complete text of the license and disclaimer of any warranty.
  13 --
  14 -- Alternatively, this file may be used under the terms of Open CASCADE
  15 -- commercial license or contractual agreement.
  16
  17 class Polygon2D from DrawTrSurf inherits Drawable2D from Draw
  18
  19         ---Purpose: Used to display a 2d polygon.
  20         --
  21         --          Optional display of nodes.
  22
  23
  24 uses Polygon2D   from Poly,
  25      Display     from Draw,
  26      Drawable3D  from Draw,
  27      Interpretor from Draw,
  28      OStream
  29 is
  30
  31     Create(P: Polygon2D from Poly)
  32     returns Polygon2D from DrawTrSurf;
  33
  34     Polygon2D(me) returns Polygon2D from Poly;
  35
  36     ShowNodes(me: mutable; B: Boolean);
  37
  38     ShowNodes(me) returns Boolean;
  39
  40     DrawOn(me; dis: in out Display);
  41
  42     Copy(me) returns Drawable3D from Draw
  43     is redefined;
  44         ---Purpose: For variable copy.
  45
  46
  47     Dump(me; S : in out OStream)
  48     is redefined;
  49         ---Purpose: For variable dump.
  50
  51     Whatis(me; I : in out Interpretor from Draw)
  52     is redefined;
  53         ---Purpose: For variable whatis command. Set  as a result  the
  54         --          type of the variable.
  55
  56
  57 fields
  58
  59     myPolygon2D:  Polygon2D from Poly;
  60     myNodes:      Boolean;
  61
  62 end Polygon2D;