src/Prs2d/Prs2d_Cylindric.cdl

   1 -- Created by: TCL
   2 -- Copyright (c) 2000-2012 OPEN CASCADE SAS
   3 --
   4 -- The content of this file is subject to the Open CASCADE Technology Public
   5 -- License Version 6.5 (the "License"). You may not use the content of this file
   6 -- except in compliance with the License. Please obtain a copy of the License
   7 -- at http://www.opencascade.org and read it completely before using this file.
   8 --
   9 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  10 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  11 --
  12 -- The Original Code and all software distributed under the License is
  13 -- distributed on an "AS IS" basis, without warranty of any kind, and the
  14 -- Initial Developer hereby disclaims all such warranties, including without
  15 -- limitation, any warranties of merchantability, fitness for a particular
  16 -- purpose or non-infringement. Please see the License for the specific terms
  17 -- and conditions governing the rights and limitations under the License.
  18
  19
  20 class Cylindric from Prs2d inherits Tolerance from Prs2d
  21
  22 uses
  23
  24         GraphicObject from Graphic2d,
  25         Drawer        from Graphic2d,
  26         Length        from Quantity,
  27     FStream       from Aspect
  28
  29 is
  30         -------------------------
  31         -- Category: Constructors
  32         -------------------------
  33
  34         Create( aGO                    : GraphicObject from Graphic2d;
  35             aX, aY                 : Real          from Standard;
  36                     aLength                : Real          from Standard = 3.0;
  37             anAngle                : Real          from Standard = 0.0 );
  38         ---Level: Public
  39         ---Purpose: Creates a tolerance Cylindric with the center at <aX>, <aY>;
  40         --          length of this is <aLength>;
  41         --          reference point is <aXPosition>, <aYPosition>
  42         ---Category: Constructor
  43
  44     --------------------------
  45         -- Category: Draw and Pick
  46         --------------------------
  47
  48         Draw( me : mutable; aDrawer: Drawer from Graphic2d ) is static protected;
  49         ---Level: Internal
  50         ---Purpose: Draws the Cylindric <me>.
  51
  52         Save( me; aFStream: in out FStream from Aspect ) is virtual;
  53
  54 end Cylindric from Prs2d;