meta-event

Vocabulary

midi

Definition

IN: midi

TUPLE: meta-event delta name value ;

Methods

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 ] }
        { "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 ;