1 -- File: CurveLocator.cdl
2 -- Created: Tue Jul 21 11:02:33 1992
3 -- Author: Laurent PAINNOT
5 ---Copyright: Matra Datavision 1992
10 generic class CurveLocator from Extrema
12 Tool1 as any; -- as ToolCurve(Curve1)
14 Tool2 as any; -- as ToolCurve(Curve2)
21 Locate (myclass; P: Pnt; C: Curve1; NbU: Integer; Papp: out POnC);
22 ---Purpose: Among a set of points {C(ui),i=1,NbU}, locate the point
24 -- distance(P,C) = Min{distance(P,C(ui))}
27 Locate (myclass; P: Pnt; C: Curve1; NbU: Integer; Umin, Usup: Real;Papp: out POnC);
28 ---Purpose: Among a set of points {C(ui),i=1,NbU}, locate the point
30 -- distance(P,C) = Min{distance(P,C(ui))}
31 -- The research is done between umin and usup.
34 Locate (myclass; C1: Curve1; C2: Curve2; NbU, NbV: Integer; Papp1, Papp2: out POnC);
35 ---Purpose: Among two sets of points {C1(ui),i=1,NbU} and
36 -- {C2(vj),j=1,NbV}, locate the two points P1=C1(uk) and
37 -- P2=C2(vl) such that:
38 -- distance(P1,P2) = Min {distance(C1(ui),C2(vj))}.