src/GeomConvert/GeomConvert_CompCurveToBSplineCurve.cdl

   1 -- Created on: 1996-09-23
   2 -- Created by: Philippe MANGIN
   3 -- Copyright (c) 1996-1999 Matra Datavision
   4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
   5 --
   6 -- The content of this file is subject to the Open CASCADE Technology Public
   7 -- License Version 6.5 (the "License"). You may not use the content of this file
   8 -- except in compliance with the License. Please obtain a copy of the License
   9 -- at http://www.opencascade.org and read it completely before using this file.
  10 --
  11 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  12 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  13 --
  14 -- The Original Code and all software distributed under the License is
  15 -- distributed on an "AS IS" basis, without warranty of any kind, and the
  16 -- Initial Developer hereby disclaims all such warranties, including without
  17 -- limitation, any warranties of merchantability, fitness for a particular
  18 -- purpose or non-infringement. Please see the License for the specific terms
  19 -- and conditions governing the rights and limitations under the License.
  20
  21 -- Modified:    Fri Jul 10 11:23:35 1998
  22 --              JCT : Add WithRatio,MinM
  23
  24
  25 class CompCurveToBSplineCurve from GeomConvert
  26
  27         ---Purpose: Concat several curve in an BSplineCurve
  28
  29 uses
  30  ParameterisationType from Convert,
  31  BoundedCurve from Geom,
  32  BSplineCurve from Geom
  33
  34 --raises
  35
  36 is
  37
  38     Create(Parameterisation : ParameterisationType from Convert =  Convert_TgtThetaOver2);
  39     ---Purpose: Initialize the algorithme
  40     --        - Parameterisation is used to convert
  41
  42
  43     Create (BasisCurve : BoundedCurve from Geom;
  44             Parameterisation : ParameterisationType from Convert
  45                        =  Convert_TgtThetaOver2)
  46          ---Purpose: Initialize the algorithme with one curve
  47          --        - Parameterisation is used to convert
  48     returns CompCurveToBSplineCurve;
  49
  50
  51     Add (me : in out;
  52          NewCurve   :  BoundedCurve from Geom;
  53          Tolerance  :  Real from Standard;
  54          After      :  Boolean from Standard = Standard_False;
  55          WithRatio  :  Boolean from Standard = Standard_True;
  56          MinM       :  Integer  from  Standard  =  0)
  57         ---Purpose: Append a curve in  the BSpline Return False if the
  58         --          curve is not G0  with the BSplineCurve.  Tolerance
  59         --             is   used to   check   continuity  and decrease
  60         --          Multiplicity at the common Knot until MinM
  61         --          if MinM = 0, the common Knot can be removed
  62     returns Boolean;
  63
  64
  65     Add (me : in out;
  66          FirstCurve : in out BSplineCurve from Geom;
  67          SecondCurve: in out BSplineCurve from Geom;
  68          After      : Boolean from Standard;
  69          WithRatio  : Boolean from Standard;
  70          MinM       : Integer from Standard)
  71         ---Purpose: Concat two BSplineCurves.
  72         is private;
  73
  74     BSplineCurve(me) returns BSplineCurve from Geom;
  75
  76     Clear(me : in out);
  77     ---Purpose: Clear a result curve
  78
  79 fields
  80  myCurve :  BSplineCurve from Geom;
  81  myTol   :  Real;
  82  myType  :  ParameterisationType from Convert;
  83
  84 end CompCurveToBSplineCurve;