7fd59977 |
1 | -- File: ShapeUpgrade_Tool.cdl |
2 | -- Created: Tue Aug 31 15:08:56 1999 |
3 | -- Author: Pavel DURANDIN |
4 | -- <pdn@friendox.nnov.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 1999 |
6 | |
7 | |
8 | private class Tool from ShapeUpgrade inherits TShared from MMgt |
9 | |
10 | ---Purpose: Tool is a root class for splitting classes |
11 | -- Provides context for recording changes, basic |
12 | -- precision value and limit (minimal and maximal) |
13 | -- values for tolerances |
14 | |
15 | uses |
16 | |
17 | ReShape from ShapeBuild |
18 | |
19 | is |
20 | |
21 | Create returns Tool from ShapeUpgrade; |
22 | ---Purpose: Empty constructor |
23 | |
24 | Set (me: mutable; tool: Tool from ShapeUpgrade); |
25 | ---Purpose: Copy all fields from another Root object |
26 | |
27 | SetContext (me: mutable; context : ReShape from ShapeBuild); |
28 | ---Purpose: Sets context |
29 | ---C++: inline |
30 | |
31 | Context (me) returns ReShape from ShapeBuild; |
32 | ---Purpose: Returns context |
33 | ---C++: inline |
34 | |
35 | SetPrecision (me: mutable; preci: Real); |
36 | ---Purpose: Sets basic precision value |
37 | ---C++: inline |
38 | |
39 | Precision (me) returns Real; |
40 | ---Purpose: Returns basic precision value |
41 | ---C++: inline |
42 | |
43 | SetMinTolerance (me: mutable; mintol: Real); |
44 | ---Purpose: Sets minimal allowed tolerance |
45 | ---C++: inline |
46 | |
47 | MinTolerance (me) returns Real; |
48 | ---Purpose: Returns minimal allowed tolerance |
49 | ---C++: inline |
50 | |
51 | SetMaxTolerance (me: mutable; maxtol: Real); |
52 | ---Purpose: Sets maximal allowed tolerance |
53 | ---C++: inline |
54 | |
55 | MaxTolerance (me) returns Real; |
56 | ---Purpose: Returns maximal allowed tolerance |
57 | ---C++: inline |
58 | |
59 | LimitTolerance (me; toler: Real) returns Real; |
60 | ---Purpose: Returns tolerance limited by [myMinTol,myMaxTol] |
61 | ---C++: inline |
62 | |
63 | fields |
64 | |
65 | myContext : ReShape from ShapeBuild; |
66 | myPrecision: Real; -- basic precision |
67 | myMinTol : Real; -- minimal allowed tolerance |
68 | myMaxTol : Real; -- maximal allowed tolerance |
69 | |
70 | end Tool; |