Legend:
Library
Module
Module type
Parameter
Class
Class type
Library
Module
Module type
Parameter
Class
Class type
val create_title : string -> Cow.Xml.t
val create_date : ?name:string -> string -> Cow.Xml.t
module Mode : sig ... end
module Sign : sig ... end
val create_key : int -> [< `Major ] -> Cow.Xml.t
val create_time : int -> int -> Cow.Xml.t
val create_clef : [< `Drum | `F | `G | `Tab ] -> int -> Cow.Xml.t
val drum_clef : Cow.Xml.t
module DiatonicScaleStepToTuningStep : sig ... end
val create_instrument_staff_lines : Music.string_instrument -> Cow.Xml.t
val create_transpose : int -> int -> int -> Cow.Xml.t
val create_divisions : int -> Cow.Xml.t
module BeatUnit : sig ... end
val create_metronome :
?default_y:int ->
?beat_unit:[ `Quarter ] ->
int ->
Cow.Xml.t
val tied_to_xml : Music.tied option -> Cow.Xml.t list
val tie_to_xml : Music.tied option -> Cow.Xml.t list
val create_pitch :
Music.string_instrument ->
Music.played_note ->
Music.tied option ->
Cow.Xml.t * Cow.Xml.t list
val time_modification : [< `Duple | `Triple ] -> Cow.Xml.t list
module Constants : sig ... end
val create_chord_elt_if_necessary : bool -> Cow.Xml.t list
val create_dot_if_necessary : bool -> Cow.Xml.t list
val create_mxml_note :
bool ->
'a Cow.Xml.frag as 'a Cow.Xml.frag list ->
'a Cow.Xml.frag list list ->
'a Cow.Xml.frag list list ->
'b Music.measure_elt ->
Cow.Xml.t
val create_drum_note :
?chord:bool ->
int ->
[< `Played of
[< `China
| `Cowbell
| `Crash
| `Crash_01
| `Hihat
| `Hihat_02
| `Kick
| `PedalHiHat
| `Ride
| `Ride_01
| `Ride_bell
| `Snare
| `Snare_muted
| `Splash
| `Tom
| `Tom_01
| `Tom_02
| `Tom_03
| `Tom_04 ]
| `Rest ]
Music.measure_elt ->
Cow.Xml.t
val create_string_note :
?chord:bool ->
Music.string_instrument ->
[< `Played of Music.played_note | `Rest ] Music.measure_elt ->
Cow.Xml.t
val transform_note : 'a Music.measure_elt -> 'b -> 'b Music.measure_elt
val create_measure :
?tempo:int option ->
int ->
[< `Chord of 'a list | `Rest | `Single of 'a ] Music.measure_elt list ->
([> `Played of 'a | `Rest ] Music.measure_elt -> Cow.Xml.t) ->
([> `Played of 'a ] Music.measure_elt -> Cow.Xml.t) ->
Cow.Xml.t ->
Cow.Xml.t list ->
Cow.Xml.t
val create_string_measure :
?tempo:int option ->
int ->
Music.string_instrument ->
[< `Chord of Music.played_note list | `Rest | `Single of Music.played_note ]
Music.measure_elt
list ->
Cow.Xml.t
val create_drum_measure :
?tempo:int option ->
int ->
[< `Chord of
[< `China
| `Cowbell
| `Crash
| `Crash_01
| `Hihat
| `Hihat_02
| `Kick
| `PedalHiHat
| `Ride
| `Ride_01
| `Ride_bell
| `Snare
| `Snare_muted
| `Splash
| `Tom
| `Tom_01
| `Tom_02
| `Tom_03
| `Tom_04 ] as 'a
list
| `Rest
| `Single of 'a ]
Music.measure_elt
list ->
int ->
Cow.Xml.t
type music_instrument = [
| `Drum of Music.drum_note Music.measures
| `String of Music.string_instrument * Music.string_note Music.measures
]
type instrument = {
instrument_id : int;
midi_instrument : Cow.Xml.t;
instrument_and_measures : music_instrument;
}
val create_instrument :
int ->
(int -> Cow.Xml.t) ->
music_instrument ->
instrument
module MidiInstruments : sig ... end
val create : string -> string -> int -> instrument list -> Cow.Xml.t
val to_string : Cow.Xml.t -> string