Module Voicing

type priority =
  1. | Low
  2. | High
  3. | Last
type event =
  1. | Begin of int
  2. | Change of int
  3. | End
  4. | Nothing
type t
val create : ?priority:priority -> ?retrigger:bool -> unit -> t
val press : t -> int -> event
val release : t -> int -> event
val sounding : t -> int option
type glide
val glide : ?note:float -> unit -> glide
val glide_to : glide -> int -> unit
val fill_frequency : glide -> seconds:float -> Signal.t -> unit
val fill_pitch : glide -> seconds:float -> Signal.t -> unit
val pitch : glide -> float
val frequency : float -> float