blob: 9832b4c0f6783bc2c553f8a23a1a0cbec142aac1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
-- File: Prs2d_Flatness.cdl
-- Created: October 2000
-- Author: TCL
---Copyright: Matra Datavision 2000
class Flatness from Prs2d inherits Tolerance from Prs2d
uses
GraphicObject from Graphic2d,
Drawer from Graphic2d,
Length from Quantity,
FStream from Aspect
is
-------------------------
-- Category: Constructors
-------------------------
Create( aGO : GraphicObject from Graphic2d;
aX, aY : Real from Standard;
aLength : Real from Standard = 3.0;
anAngle : Real from Standard = 0.0 );
---Level: Public
---Purpose: Creates a tolerance Flatness with the center at <aX>, <aY>;
-- length of this is <aLength>;
-- reference point is <aXPosition>, <aYPosition>
---Category: Constructor
--------------------------
-- Category: Draw and Pick
--------------------------
Draw( me : mutable; aDrawer: Drawer from Graphic2d ) is static protected;
---Level: Internal
---Purpose: Draws the Flatness <me>.
Save( me; aFStream: in out FStream from Aspect ) is virtual;
end Flatness from Prs2d;
|
