Module SequencerSource

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