type shape = | Sine| Triangle| Square| Saw_up| Saw_down| Sample_and_hold
val name : shape -> stringval value : shape -> float -> floatval create : ?seed:int -> unit -> tval unipolar : float -> floatval of_tempo : bpm:float -> beats:float -> float