src/DsgPrs/DsgPrs_IdenticPresentation.cdl

   1 -- File:        DsgPrs_IdenticPresentation.cdl
   2 -- Created:     Fri Jan  3 17:58:43 1997
   3 -- Author:      Stagiaire Flore Lautheanne
   4 --              <fla@chariox.paris1.matra-dtv.fr>
   5 ---Copyright:    Matra Datavision 1997
   6
   7 class IdenticPresentation from DsgPrs
   8
   9         ---Purpose:
  10
  11 uses
  12
  13     Presentation   from Prs3d,
  14     Drawer         from Prs3d,
  15     ExtendedString from TCollection,
  16     Pnt            from gp,
  17     Dir            from gp,
  18     Ax2            from gp,
  19     Elips          from gp -- jfa 10/10/2000
  20
  21 is
  22
  23      Add( myclass; aPresentation: Presentation from Prs3d;
  24                    aDrawer: Drawer from Prs3d;
  25                    aText: ExtendedString from TCollection;
  26                    aPntAttach : Pnt from gp;
  27                    aPntOffset : Pnt from gp);
  28         ---Purpose: draws a line between <aPntAttach> and
  29         --          <aPntOffset>.
  30
  31
  32      Add( myclass; aPresentation: Presentation from Prs3d;
  33                    aDrawer: Drawer from Prs3d;
  34                    aText: ExtendedString from TCollection;
  35                    aFAttach : Pnt from gp;
  36                    aSAttach : Pnt from gp;
  37                    aPntOffset : Pnt from gp);
  38         ---Purpose: draws the 'identic' presentation by
  39         --          drawing a line between <aFAttach> and
  40         --          <aSAttach> , and a linkimg segment
  41         --          between <aPntOffset> and its projection
  42         --          on the precedent line.
  43
  44     Add( myclass; aPresentation: Presentation from Prs3d;
  45                   aDrawer: Drawer from Prs3d;
  46                   aText: ExtendedString from TCollection;
  47                   aAx2     : Ax2 from gp;
  48                   aCenter  : Pnt from gp;
  49                   aFAttach : Pnt from gp;
  50                   aSAttach : Pnt from gp;
  51                   aPntOffset : Pnt from gp);
  52         ---Purpose: draws the 'identic' presentation in the case of
  53         --          circles : draws an arc of circle between
  54         --          <aFAttach> and <aSAttach> of center <aCenter>
  55         --          and of radius dist(aCenter, aFAttach), and
  56         --          draws a segment between <aPntOffset> and
  57         --          its projection on the arc.
  58
  59     -- jfa 16/10/2000
  60     Add( myclass; aPresentation: Presentation from Prs3d;
  61                   aDrawer: Drawer from Prs3d;
  62                   aText: ExtendedString from TCollection;
  63                   aAx2     : Ax2 from gp;
  64                   aCenter  : Pnt from gp;
  65                   aFAttach : Pnt from gp;
  66                   aSAttach : Pnt from gp;
  67                   aPntOffset : Pnt from gp;
  68                   aPntOnCirc : Pnt from gp);
  69         ---Purpose: draws the 'identic' presentation in the case of
  70         --          circles : draws an arc of circle between
  71         --          <aFAttach> and <aSAttach> of center <aCenter>
  72         --          and of radius dist(aCenter, aFAttach), and
  73         --          draws a segment between <aPntOffset> and <aPntOnCirc>
  74
  75     -- jfa 16/10/2000
  76
  77     -- jfa 10/10/2000 for ellipses identity presentation
  78     Add( myclass; aPresentation: Presentation from Prs3d;
  79                   aDrawer: Drawer from Prs3d;
  80                   aText: ExtendedString from TCollection;
  81                   anEllipse: Elips from gp;
  82                   aFAttach : Pnt from gp;
  83                   aSAttach : Pnt from gp;
  84                   aPntOffset : Pnt from gp;
  85                   aPntOnElli : Pnt from gp);
  86         ---Purpose: draws the 'identic' presentation in the case of
  87         --          ellipses: draws an arc of the anEllipse
  88         --          between <aFAttach> and <aSAttach> and
  89         --          draws a segment between <aPntOffset> and <aPntOnElli>
  90
  91     -- jfa 10/10/2000 end
  92
  93 end IdenticPresentation;
  94