Vocabulary
midi

Definition

TUPLE: meta-event delta name value ;


Methods

M: meta-event write-event
[ delta>> write-number 255 write1 ] [ value>> ] [ name>> ]
tri {
{ "sequence-number" [ B{ 0 2 } write 2 >be write ] }
{ "text" [ 1 write1 write-string ] }
{ "copyright" [ 2 write1 write-string ] }
{ "track-name" [ 3 write1 write-string ] }
{ "instrument-name" [ 4 write1 write-string ] }
{ "lyrics" [ 5 write1 write-string ] }
{ "marker" [ 6 write1 write-string ] }
{ "cue-point" [ 7 write1 write-string ] }
{ "device-name" [ 9 write1 write-string ] }
{ "channel-prefix" [ B{ 32 1 } write write1 ] }
{ "midi-port" [ B{ 33 1 } write write1 ] }
{ "end-of-track" [ B{ 47 0 } write drop ] }
{ "set-tempo" [ B{ 81 3 } write 3 >be write ] }
{
"smpte-offset"
[
B{ 84 5 } write {
[ "frame-rate" of 6 shift ]
[ "hours" of + write1 ]
[ "minutes" of write1 ]
[ "seconds" of write1 ]
[ "frames" of write1 ]
[ "subframes" of write1 ]
} cleave
]
}
{
"time-signature"
[
B{ 88 4 } write {
[ "numerator" of write1 ]
[ "denominator" of 2 /i write1 ]
[ "clocks-per-tick" of write1 ]
[ "notated-32nd-notes-per-beat" of write1 ]
} cleave
]
}
{
"key-signature"
[ B{ 89 2 } write key-signatures value-at write ]
}
{
"sequencer-specific"
[ 127 write1 [ length write-number ] [ write ] bi ]
}
} case drop f ;