src/HatchGen/HatchGen_ElementGen.cdl

   1 -- File:        HatchGen_ElementGen.cdl
   2 -- Created:     Wed Nov 10 18:10:00 1993
   3 -- Author:      Jean Marc LACHAUME
   4 --              <jml@sdsun1>
   5 -- Copyright:   Matra Datavision 1993
   6
   7 generic class ElementGen from HatchGen (TheElementCurve as any)
   8
   9 uses
  10     Orientation from TopAbs
  11
  12 is
  13
  14
  15     Create
  16
  17         returns ElementGen from HatchGen;
  18
  19     Create (Other : ElementGen  from HatchGen)
  20
  21         ---Purpose: Magic constructor.
  22
  23         returns ElementGen from HatchGen ;
  24
  25
  26     Create (Curve       : TheElementCurve ;
  27             Orientation : Orientation from TopAbs = TopAbs_FORWARD)
  28
  29         ---Purpose: Creates an element.
  30
  31         returns ElementGen from HatchGen ;
  32
  33
  34     Curve (me)
  35
  36         ---Purpose: Returns the curve associated to the element.
  37
  38         ---C++: return const &
  39
  40         returns TheElementCurve
  41         is static ;
  42
  43
  44     ChangeCurve (me : in out)
  45
  46         ---Purpose: Returns the curve associated to the element.
  47
  48         ---C++: return &
  49
  50         returns TheElementCurve
  51         is static ;
  52
  53
  54     Orientation (me : in out ; Orientation : Orientation from TopAbs)
  55
  56         ---Purpose: Sets the orientation of the element.
  57
  58         is static ;
  59
  60
  61     Orientation (me)
  62
  63         ---Purpose: Returns the orientation of the element.
  64
  65         returns Orientation from TopAbs
  66         is static ;
  67
  68
  69 fields
  70
  71     myCurve       : TheElementCurve ;
  72     myOrientation : Orientation from TopAbs ;
  73
  74 end ElementGen from HatchGen ;