src/AIS/AIS_EllipseRadiusDimension.cdl

   1 -- File:        AIS_EllipseRadiusDimension.cdl
   2 -- Created:     Thu Jan 22 09:01:38 1998
   3 -- Author:      Sergey ZARITCHNY
   4 --              <szy@androx.nnov.matra-dtv.fr>
   5 ---Copyright:    Matra Datavision 1998
   6
   7
   8 deferred class EllipseRadiusDimension from AIS inherits Relation from AIS
   9
  10         ---Purpose:
  11         --  Computes  geometry  (  basis  curve  and  plane  of  dimension)
  12         --  for  input  shape  aShape  from  TopoDS
  13         --  Root  class  for MinRadiusDimension  and  MaxRadiusDimension
  14 uses
  15      Shape                 from TopoDS,
  16      Elips                 from gp,
  17      Pnt                   from gp,
  18      Pln                   from gp,
  19      Curve                 from Geom,
  20      OffsetCurve           from Geom,
  21      Ellipse               from Geom,
  22      Plane                 from Geom,
  23      Surface               from Geom,
  24      ExtendedString        from TCollection,
  25      KindOfSurface         from AIS,
  26      KindOfDimension       from AIS
  27
  28 is
  29      Initialize(aShape      :  Shape           from  TopoDS;
  30                 aText       :  ExtendedString  from  TCollection);
  31
  32         --  Ellipse  radius  dimension  of  a  Shape  which  can  be  Edge
  33         --  or  Face  (planar  or  cylindrical(surface  of  extrusion  or
  34         --  surface  of  offset))
  35
  36
  37
  38     KindOfDimension(me) returns KindOfDimension from AIS
  39     is redefined;
  40
  41     IsMovable(me) returns Boolean from Standard
  42     is redefined;
  43
  44
  45 --
  46 --     Computation private methods
  47 --
  48
  49     ComputeGeometry( me: mutable ) ;
  50 --     is  private;
  51
  52     ComputeFaceGeometry(me: mutable)
  53     is private;
  54
  55     ComputeCylFaceGeometry(me: mutable;
  56                         aSurfType     : KindOfSurface  from  AIS;
  57                         aSurf         : Surface  from  Geom;
  58                         Offset        : Real     from  Standard )
  59     is private;
  60
  61     ComputePlanarFaceGeometry(me: mutable)
  62     is private;
  63
  64     ComputeEdgeGeometry(me: mutable)
  65     is private;
  66
  67 fields
  68
  69     myEllipse     :  Elips        from  gp        is  protected;
  70     myFirstPar    :  Real         from  Standard  is  protected;
  71     myLastPar     :  Real         from  Standard  is  protected;
  72     myIsAnArc     :  Boolean      from  Standard  is  protected;
  73     myOffsetCurve  : OffsetCurve  from  Geom      is  protected;
  74     myOffset       : Real         from  Standard  is  protected;
  75     myIsOffset     : Boolean      from  Standard  is  protected;
  76
  77 end EllipseRadiusDimension;