INTERFACE SPBezierPWFunction;

(* Piecewise homogeneous polynomial functions on the sphere (Bezier rep) *)

IMPORT SPPWFunction, SPDeCasteljau;

TYPE
   T = SPPWFunction.T;
   
TYPE
  TriangleData <: PublicTriangleData;

  PublicTriangleData = SPPWFunction.TriangleData OBJECT
      deg: CARDINAL;        (* Degree of polynomials in each triangle *)
      c: REF ControlValues; (* Bezier coeficients *)
    END;
   
TYPE
   ControlValues = SPDeCasteljau.ControlValues;
    (* 
      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
    *)

TYPE
  Basis = ARRAY OF T;
  
PROCEDURE Print(READONLY t: T); 

END SPBezierPWFunction.