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