2 -- Copyright (c) 2000-2012 OPEN CASCADE SAS
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.
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.
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.
20 class Cylindric from Prs2d inherits Tolerance from Prs2d
24 GraphicObject from Graphic2d,
25 Drawer from Graphic2d,
30 -------------------------
31 -- Category: Constructors
32 -------------------------
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 );
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
44 --------------------------
45 -- Category: Draw and Pick
46 --------------------------
48 Draw( me : mutable; aDrawer: Drawer from Graphic2d ) is static protected;
50 ---Purpose: Draws the Cylindric <me>.
52 Save( me; aFStream: in out FStream from Aspect ) is virtual;
54 end Cylindric from Prs2d;