INTERFACE SPPolyPWFunction;

(* Piecewise-polynomial functions on the sphere *)

IMPORT SPPWFunction;

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

  PublicTriangleData = SPPWFunction.TriangleData OBJECT
      deg: CARDINAL;  (* Degree of polynomials in each triangle *)
      c0: REF Coeffs; (* Coeffs of homog. polynomial of degree "deg" *)
      c1: REF Coeffs; (* Coeffs of homog. polynomial of degree "deg-1" *)
    END;
   
TYPE
  Coeffs = ARRAY OF LONGREAL;
    (*
      A variable "c" of type "Coeffs" defines a homogeneous polynomial over "x",
      "y", and "z" with terms os total degree "d", for some "d" specified
      independently.  The order of the terms is defined in SPHomoLabel.i3. *)
  
PROCEDURE  TriangleIsNull(READONLY t: TriangleData): BOOLEAN;
  (*
    TRUE if the polynomial defined by "t" is identically zero. *)

END SPPolyPWFunction.