src/DsgPrs/DsgPrs_IdenticPresentation.cdl

   1 -- Created on: 1997-01-03
   2 -- Created by: Stagiaire Flore Lautheanne
   3 -- Copyright (c) 1997-1999 Matra Datavision
   4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
   5 --
   6 -- The content of this file is subject to the Open CASCADE Technology Public
   7 -- License Version 6.5 (the "License"). You may not use the content of this file
   8 -- except in compliance with the License. Please obtain a copy of the License
   9 -- at http://www.opencascade.org and read it completely before using this file.
  10 --
  11 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  12 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  13 --
  14 -- The Original Code and all software distributed under the License is
  15 -- distributed on an "AS IS" basis, without warranty of any kind, and the
  16 -- Initial Developer hereby disclaims all such warranties, including without
  17 -- limitation, any warranties of merchantability, fitness for a particular
  18 -- purpose or non-infringement. Please see the License for the specific terms
  19 -- and conditions governing the rights and limitations under the License.
  20
  21
  22 class IdenticPresentation from DsgPrs
  23
  24         ---Purpose:
  25
  26 uses
  27
  28     Presentation   from Prs3d,
  29     Drawer         from Prs3d,
  30     ExtendedString from TCollection,
  31     Pnt            from gp,
  32     Dir            from gp,
  33     Ax2            from gp,
  34     Elips          from gp -- jfa 10/10/2000
  35
  36 is
  37
  38      Add( myclass; aPresentation: Presentation from Prs3d;
  39                    aDrawer: Drawer from Prs3d;
  40                    aText: ExtendedString from TCollection;
  41                    aPntAttach : Pnt from gp;
  42                    aPntOffset : Pnt from gp);
  43         ---Purpose: draws a line between <aPntAttach> and
  44         --          <aPntOffset>.
  45
  46
  47      Add( myclass; aPresentation: Presentation from Prs3d;
  48                    aDrawer: Drawer from Prs3d;
  49                    aText: ExtendedString from TCollection;
  50                    aFAttach : Pnt from gp;
  51                    aSAttach : Pnt from gp;
  52                    aPntOffset : Pnt from gp);
  53         ---Purpose: draws the 'identic' presentation by
  54         --          drawing a line between <aFAttach> and
  55         --          <aSAttach> , and a linkimg segment
  56         --          between <aPntOffset> and its projection
  57         --          on the precedent line.
  58
  59     Add( myclass; aPresentation: Presentation from Prs3d;
  60                   aDrawer: Drawer from Prs3d;
  61                   aText: ExtendedString from TCollection;
  62                   aAx2     : Ax2 from gp;
  63                   aCenter  : Pnt from gp;
  64                   aFAttach : Pnt from gp;
  65                   aSAttach : Pnt from gp;
  66                   aPntOffset : Pnt from gp);
  67         ---Purpose: draws the 'identic' presentation in the case of
  68         --          circles : draws an arc of circle between
  69         --          <aFAttach> and <aSAttach> of center <aCenter>
  70         --          and of radius dist(aCenter, aFAttach), and
  71         --          draws a segment between <aPntOffset> and
  72         --          its projection on the arc.
  73
  74     -- jfa 16/10/2000
  75     Add( myclass; aPresentation: Presentation from Prs3d;
  76                   aDrawer: Drawer from Prs3d;
  77                   aText: ExtendedString from TCollection;
  78                   aAx2     : Ax2 from gp;
  79                   aCenter  : Pnt from gp;
  80                   aFAttach : Pnt from gp;
  81                   aSAttach : Pnt from gp;
  82                   aPntOffset : Pnt from gp;
  83                   aPntOnCirc : Pnt from gp);
  84         ---Purpose: draws the 'identic' presentation in the case of
  85         --          circles : draws an arc of circle between
  86         --          <aFAttach> and <aSAttach> of center <aCenter>
  87         --          and of radius dist(aCenter, aFAttach), and
  88         --          draws a segment between <aPntOffset> and <aPntOnCirc>
  89
  90     -- jfa 16/10/2000
  91
  92     -- jfa 10/10/2000 for ellipses identity presentation
  93     Add( myclass; aPresentation: Presentation from Prs3d;
  94                   aDrawer: Drawer from Prs3d;
  95                   aText: ExtendedString from TCollection;
  96                   anEllipse: Elips from gp;
  97                   aFAttach : Pnt from gp;
  98                   aSAttach : Pnt from gp;
  99                   aPntOffset : Pnt from gp;
 100                   aPntOnElli : Pnt from gp);
 101         ---Purpose: draws the 'identic' presentation in the case of
 102         --          ellipses: draws an arc of the anEllipse
 103         --          between <aFAttach> and <aSAttach> and
 104         --          draws a segment between <aPntOffset> and <aPntOnElli>
 105
 106     -- jfa 10/10/2000 end
 107
 108 end IdenticPresentation;
 109