ml2mxml 0.2 · OCaml Package

val drum_element_to_mxml_param : 
  [< `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 ] ->
  string * int * string

val drum_element_to_unpitched : 
  [< `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 ] ->
  Cow.Xml.t

val drum_element_to_notehead : 
  [< `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 ] ->
  Cow.Xml.t

type drum_part = {

part_id : string;
name : string;
channel : int;
unpitched : int;
volume : int;
pan : int;

}

val kick : drum_part

val snare_00 : drum_part

val snare_02 : drum_part

val cowbell_02 : drum_part

val cowbell_01 : drum_part

val cowbell_00 : drum_part

val tom_00 : drum_part

val tom_01 : drum_part

val tom_02 : drum_part

val tom_03 : drum_part

val tom_04 : drum_part

val hihat_00 : drum_part

val hihat_01 : drum_part

val hihat_02 : drum_part

val pedalhihat_00 : drum_part

val crash_00 : drum_part

val crash_01 : drum_part

val splash_00 : drum_part

val ride_00 : drum_part

val ride_01 : drum_part

val ride_02 : drum_part

val china_00 : drum_part

val from_drum_element_to_music_xml : 
  [< `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 ] ->
  drum_part

val prefix : int -> string -> string

val drum_element_to_instrument_line : 
  int ->
  [< `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 ] ->
  Cow.Xml.t

val drum_parts : drum_part list

val create_score_instrument : int -> drum_part -> Cow.Xml.t

type t = {

id : int;
name : string;
abbrev : string;
parts : drum_part list;

}

val drum_part : t -> Cow.Xml.t

val create_std_drum : int -> t

val create_midi_instrument : int -> Cow.Xml.t

package ml2mxml