set-up-audio ( world -- )

Vocabulary

gpu.demos.raytrace

Inputs

world

an object

Outputs

None

Definition

USING: accessors arrays audio.engine audio.loader sequences ;

IN: gpu.demos.raytrace

:: set-up-audio ( world -- )
    world audio-engine>> :> audio-engine world spheres>>
    :> spheres audio-engine world >>listener update-audio
    audio-engine spheres first
    "vocab:gpu/demos/raytrace/mirror-ball.aiff" read-audio t
    <static-audio-clip>
    audio-engine spheres second
    "vocab:gpu/demos/raytrace/red-ball.aiff" read-audio t
    <static-audio-clip>
    audio-engine spheres third
    "vocab:gpu/demos/raytrace/green-ball.aiff" read-audio t
    <static-audio-clip>
    audio-engine spheres fourth
    "vocab:gpu/demos/raytrace/yellow-ball.aiff" read-audio t
    <static-audio-clip> 4array play-clips ;