package ml2mxml

  1. Overview
  2. Docs
type diatonic_scale = [
  1. | `A
  2. | `ASharp
  3. | `B
  4. | `C
  5. | `CSharp
  6. | `D
  7. | `DSharp
  8. | `E
  9. | `F
  10. | `FSharp
  11. | `G
  12. | `GSharp
]
val diatonic_to_string : [< `A | `ASharp | `B | `C | `CSharp | `D | `DSharp | `E | `F | `FSharp | `G | `GSharp ] -> string
val notes_per_semitone : [> `A | `ASharp | `B | `C | `CSharp | `D | `DSharp | `E | `F | `FSharp | `G | `GSharp ] list
val number_notes : int
type t = {
  1. note : diatonic_scale;
  2. octave : int;
}
val create : diatonic_scale -> int -> t
val note_idx : [> `A | `ASharp | `B | `C | `CSharp | `D | `DSharp | `E | `F | `FSharp | `G | `GSharp ] -> int
val shift_n_semitone : t -> int -> t
val to_string : t -> string