0023510: Integration of test grid "vis" into the new testing system
[occt.git] / src / Prs2d / Prs2d_Straightness.cdl
CommitLineData
b311480e 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
7fd59977 19
20class Straightness from Prs2d inherits Tolerance from Prs2d
21
22uses
23
24 GraphicObject from Graphic2d,
25 Drawer from Graphic2d,
26 Length from Quantity,
27 FStream from Aspect
28
29is
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 straightness 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 straightness <me>.
51
52 Save( me; aFStream: in out FStream from Aspect ) is virtual;
53
54end Straightness from Prs2d;