b311480e |
1 | -- Created on: 2000-06-07 |
2 | -- Created by: Galina KULIKOVA |
3 | -- Copyright (c) 2000-2012 OPEN CASCADE SAS |
4 | -- |
5 | -- The content of this file is subject to the Open CASCADE Technology Public |
6 | -- License Version 6.5 (the "License"). You may not use the content of this file |
7 | -- except in compliance with the License. Please obtain a copy of the License |
8 | -- at http://www.opencascade.org and read it completely before using this file. |
9 | -- |
10 | -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its |
11 | -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France. |
12 | -- |
13 | -- The Original Code and all software distributed under the License is |
14 | -- distributed on an "AS IS" basis, without warranty of any kind, and the |
15 | -- Initial Developer hereby disclaims all such warranties, including without |
16 | -- limitation, any warranties of merchantability, fitness for a particular |
17 | -- purpose or non-infringement. Please see the License for the specific terms |
18 | -- and conditions governing the rights and limitations under the License. |
19 | |
7fd59977 |
20 | |
21 | |
22 | class FixSmallCurves from ShapeUpgrade inherits Tool from ShapeUpgrade |
23 | |
24 | ---Purpose: |
25 | |
26 | uses |
27 | SplitCurve3d from ShapeUpgrade, |
28 | SplitCurve2d from ShapeUpgrade, |
29 | --HArray1OfCurve from TColGeom, |
30 | --HArray1OfCurve from TColGeom2d, |
31 | --HSequenceOfReal from TColStd, |
32 | Edge from TopoDS, |
33 | Face from TopoDS, |
34 | Curve from Geom, |
35 | Curve from Geom2d, |
36 | Status from ShapeExtend |
37 | is |
38 | |
39 | Create returns FixSmallCurves from ShapeUpgrade; |
40 | ---Purpose : |
41 | --Init(me : mutable; theCurve3d : Curve from Geom; theCurve2d : Curve from Geom2d); |
42 | Init(me : mutable; theEdge : Edge from TopoDS; theFace : Face from TopoDS); |
43 | ---Purpose : |
44 | Approx(me : mutable; Curve3d : out Curve from Geom; |
45 | Curve2d : out Curve from Geom2d; |
46 | Curve2dR : out Curve from Geom2d; |
47 | First, Last : in out Real) returns Boolean is virtual; |
48 | -- theKnots3d : in out HSequenceOfReal from TColStd; |
49 | -- theSegments2d :in out HArray1OfCurve from TColGeom2d; |
50 | -- theKnots2d : in out HSequenceOfReal from TColStd) returns Boolean is virtual; |
51 | ---Purpose : |
52 | SetSplitCurve3dTool(me: mutable; splitCurve3dTool: SplitCurve3d from ShapeUpgrade); |
53 | ---Purpose: Sets the tool for splitting 3D curves. |
54 | |
55 | SetSplitCurve2dTool(me: mutable; splitCurve2dTool: SplitCurve2d from ShapeUpgrade); |
56 | ---Purpose: Sets the tool for splitting pcurves. |
57 | |
58 | |
59 | GetSplitCurve3dTool(me) returns SplitCurve3d from ShapeUpgrade |
60 | is virtual protected; |
61 | |
62 | GetSplitCurve2dTool(me) returns SplitCurve2d from ShapeUpgrade |
63 | is virtual protected; |
64 | |
65 | ---Purpose: Returns the tool for splitting pcurves. |
66 | Status (me; status: Status from ShapeExtend) returns Boolean; |
67 | ---Purpose: Queries the status of last call to Perform |
68 | -- OK : |
69 | -- DONE1: |
70 | -- DONE2: |
71 | -- FAIL1: |
72 | |
73 | fields |
74 | |
75 | myStatus : Integer is protected; |
76 | mySplitCurve3dTool: SplitCurve3d from ShapeUpgrade is protected; |
77 | mySplitCurve2dTool: SplitCurve2d from ShapeUpgrade is protected; |
78 | myEdge : Edge from TopoDS is protected; |
79 | myFace : Face from TopoDS is protected; |
80 | --myCurve3d : Curve from Geom; |
81 | --myCurve2d : Curve from Geom; |
82 | |
83 | end FixSmallCurves; |