INTERFACE SPDeCasteljau;

IMPORT LR3;

TYPE
   ControlValues = ARRAY OF LONGREAL;
    (* 
      Bezier Control values for one triangle.
      The order is defined in SPHomoLabel.i3; for degree 6 it is
         C600, C510, C501, C420, C411, C402, ... , C006
    *)

PROCEDURE Eval2(READONLY c: ControlValues; READONLY a: LR3.T): LONGREAL;

PROCEDURE Eval3(READONLY c: ControlValues; READONLY a: LR3.T): LONGREAL;

PROCEDURE Eval4(READONLY c: ControlValues; READONLY a: LR3.T): LONGREAL; 

PROCEDURE Eval5(READONLY c: ControlValues; READONLY a: LR3.T): LONGREAL;

PROCEDURE Eval6(READONLY c: ControlValues; READONLY a: LR3.T): LONGREAL;

PROCEDURE Eval7(READONLY c: ControlValues; READONLY a: LR3.T): LONGREAL;

PROCEDURE EvalGrad2(READONLY c: ControlValues; READONLY a: LR3.T): LR3.T;

PROCEDURE EvalGrad3(READONLY c: ControlValues; READONLY a: LR3.T): LR3.T;

PROCEDURE EvalGrad4(READONLY c: ControlValues; READONLY a: LR3.T): LR3.T; 

PROCEDURE EvalGrad5(READONLY c: ControlValues; READONLY a: LR3.T): LR3.T;

PROCEDURE EvalGrad6(READONLY c: ControlValues; READONLY a: LR3.T): LR3.T;

PROCEDURE EvalGrad7(READONLY c: ControlValues; READONLY a: LR3.T): LR3.T;

END SPDeCasteljau.