queue-audio ( vorbis-stream -- ? )

Vocabulary

audio.vorbis.private

Inputs

vorbis-stream

an object

Outputs

?

an object

Definition

USING: accessors kernel math ogg ogg.vorbis ;

IN: audio.vorbis.private

: queue-audio ( vorbis-stream -- ? )
    dup [ stream-state>> ] [ packet>> ] bi ogg_stream_packetout
    0 > [
        dup [ block>> ] [ packet>> ] bi vorbis_synthesis 0 = [
            [ dsp-state>> ] [ block>> ] bi
            vorbis_synthesis_blockin drop
        ] [ drop ] if t
    ] [ drop f ] if ;