stop-audio ( audio-engine -- )
Audio playback engine

Prev:	start-audio* ( audio-engine -- )
Next:	update-audio ( audio-engine -- )

Vocabulary
audio.engine

Inputs

audio-engine

an audio-engine

Outputs
None

Word description
Stops processing of the audio-engine and invalidates any currently playing audio-clips. The engine can be restarted using start-audio or start-audio*; however, any clips that were playing will remain invalidated.

Definition

USING: accessors audio.engine.private combinators destructors
kernel openal sequences timers ;

IN: audio.engine

: stop-audio ( audio-engine -- )
    dup al-sources>> [
        {
            [ make-engine-current ]
            [ update-timer>> [ stop-timer ] when* ]
            [ clips>> clone [ dispose ] each ]
            [ al-sources>> free-sources ]
            [ f >>al-sources f >>clips f >>update-timer drop ]
            [ al-context>> alcSuspendContext ]
        } cleave
    ] [ drop ] if ;