Module Sequencer.Event

type note = {
note_channel : int;
note_note : int;
note_velocity : int;
note_off_velocity : int;
note_duration : int;
}
type controller = {
controller_channel : int;
controller_param : int;
controller_value : int;
}
type t =
| System of int * int
| Result of int * int
| Note of note
| Note_on of note
| Note_off of note
| Keypress of note
| Controller of controller
| Program_change of controller
| Channel_pressure of controller
| Pitch_bend of controller
| Unhandled of int