0024830: Remove redundant keyword 'mutable' in CDL declarations
[occt.git] / src / ShapeUpgrade / ShapeUpgrade_SplitCurve2dContinuity.cdl
CommitLineData
b311480e 1-- Created on: 1999-04-14
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
17class SplitCurve2dContinuity from ShapeUpgrade inherits SplitCurve2d from ShapeUpgrade
18
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.
23
24uses
25
26 Curve from Geom2d,
27 Shape from GeomAbs
28
29is
30
31 Create returns SplitCurve2dContinuity from ShapeUpgrade;
32 ---Purpose: Empty constructor.
33
34 SetCriterion (me: mutable; Criterion: Shape from GeomAbs);
35 ---Purpose: Sets criterion for splitting.
36
37 SetTolerance (me: mutable; Tol: Real);
38 ---Purpose: Sets tolerance.
39
40
41 Compute(me: mutable) is redefined;
42 ---Purpose: Calculates points for correction/splitting of the curve
43
44
45
46fields
47
48 myCriterion: Shape from GeomAbs;
49 myCont : Integer;
50 myTolerance: Real;
51
52end SplitCurve2dContinuity;