blob: 30e88f8a26ea35461b743668114131da6d6e6369 (
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
-- File: ShapeUpgrade_Tool.cdl
-- Created: Tue Aug 31 15:08:56 1999
-- Author: Pavel DURANDIN
-- <pdn@friendox.nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1999
private class Tool from ShapeUpgrade inherits TShared from MMgt
---Purpose: Tool is a root class for splitting classes
-- Provides context for recording changes, basic
-- precision value and limit (minimal and maximal)
-- values for tolerances
uses
ReShape from ShapeBuild
is
Create returns Tool from ShapeUpgrade;
---Purpose: Empty constructor
Set (me: mutable; tool: Tool from ShapeUpgrade);
---Purpose: Copy all fields from another Root object
SetContext (me: mutable; context : ReShape from ShapeBuild);
---Purpose: Sets context
---C++: inline
Context (me) returns ReShape from ShapeBuild;
---Purpose: Returns context
---C++: inline
SetPrecision (me: mutable; preci: Real);
---Purpose: Sets basic precision value
---C++: inline
Precision (me) returns Real;
---Purpose: Returns basic precision value
---C++: inline
SetMinTolerance (me: mutable; mintol: Real);
---Purpose: Sets minimal allowed tolerance
---C++: inline
MinTolerance (me) returns Real;
---Purpose: Returns minimal allowed tolerance
---C++: inline
SetMaxTolerance (me: mutable; maxtol: Real);
---Purpose: Sets maximal allowed tolerance
---C++: inline
MaxTolerance (me) returns Real;
---Purpose: Returns maximal allowed tolerance
---C++: inline
LimitTolerance (me; toler: Real) returns Real;
---Purpose: Returns tolerance limited by [myMinTol,myMaxTol]
---C++: inline
fields
myContext : ReShape from ShapeBuild;
myPrecision: Real; -- basic precision
myMinTol : Real; -- minimal allowed tolerance
myMaxTol : Real; -- maximal allowed tolerance
end Tool;
|
