type t = GluQuadric.t
val create : unit -> t
val cylinder :
  base:float ->
  top:float ->
  height:float -> slices:int -> stacks:int -> ?quad:t -> unit -> unit
val disk :
  inner:float ->
  outer:float -> slices:int -> loops:int -> ?quad:t -> unit -> unit
val partial_disk :
  inner:float ->
  outer:float ->
  slices:int ->
  loops:int -> start:float -> sweep:float -> ?quad:t -> unit -> unit
val sphere :
  radius:float -> slices:int -> stacks:int -> ?quad:t -> unit -> unit
val draw_style : t -> [ `fill | `line | `point | `silhouette ] -> unit
val normals : t -> [ `flat | `none | `smooth ] -> unit
val orientation : t -> [ `inside | `outside ] -> unit
val texture : t -> bool -> unit