Vocabulary
midi

Definition

TUPLE: midi-event delta name value ;


Methods

M: midi-event write-event
[ delta>> write-number ] [ value>> ] [ name>> ] tri {
{
"note-off"
[
128 [
[ "note" of write1 ]
[ "velocity" of write1 ] bi
] write-channel
]
}
{
"note-on"
[
144 [
[ "note" of write1 ]
[ "velocity" of write1 ] bi
] write-channel
]
}
{
"polytouch"
[
160 [
[ "note" of write1 ] [ "value" of write1 ]
bi
] write-channel
]
}
{
"control-change"
[
176 [
[ "control" of write1 ]
[ "value" of write1 ] bi
] write-channel
]
}
{
"program-change"
[ 192 [ "program" of write1 ] write-channel ]
}
{
"aftertouch"
[ 208 [ "value" of write1 ] write-channel ]
}
{
"pitchwheel"
[
224 [
"pitch" of min-pitchwheel -
[ 127 bitand write1 ] [ -7 shift write1 ] bi
] write-channel
]
}
{
"sysex"
[ [ drop 240 dup write1 ] dip write 247 write1 ]
}
{
"quarter-made"
[
[ drop 241 dup write1 ] dip
[ "frame-type" of 4 shift ]
[ "frame-value" of + ] bi write1
]
}
{
"songpos"
[
[ drop 242 dup write1 ] dip
[ 127 bitand write1 ] [ -7 shift write1 ] bi
]
}
{ "song-select" [ [ drop 243 dup write1 ] dip write1 ] }
{ "tune-request" [ 2drop 246 dup write1 ] }
{ "clock" [ 2drop 248 dup write1 ] }
{ "start" [ 2drop 250 dup write1 ] }
{ "continue" [ 2drop 251 dup write1 ] }
{ "stop" [ 2drop 252 dup write1 ] }
{ "active-sensing" [ 2drop 254 dup write1 ] }
{ "reset" [ 2drop 255 dup write1 ] }
} case ;