write-number ( n -- )

Vocabulary

midi.private

Inputs

n

an object

Outputs

None

Definition

USING: io kernel math ;

IN: midi.private

: write-number ( n -- )
    [ 127 bitand ] keep
    [ -7 shift dup 0 > ]
    [ [ 8 shift 128 bitor ] [ [ 127 bitand + ] keep ] bi* ]
    while drop
    [ [ -8 shift ] [ 128 bitand 0 > ] bi ]
    [ dup 255 bitand write1 ] do while drop ;