INTERFACE Cylinder;

(* Builds a tetrahedral model for a bent cylinder *)

IMPORT Model, Thicken; 

PROCEDURE Make(
    name: Model.Name;
    slices: CARDINAL;
    sectors: CARDINAL;
    READONLY layer: ARRAY OF Thicken.LayerSpecs;
    botRamp, topRamp: BOOLEAN := FALSE;
  ): Model.T;
  (*
    Builds a cylinder of unit height and unit radius, sitting on the
    "Z=0" plane, centered on the "Z" axis.  The layer thicknesses are
    taken to be relative.
    
    If "botRamp=TRUE", the bottommost ring of faces will be covered by 
    ramp cells, instead of normal layer cells (see "Thicken.i3").
    Ditto for "topRamp".
  *)

END Cylinder.