(read-aiff) ( -- audio )

Vocabulary

audio.aiff

Inputs

None

Outputs

audio

an object

Definition

USING: accessors alien alien.data audio audio.chunked-file
endian kernel math ;

IN: audio.aiff

: (read-aiff) ( -- audio )
    read-aiff-chunks [
        [ num-channels>> 2 memory>byte-array be> ]
        [ sample-size>> 2 memory>byte-array be> ]
        [ sample-rate>> sample-rate>integer ] tri
    ] [
        [ header>> size>> 4 memory>byte-array be> 8 - dup ]
        [ waveform-data>> >c-ptr ] bi swap memory>byte-array
    ] bi* <audio> convert-data-endian ;