7fd59977 |
1 | -- File: ShapeCustom_TrsfModification.cdl |
2 | -- Created: Tue Mar 9 13:59:08 1999 |
3 | -- Author: Roman LYGIN |
4 | -- <rln@kinox.nnov.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 1999 |
6 | |
7 | |
8 | private class TrsfModification from ShapeCustom inherits TrsfModification from BRepTools |
9 | |
10 | ---Purpose: Complements BRepTools_TrsfModification to provide reversible |
11 | -- scaling regarding tolerances. |
12 | -- Uses actual tolerances (attached to the shapes) not ones |
13 | -- returned by BRep_Tool::Tolerance to work with tolerances |
14 | -- lower than Precision::Confusion. |
15 | |
16 | uses |
17 | Face from TopoDS, |
18 | Edge from TopoDS, |
19 | Vertex from TopoDS, |
20 | Location from TopLoc, |
21 | Shape from GeomAbs, |
22 | |
23 | Surface from Geom, |
24 | Curve from Geom, |
25 | Curve from Geom2d, |
26 | |
27 | Trsf from gp, |
28 | Pnt from gp |
29 | |
30 | is |
31 | Create (T: Trsf from gp) returns mutable TrsfModification from ShapeCustom; |
32 | ---Purpose: Empty constructor |
33 | |
34 | NewSurface (me: mutable; F : Face from TopoDS; |
35 | S : out Surface from Geom; |
36 | L : out Location from TopLoc; |
37 | Tol : out Real from Standard; |
38 | RevWires: out Boolean from Standard; |
39 | RevFace : out Boolean from Standard) |
40 | returns Boolean from Standard; |
41 | ---Purpose: Calls inherited method. |
42 | -- Sets <Tol> as actual tolerance of <F> multiplied with scale |
43 | -- factor. |
44 | |
45 | NewCurve (me: mutable; E : Edge from TopoDS; |
46 | C : out Curve from Geom; |
47 | L : out Location from TopLoc; |
48 | Tol: out Real from Standard) |
49 | returns Boolean from Standard; |
50 | ---Purpose: Calls inherited method. |
51 | -- Sets <Tol> as actual tolerance of <E> multiplied with scale |
52 | -- factor. |
53 | |
54 | NewPoint (me: mutable; V : Vertex from TopoDS; |
55 | P : out Pnt from gp; |
56 | Tol: out Real from Standard) |
57 | returns Boolean from Standard; |
58 | ---Purpose: Calls inherited method. |
59 | -- Sets <Tol> as actual tolerance of <V> multiplied with scale |
60 | -- factor. |
61 | |
62 | NewCurve2d (me: mutable; E : Edge from TopoDS; |
63 | F : Face from TopoDS; |
64 | NewE : Edge from TopoDS; |
65 | NewF : Face from TopoDS; |
66 | C : out Curve from Geom2d; |
67 | Tol : out Real from Standard) |
68 | returns Boolean from Standard; |
69 | ---Purpose: Calls inherited method. |
70 | -- Sets <Tol> as actual tolerance of <E> multiplied with scale |
71 | -- factor. |
72 | |
73 | NewParameter (me: mutable; V : Vertex from TopoDS; |
74 | E : Edge from TopoDS; |
75 | P : out Real from Standard; |
76 | Tol: out Real from Standard) |
77 | returns Boolean from Standard; |
78 | ---Purpose: Calls inherited method. |
79 | -- Sets <Tol> as actual tolerance of <V> multiplied with scale |
80 | -- factor. |
81 | |
82 | end TrsfModification; |