src/DrawDim/DrawDim.cdl

   1 -- File:        DrawDim.cdl
   2 -- Created:     Tue Jan  9 16:39:53 1996
   3 -- Author:      Denis PASCAL
   4 --              <dp@zerox>
   5 ---Copyright:    Matra Datavision 1996
   6
   7
   8 package DrawDim
   9
  10         ---Purpose: This package provides Drawable Dimensions.
  11         --
  12         --          The classes PlanarDimension and subclasses provide
  13         --            services  to  build  drawable dimensions between
  14         --          point line and circle in a given 3d plane.
  15         --
  16         --           The   classes  Dimension and   subclasses provide
  17         --            services  to build  drawable  dimensions between
  18         --          plane and cylindrical surfaces.
  19
  20
  21 uses Draw, gp, TColgp, TopoDS, TCollection
  22
  23 is
  24
  25
  26
  27     deferred class Dimension;
  28
  29     ---Purpose: Dimension between planes and cylinder
  30     --          =====================================
  31
  32         class Angle;
  33         class Distance;
  34         class Radius;
  35
  36
  37     ---Purpose: Dimensions between point, line and circle ON a plane
  38     --          ====================================================
  39
  40         deferred class PlanarDimension;
  41
  42             class PlanarAngle;
  43             class PlanarDistance;
  44             class PlanarRadius;
  45             class PlanarDiameter;
  46
  47     ---Purpose: Commands
  48     --          ========
  49
  50     DrawShapeName (ashape : Shape from TopoDS; aname : CString);
  51
  52     AllCommands (I : in out Interpretor from Draw);
  53
  54     PlanarDimensionCommands (I : in out Interpretor from Draw);
  55
  56     ---Purpose: tools
  57     --          =====
  58
  59     Nearest (aShape : Shape from TopoDS; apoint : Pnt from gp)
  60     returns Pnt from gp;
  61
  62     Lin (e : Edge from TopoDS; l           : in out Lin from gp;
  63                                infinite    : in out Boolean from Standard;
  64                                first, last : in out Real from Standard)
  65     ---Purpose: false if <e> is not a linear edge
  66     returns Boolean from Standard;
  67
  68     Circ (e : Edge from TopoDS; l : in out Circ from gp; first, last : in out Real from Standard)
  69     ---Purpose: false if <e> is not a circular edge
  70     returns Boolean from Standard;
  71
  72     Pln (f : Face from TopoDS; p : in out Pln from gp)
  73     ---Purpose: false if <f> is not a planar face
  74     returns Boolean from Standard;
  75
  76 end DrawDim;
  77
  78
  79