Rem Project: 3DSoundCircle
Rem Created: 10/08/2003 17:00:16

rem Init app
sync on : sync rate 60

rem Load sound
load 3dsound "sound.wav",1 : loop sound 1

rem Make object
make object sphere 1,50

rem Place listener
position listener 0,0,0
rotate listener 0,0,0

rem Main loop
do

rem Move object and sound
x#=sin(a#)*500.0
z#=cos(a#)*500.0
a#=wrapvalue(a#+1.0)
position sound 1,x#,0,z#
position object 1,x#,0,z#

rem User prompt
center text 320,20,"3D SOUND PLAYING AT OBJECT POSITION"

rem Update screen
sync

rem End loop
loop