src/DsgPrs/DsgPrs_XYZAxisPresentation.cdl

   1 -- File:        DsgPrs_XYZAxisPresentation.cdl
   2 -- Created:     Mon Feb 10 14:50:11 1997
   3 -- Author:      Odile Olivier
   4 --              <odl@sacadox.paris1.matra-dtv.fr>
   5 ---Copyright:    Matra Datavision 1997
   6
   7 --  SAV : OCC218 06/03/02 : Add(...) overloaded to take into account arrow & text
   8 --                          aspects.
   9
  10 class XYZAxisPresentation from DsgPrs
  11         ---Purpose: A framework for displaying the axes of an XYZ trihedron.
  12 uses
  13
  14     Presentation from Prs3d,
  15     LineAspect   from Prs3d,
  16     Pnt          from gp,
  17     Dir          from gp,
  18     ArrowAspect from Prs3d,
  19     TextAspect from Prs3d
  20
  21 is
  22
  23     Add(myclass;
  24         aPresentation: Presentation from Prs3d;
  25         anLineAspect : LineAspect from Prs3d;
  26         aDir         : Dir from gp;
  27         aVal         : Real from Standard;
  28         aText        : CString from Standard;
  29         aPfirst      : Pnt    from gp;
  30         aPlast       : Pnt    from gp);
  31
  32         ---Purpose: Draws each axis of a trihedron displayed in the
  33         -- presentation aPresentation and with lines shown by
  34         -- the values of aLineAspect. Each axis is defined by:
  35         -- -   the first and last points aPfirst and aPlast
  36         -- -   the direction aDir and
  37         -- -   the value aVal which provides a value for length.
  38         --  The value for length is provided so that the trihedron
  39         -- can vary in length relative to the scale of shape display.
  40         -- Each axis will be identified as X, Y, or Z by the text aText.
  41
  42
  43     Add(myclass;
  44         aPresentation : Presentation from Prs3d;
  45         aLineAspect   : LineAspect from Prs3d;
  46         anArrowAspect : ArrowAspect from Prs3d;
  47         aTextAspect   : TextAspect from Prs3d;
  48         aDir          : Dir from gp;
  49         aVal          : Real from Standard;
  50         aText         : CString from Standard;
  51         aPfirst       : Pnt    from gp;
  52         aPlast        : Pnt    from gp);
  53
  54         ---Purpose: draws the presentation X ,Y ,Z axis
  55
  56 end XYZAxisPresentation;