src/Hermit/Hermit.cdl

   1 -- File:        Hermit.cdl
   2 -- Created:     Tue Feb 18 09:47:59 1997
   3 -- Author:      Stagiaire Francois DUMONT
   4 --              <dum@brunox.paris1.matra-dtv.fr>
   5 ---Copyright:    Matra Datavision 1997
   6
   7
   8 package Hermit
   9
  10         ---Purpose: This  is used to  reparameterize Rational  BSpline
  11         --           Curves so that we can   concatenate them later to
  12         --          build C1 Curves  It builds and 1D-reparameterizing
  13         --          function starting from an Hermite interpolation and
  14         --          adding knots and modifying poles of the 1D BSpline
  15         --          obtained that way. The goal is to build a(u) so that
  16         --          if we consider a BSpline curve
  17         --                          N(u)
  18         --                 f(u) =  -----
  19         --                          D(u)
  20         --
  21         --          the function a(u)D(u) has value 1 at the umin and umax
  22         --          and has 0.0e0 derivative value a umin and umax.
  23         --          The details of the computation occuring in this package
  24         --          can be found by reading :
  25         --          " Etude sur la concatenation de NURBS en vue du
  26         --            balayage de surfaces" PFE n S85 Ensam Lille
  27 uses
  28     Geom,
  29     Geom2d,
  30     TColStd,
  31     TColgp
  32
  33 is
  34
  35     Solution( BS     :  BSplineCurve from Geom;
  36               TolPoles : in Real from Standard=0.000001;
  37               TolKnots : in Real from Standard=0.000001)
  38       ---Purpose:returns the correct spline a(u) which will
  39       --                 be multiplicated with BS later.
  40     returns BSplineCurve from Geom2d;
  41
  42     Solution( BS     :  BSplineCurve from Geom2d;
  43               TolPoles : in Real from Standard=0.000001;
  44               TolKnots : in Real from Standard=0.000001)
  45       ---Purpose:returns the correct spline a(u) which will
  46       --                 be multiplicated with BS later.
  47     returns BSplineCurve from Geom2d;
  48
  49     Solutionbis( BS       :  BSplineCurve from Geom;
  50                  Knotmin  : out Real from Standard;
  51                  Knotmax  : out Real from Standard;
  52                  TolPoles : in Real from Standard=0.000001;
  53                  TolKnots : in Real from Standard=0.000001);
  54       ---Purpose:returns the knots to insert to a(u) to
  55       --         stay with a constant sign and in the
  56       --         tolerances.
  57
  58 end Hermit;
  59
  60