INTERFACE Ball;

(* Builds a tetrahedral model for a sphere *)

IMPORT Model, Thicken;

PROCEDURE Make(
    name: Model.Name;
    READONLY layer: ARRAY OF Thicken.LayerSpecs;
    half: BOOLEAN := FALSE;
  ): Model.T;
  (*
    Makes a spherical model of unit radius, centered on the 
    origin.  The layer thicknesses are taken to be relative.
    "Half=TRUE" builds only the top hemisphere. *)
  
END Ball.