src/ShapeUpgrade/ShapeUpgrade_FixSmallCurves.cdl

   1 -- Created on: 2000-06-07
   2 -- Created by: Galina KULIKOVA
   3 -- Copyright (c) 2000-2014 OPEN CASCADE SAS
   4 --
   5 -- This file is part of Open CASCADE Technology software library.
   6 --
   7 -- This library is free software; you can redistribute it and/or modify it under
   8 -- the terms of the GNU Lesser General Public License version 2.1 as published
   9 -- by the Free Software Foundation, with special exception defined in the file
  10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  11 -- distribution for complete text of the license and disclaimer of any warranty.
  12 --
  13 -- Alternatively, this file may be used under the terms of Open CASCADE
  14 -- commercial license or contractual agreement.
  15
  16 class FixSmallCurves from ShapeUpgrade inherits Tool from ShapeUpgrade
  17
  18         ---Purpose:
  19
  20 uses
  21     SplitCurve3d from ShapeUpgrade,
  22     SplitCurve2d from ShapeUpgrade,
  23     --HArray1OfCurve from TColGeom,
  24     --HArray1OfCurve from TColGeom2d,
  25     --HSequenceOfReal from TColStd,
  26     Edge from TopoDS,
  27     Face from TopoDS,
  28     Curve from Geom,
  29     Curve from Geom2d,
  30     Status from ShapeExtend
  31 is
  32
  33     Create returns FixSmallCurves from ShapeUpgrade;
  34     ---Purpose :
  35     --Init(me : mutable; theCurve3d : Curve from Geom; theCurve2d : Curve from Geom2d);
  36     Init(me : mutable; theEdge : Edge from TopoDS; theFace : Face from TopoDS);
  37     ---Purpose :
  38     Approx(me : mutable; Curve3d :  out Curve from Geom;
  39                          Curve2d :  out Curve from Geom2d;
  40                          Curve2dR : out Curve from Geom2d;
  41                          First, Last : in out Real) returns Boolean is virtual;
  42    --                    theKnots3d : in out HSequenceOfReal from TColStd;
  43    --                    theSegments2d :in out HArray1OfCurve from TColGeom2d;
  44    --                    theKnots2d : in out HSequenceOfReal from TColStd) returns Boolean is virtual;
  45     ---Purpose :
  46      SetSplitCurve3dTool(me: mutable; splitCurve3dTool: SplitCurve3d from ShapeUpgrade);
  47         ---Purpose: Sets the tool for splitting 3D curves.
  48
  49     SetSplitCurve2dTool(me: mutable; splitCurve2dTool: SplitCurve2d from ShapeUpgrade);
  50         ---Purpose: Sets the tool for splitting pcurves.
  51
  52
  53     GetSplitCurve3dTool(me) returns SplitCurve3d from ShapeUpgrade
  54     is virtual protected;
  55
  56     GetSplitCurve2dTool(me) returns SplitCurve2d from ShapeUpgrade
  57     is virtual protected;
  58
  59         ---Purpose: Returns the tool for splitting pcurves.
  60     Status (me; status: Status from ShapeExtend) returns Boolean;
  61         ---Purpose: Queries the status of last call to Perform
  62         -- OK   :
  63         -- DONE1:
  64         -- DONE2:
  65         -- FAIL1:
  66
  67 fields
  68
  69     myStatus     : Integer is protected;
  70     mySplitCurve3dTool: SplitCurve3d from ShapeUpgrade is protected;
  71     mySplitCurve2dTool: SplitCurve2d from ShapeUpgrade is protected;
  72     myEdge : Edge from TopoDS is protected;
  73     myFace :  Face from TopoDS is protected;
  74     --myCurve3d : Curve from Geom;
  75     --myCurve2d :  Curve from Geom;
  76
  77 end FixSmallCurves;