-- File: CurveTool.cdl -- Created: Tue Mar 3 18:07:18 1992 -- Author: Herve LEGRAND -- ---Copyright: Matra Datavision 1992 deferred generic class CurveTool from LProp (Curve as any; Pnt as any; Vec as any) is Value(myclass; C : Curve; U : Real; P : out Pnt); ---Purpose: Computes the point

of parameter on the curve . D1 (myclass; C : Curve; U : Real; P : out Pnt; V1 : out Vec); ---Purpose: Computes the point

and first derivative of -- parameter on the curve . D2 (myclass; C : Curve; U : Real; P : out Pnt; V1, V2 : out Vec); ---Purpose: Computes the point

, the first derivative and second -- derivative of parameter on the curve . D3 (myclass; C : Curve; U : Real; P : out Pnt; V1, V2, V3 : out Vec); ---Purpose: Computes the point

, the first derivative , the -- second derivative and third derivative of -- parameter on the curve . Continuity(myclass; C : Curve) returns Integer; ---Purpose: returns the order of continuity of the curve . -- returns 1 : first derivative only is computable -- returns 2 : first and second derivative only are computable. -- returns 3 : first, second and third are computable. FirstParameter(myclass; C : Curve) returns Real; ---Purpose: returns the first parameter bound of the curve. -- LastParameter(myclass; C : Curve) returns Real; ---Purpose: returns the last parameter bound of the curve. -- FirstParameter must be less than LastParamenter. end CurveTool;