src/DsgPrs/DsgPrs_MidPointPresentation.cdl

   1 -- File:        DsgPrs_MidPointPresentation.cdl
   2 -- Created:     Fri Oct 20 15:57:32 2000
   3 -- Author:      Julia DOROVSKIKH
   4 --              <jfa@androx.nnov.matra-dtv.fr>
   5 ---Copyright:    Matra Datavision 2000
   6
   7 class MidPointPresentation from DsgPrs
   8
   9 uses
  10     Presentation from Prs3d,
  11     Drawer       from Prs3d,
  12     Pnt   from gp,
  13     Lin   from gp,
  14     Circ  from gp,
  15     Elips from gp,
  16     Ax2   from gp
  17
  18 is
  19     Add( myclass; aPresentation: Presentation from Prs3d;
  20                   aDrawer      : Drawer from Prs3d;
  21                   theAxe       : Ax2 from gp;
  22                   MidPoint     : Pnt from gp;
  23                   Position     : Pnt from gp;
  24                   AttachPoint  : Pnt from gp;
  25                   first        : Boolean from Standard);
  26                    ---Purpose: draws the representation of a MidPoint between
  27                    --          two vertices.
  28
  29     Add( myclass; aPresentation: Presentation from Prs3d;
  30                   aDrawer      : Drawer from Prs3d;
  31                   theAxe       : Ax2 from gp;
  32                   MidPoint     : Pnt from gp;
  33                   Position     : Pnt from gp;
  34                   AttachPoint  : Pnt from gp;
  35                   Point1       : Pnt from gp;
  36                   Point2       : Pnt from gp;
  37                   first        : Boolean from Standard);
  38                    ---Purpose: draws the representation of a MidPoint between
  39                    --          two lines or linear segments.
  40
  41     Add( myclass; aPresentation: Presentation from Prs3d;
  42                   aDrawer      : Drawer from Prs3d;
  43                   aCircle      : Circ from gp;
  44                   MidPoint     : Pnt from gp;
  45                   Position     : Pnt from gp;
  46                   AttachPoint  : Pnt from gp;
  47                   Point1       : Pnt from gp;
  48                   Point2       : Pnt from gp;
  49                   first        : Boolean from Standard);
  50                    ---Purpose: draws the representation of a MidPoint between
  51                    --          two entire circles or two circular arcs.
  52
  53     Add( myclass; aPresentation: Presentation from Prs3d;
  54                   aDrawer      : Drawer from Prs3d;
  55                   anElips      : Elips from gp;
  56                   MidPoint     : Pnt from gp;
  57                   Position     : Pnt from gp;
  58                   AttachPoint  : Pnt from gp;
  59                   Point1       : Pnt from gp;
  60                   Point2       : Pnt from gp;
  61                   first        : Boolean from Standard);
  62                    ---Purpose: draws the representation of a MidPoint between
  63                    --          two entire ellipses or two elliptic arcs.
  64
  65 end MidPointPresentation;