src/DsgPrs/DsgPrs_LengthPresentation.cdl

   1 -- File:        DsgPrs_LengthPresentation.cdl
   2 -- Created:     Thu Jun  3 09:41:39 1993
   3 -- Author:      Jean-Louis FRENKEL
   4 --              <jlf@stylox>
   5 ---Copyright:    Matra Datavision 1993
   6
   7
   8
   9 class LengthPresentation from DsgPrs
  10         ---Purpose: Framework for displaying lengths.
  11         -- The length displayed is indicated by line segments
  12         -- and text alone or by a combination of line segment,
  13         -- text and   arrows at either or both of its ends.
  14 uses
  15     Presentation from Prs3d,
  16     Pnt from gp,
  17     Dir from gp,
  18     Drawer from Prs3d,
  19     ExtendedString from TCollection,
  20     ArrowSide from DsgPrs,
  21
  22     Pln from gp,
  23     Surface from Geom
  24 is
  25     Add( myclass; aPresentation: Presentation from Prs3d;
  26                   aDrawer: Drawer from Prs3d;
  27                   aText: ExtendedString from TCollection;
  28                   AttachmentPoint1: Pnt from gp;
  29                   AttachmentPoint2: Pnt from gp;
  30                   aDirection: Dir from gp;
  31                   OffsetPoint: Pnt from gp);
  32         ---Purpose: Draws a line segment representing a length in the
  33         -- display aPresentation.
  34         -- This segment joins the points AttachmentPoint1 and
  35         -- AttachmentPoint2, along the direction aDirection.
  36         -- The text aText will be displayed at the offset point OffsetPoint.
  37         -- The line and text attributes are specified by the
  38         -- attribute manager aDrawer.
  39
  40     Add( myclass; aPresentation    : Presentation   from Prs3d;
  41                   aDrawer          : Drawer         from Prs3d;
  42                   aText            : ExtendedString from TCollection;
  43                   AttachmentPoint1 : Pnt            from gp;
  44                   AttachmentPoint2 : Pnt            from gp;
  45                   aDirection       : Dir            from gp;
  46                   OffsetPoint      : Pnt            from gp;
  47                   ArrowSide        : ArrowSide      from DsgPrs );
  48         ---Purpose: Draws a line segment representing a length in the
  49         -- display aPresentation.
  50         -- This segment joins the points AttachmentPoint1 and
  51         -- AttachmentPoint2, along the direction aDirection.
  52         -- The text aText will be displayed at the offset point
  53         -- OffsetPoint. The value of the enumeration ArrowSide
  54         -- controls whether arrows will be displayed at either or
  55         -- both ends of the length.
  56         -- The line, text and arrow attributes are specified by the
  57         -- attribute manager aDrawer.
  58
  59     Add( myclass; aPresentation    : Presentation   from Prs3d;
  60                   aDrawer          : Drawer         from Prs3d;
  61                   aText            : ExtendedString from TCollection;
  62                   AttachmentPoint1 : Pnt            from gp;
  63                   AttachmentPoint2 : Pnt            from gp;
  64                   PlaneOfFaces     : Pln            from gp;
  65                   aDirection       : Dir            from gp;
  66                   OffsetPoint      : Pnt            from gp;
  67                   ArrowSide        : ArrowSide      from DsgPrs );
  68         ---Purpose: Draws a line segment representing a length in the
  69         -- display aPresentation.
  70         -- This segment joins the points AttachmentPoint1 and
  71         -- AttachmentPoint2, along the direction aDirection.
  72         -- The text aText will be displayed at the offset point
  73         -- OffsetPoint. The value of the enumeration ArrowSide
  74         -- controls whether arrows will be displayed at either or
  75         -- both ends of the length.
  76         -- The plane PlaneOfFaces is used if length is null.
  77         -- The line, text and arrow attributes are specified by the
  78         -- attribute manager aDrawer.
  79
  80     Add( myclass; aPresentation    : Presentation   from Prs3d;
  81                   aDrawer          : Drawer         from Prs3d;
  82                   aText            : ExtendedString from TCollection;
  83                   SecondSurf       : Surface        from Geom;
  84                   AttachmentPoint1 : Pnt            from gp;
  85                   AttachmentPoint2 : Pnt            from gp;
  86                   aDirection       : Dir            from gp;
  87                   OffsetPoint      : Pnt            from gp;
  88                   ArrowSide        : ArrowSide      from DsgPrs );
  89         ---Purpose: Draws a line segment representing a length in the
  90         -- display aPresentation.
  91         -- This segment joins the points AttachmentPoint1 and
  92         -- AttachmentPoint2, along the direction
  93         -- aDirection.   AttachmentPoint2 lies on the curvilinear
  94         -- faces SecondSurf. The text aText will be displayed at
  95         -- the offset point OffsetPoint. The value of the
  96         -- enumeration ArrowSide controls whether arrows will
  97         -- be displayed at either or both ends of the length.
  98         -- The line, text and arrow attributes are specified by the
  99         -- attribute manager aDrawer.
 100
 101
 102     Add(myclass;
 103         aPresentation: Presentation from Prs3d;
 104         aDrawer      : Drawer from Prs3d;
 105         Pt1          : Pnt from gp;
 106         Pt2          : Pnt from gp;
 107         ArrowSide    : ArrowSide from DsgPrs);
 108         ---Purpose: Draws a line segment representing a length in the
 109         -- display aPresentation.
 110         -- This segment joins the points AttachmentPoint1 and
 111         -- AttachmentPoint2, along the direction aDirection.
 112         -- The value of the enumeration ArrowSide controls
 113         -- whether arrows will be displayed at either or both ends of the length.
 114         -- The line and arrow attributes are specified by the attribute manager aDrawer.
 115
 116 end LengthPresentation;