Module Midi

type note = {
  1. start : float;
  2. length : float;
  3. key : int;
  4. velocity : int;
  5. channel : int;
  6. program : int;
}
type score = {
  1. notes : note list;
  2. duration : float;
}
val vlq : int -> string
val read_vlq : string -> int -> int * int
val parse : string -> (score, string) Stdlib.result
val of_tune : ?program:int -> Abc.tune -> string