Module Sequencer

type step = {
  1. note : int option;
  2. accent : bool;
  3. slide : bool;
  4. locks : (string * float) list;
}
val rest : step
val note : ?accent:bool -> ?slide:bool -> int -> step
val lock : step -> string -> float -> step
val unlock : step -> step
type event =
  1. | Note_on of {
    1. note : int;
    2. accent : bool;
    3. glide : bool;
    }
  2. | Note_off
type t
val create : ?bpm:float -> step array -> t
val set_pattern : t -> step array -> unit
val set_bpm : t -> float -> unit
val start : t -> unit
val stop : t -> unit
val running : t -> bool
val step : t -> int
val samples_per_step : float -> float
val advance : t -> int -> (int -> event -> unit) -> unit
type locks =
  1. | Per_step
  2. | Points of float
val lock_value : locks -> step array -> string -> float -> float option
val position : t -> int -> float option
val locked : t -> locks -> string -> int -> float option