<static-audio-clip> ( audio-engine source audio loop? -- audio-clip/f )
Audio playback engine

Prev:	static-audio-clip
Next:	play-static-audio-clip ( audio-engine source audio loop? -- audio-clip/f )

Vocabulary
audio.engine

Inputs

audio-engine	an audio-engine
source	an object implementing the Audio source protocol
audio	an audio
loop?	a boolean

Outputs

audio-clip/f

an audio-clip or f

Word description
Constructs a static-audio-clip tied to source and playing audio generated by generator. The clip won't be played until play-clip or play-clips is called on it. If loop? is true, the clip will repeat indefinitely when played until stopped with stop-clip. Otherwise, the clip will automatically be dispose d by the audio-engine after it finishes playing. If the engine has no available voices, no clip will be constructed, and f will be returned.

Definition

USING: accessors alien.c-types alien.data audio
audio.engine.private combinators destructors kernel openal
sequences ;

IN: audio.engine

:: <static-audio-clip>
    ( audio-engine source audio loop? -- audio-clip/f )
    audio-engine get-available-source :> al-source al-source [
        1 0 uint <ref> [ alGenBuffers ] keep uint deref
        :> al-buffer al-buffer audio {
            [ openal-format ]
            [ data>> ]
            [ size>> ]
            [ sample-rate>> ]
        } cleave alBufferData
        al-source AL_BUFFER al-buffer alSourcei
        al-source AL_LOOPING loop? >c-bool alSourcei
        static-audio-clip new-disposable audio-engine
        >>audio-engine source >>source al-source >>al-source
        al-buffer >>al-buffer
        :> clip clip audio-engine clips>> push clip
    ] [ f ] if ;