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-2014 OPEN CASCADE SAS
   5 --
   6 -- This file is part of Open CASCADE Technology software library.
   7 --
   8 -- This library is free software; you can redistribute it and / or modify it
   9 -- under the terms of the GNU Lesser General Public version 2.1 as published
  10 -- by the Free Software Foundation, with special exception defined in the file
  11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  12 -- distribution for complete text of the license and disclaimer of any warranty.
  13 --
  14 -- Alternatively, this file may be used under the terms of Open CASCADE
  15 -- commercial license or contractual agreement.
  16
  17 class IdenticPresentation from DsgPrs
  18
  19         ---Purpose:
  20
  21 uses
  22
  23     Presentation   from Prs3d,
  24     Drawer         from Prs3d,
  25     ExtendedString from TCollection,
  26     Pnt            from gp,
  27     Dir            from gp,
  28     Ax2            from gp,
  29     Elips          from gp -- jfa 10/10/2000
  30
  31 is
  32
  33      Add( myclass; aPresentation: Presentation from Prs3d;
  34                    aDrawer: Drawer from Prs3d;
  35                    aText: ExtendedString from TCollection;
  36                    aPntAttach : Pnt from gp;
  37                    aPntOffset : Pnt from gp);
  38         ---Purpose: draws a line between <aPntAttach> and
  39         --          <aPntOffset>.
  40
  41
  42      Add( myclass; aPresentation: Presentation from Prs3d;
  43                    aDrawer: Drawer from Prs3d;
  44                    aText: ExtendedString from TCollection;
  45                    aFAttach : Pnt from gp;
  46                    aSAttach : Pnt from gp;
  47                    aPntOffset : Pnt from gp);
  48         ---Purpose: draws the 'identic' presentation by
  49         --          drawing a line between <aFAttach> and
  50         --          <aSAttach> , and a linkimg segment
  51         --          between <aPntOffset> and its projection
  52         --          on the precedent line.
  53
  54     Add( myclass; aPresentation: Presentation from Prs3d;
  55                   aDrawer: Drawer from Prs3d;
  56                   aText: ExtendedString from TCollection;
  57                   aAx2     : Ax2 from gp;
  58                   aCenter  : Pnt from gp;
  59                   aFAttach : Pnt from gp;
  60                   aSAttach : Pnt from gp;
  61                   aPntOffset : Pnt from gp);
  62         ---Purpose: draws the 'identic' presentation in the case of
  63         --          circles : draws an arc of circle between
  64         --          <aFAttach> and <aSAttach> of center <aCenter>
  65         --          and of radius dist(aCenter, aFAttach), and
  66         --          draws a segment between <aPntOffset> and
  67         --          its projection on the arc.
  68
  69     -- jfa 16/10/2000
  70     Add( myclass; aPresentation: Presentation from Prs3d;
  71                   aDrawer: Drawer from Prs3d;
  72                   aText: ExtendedString from TCollection;
  73                   aAx2     : Ax2 from gp;
  74                   aCenter  : Pnt from gp;
  75                   aFAttach : Pnt from gp;
  76                   aSAttach : Pnt from gp;
  77                   aPntOffset : Pnt from gp;
  78                   aPntOnCirc : Pnt from gp);
  79         ---Purpose: draws the 'identic' presentation in the case of
  80         --          circles : draws an arc of circle between
  81         --          <aFAttach> and <aSAttach> of center <aCenter>
  82         --          and of radius dist(aCenter, aFAttach), and
  83         --          draws a segment between <aPntOffset> and <aPntOnCirc>
  84
  85     -- jfa 16/10/2000
  86
  87     -- jfa 10/10/2000 for ellipses identity presentation
  88     Add( myclass; aPresentation: Presentation from Prs3d;
  89                   aDrawer: Drawer from Prs3d;
  90                   aText: ExtendedString from TCollection;
  91                   anEllipse: Elips from gp;
  92                   aFAttach : Pnt from gp;
  93                   aSAttach : Pnt from gp;
  94                   aPntOffset : Pnt from gp;
  95                   aPntOnElli : Pnt from gp);
  96         ---Purpose: draws the 'identic' presentation in the case of
  97         --          ellipses: draws an arc of the anEllipse
  98         --          between <aFAttach> and <aSAttach> and
  99         --          draws a segment between <aPntOffset> and <aPntOnElli>
 100
 101     -- jfa 10/10/2000 end
 102
 103 end IdenticPresentation;
 104