midi-event

Vocabulary

midi

Definition

IN: midi

TUPLE: midi-event delta name value ;

Methods

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

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 ;