b311480e |
1 | -- Created on: 1999-03-09 |
2 | -- Created by: Roman LYGIN |
3 | -- Copyright (c) 1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
b311480e |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
b311480e |
7 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
b311480e |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | private class TrsfModification from ShapeCustom inherits TrsfModification from BRepTools |
18 | |
19 | ---Purpose: Complements BRepTools_TrsfModification to provide reversible |
20 | -- scaling regarding tolerances. |
21 | -- Uses actual tolerances (attached to the shapes) not ones |
22 | -- returned by BRep_Tool::Tolerance to work with tolerances |
23 | -- lower than Precision::Confusion. |
24 | |
25 | uses |
26 | Face from TopoDS, |
27 | Edge from TopoDS, |
28 | Vertex from TopoDS, |
29 | Location from TopLoc, |
30 | Shape from GeomAbs, |
31 | |
32 | Surface from Geom, |
33 | Curve from Geom, |
34 | Curve from Geom2d, |
35 | |
36 | Trsf from gp, |
37 | Pnt from gp |
38 | |
39 | is |
40 | Create (T: Trsf from gp) returns mutable TrsfModification from ShapeCustom; |
41 | ---Purpose: Empty constructor |
42 | |
43 | NewSurface (me: mutable; F : Face from TopoDS; |
44 | S : out Surface from Geom; |
45 | L : out Location from TopLoc; |
46 | Tol : out Real from Standard; |
47 | RevWires: out Boolean from Standard; |
48 | RevFace : out Boolean from Standard) |
49 | returns Boolean from Standard; |
50 | ---Purpose: Calls inherited method. |
51 | -- Sets <Tol> as actual tolerance of <F> multiplied with scale |
52 | -- factor. |
53 | |
54 | NewCurve (me: mutable; E : Edge from TopoDS; |
55 | C : out Curve from Geom; |
56 | L : out Location from TopLoc; |
57 | Tol: out Real from Standard) |
58 | returns Boolean from Standard; |
59 | ---Purpose: Calls inherited method. |
60 | -- Sets <Tol> as actual tolerance of <E> multiplied with scale |
61 | -- factor. |
62 | |
63 | NewPoint (me: mutable; V : Vertex from TopoDS; |
64 | P : out Pnt from gp; |
65 | Tol: out Real from Standard) |
66 | returns Boolean from Standard; |
67 | ---Purpose: Calls inherited method. |
68 | -- Sets <Tol> as actual tolerance of <V> multiplied with scale |
69 | -- factor. |
70 | |
71 | NewCurve2d (me: mutable; E : Edge from TopoDS; |
72 | F : Face from TopoDS; |
73 | NewE : Edge from TopoDS; |
74 | NewF : Face from TopoDS; |
75 | C : out Curve from Geom2d; |
76 | Tol : out Real from Standard) |
77 | returns Boolean from Standard; |
78 | ---Purpose: Calls inherited method. |
79 | -- Sets <Tol> as actual tolerance of <E> multiplied with scale |
80 | -- factor. |
81 | |
82 | NewParameter (me: mutable; V : Vertex from TopoDS; |
83 | E : Edge from TopoDS; |
84 | P : out Real from Standard; |
85 | Tol: out Real from Standard) |
86 | returns Boolean from Standard; |
87 | ---Purpose: Calls inherited method. |
88 | -- Sets <Tol> as actual tolerance of <V> multiplied with scale |
89 | -- factor. |
90 | |
91 | end TrsfModification; |