1 -- Created on: 1999-04-15
2 -- Created by: Roman LYGIN
3 -- Copyright (c) 1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
6 -- This file is part of Open CASCADE Technology software library.
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
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.
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
17 class SplitCurve3dContinuity from ShapeUpgrade inherits SplitCurve3d from ShapeUpgrade
19 ---Purpose: Corrects/splits a 2d curve with a continuity criterion.
20 -- Tolerance is used to correct the curve at a knot that respects
21 -- geometrically the criterion, in order to reduce the
22 -- multiplicity of the knot.
31 Create returns SplitCurve3dContinuity from ShapeUpgrade;
32 ---Purpose: Empty constructor.
34 SetCriterion (me: mutable; Criterion: Shape from GeomAbs);
35 ---Purpose: Sets criterion for splitting.
37 SetTolerance (me: mutable; Tol: Real);
38 ---Purpose: Sets tolerance.
41 Compute(me: mutable) is redefined;
42 ---Purpose: Calculates points for correction/splitting of the curve
44 GetCurve(me) returns Curve from Geom;
50 myCriterion: Shape from GeomAbs;
54 end SplitCurve3dContinuity;