src/DrawDim/DrawDim_PlanarDistance.cdl

   1 -- File:        DrawDim_PlanarDistance.cdl
   2 -- Created:     Wed Jan 10 10:16:25 1996
   3 -- Author:      Denis PASCAL
   4 --              <dp@zerox>
   5 ---Copyright:    Matra Datavision 1996
   6
   7
   8
   9 class PlanarDistance from DrawDim inherits PlanarDimension from DrawDim
  10
  11         ---Purpose: PlanarDistance point/point
  12         --          PlanarDistance point/line
  13         --          PlanarDistance line/line
  14
  15 uses Face    from TopoDS,
  16      Pnt     from gp,
  17      Shape   from TopoDS,
  18      Edge    from TopoDS,
  19      Color   from Draw,
  20      Display from Draw
  21
  22 is
  23
  24     Create (plane  : Face from TopoDS;
  25             point1 : Shape from TopoDS;
  26             point2 : Shape from TopoDS)
  27     returns mutable PlanarDistance from DrawDim;
  28
  29     Create (geom1 : Shape from TopoDS;
  30             geom2 : Shape from TopoDS)
  31     returns mutable PlanarDistance from DrawDim;
  32
  33     DrawOn(me; dis : in out Display);
  34
  35     ---Purpose: private
  36     Draw (me; p : Pnt from gp;
  37               e : Edge from TopoDS;
  38               d : in out Display) is private;
  39
  40 fields
  41
  42     myGeom1 : Shape from TopoDS;
  43     myGeom2 : Shape from TopoDS;
  44
  45 end PlanarDistance;