IN: midi

TUPLE: meta-event delta name value ;

USING: accessors assocs combinators endian io kernel math midi
midi.private sequences ;

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 ] }