Type MusikDaten
   Field Platz
   Field Lied
   Field Channel
   Field Weite
   Field Vol#
End Type


Graphics3D 1024,768,16,2
SetBuffer BackBuffer()


S = CreateSphere(16)



Global Cam = CreateCamera()

PositionEntity cam,0,0,-50



   Musik.MusikDaten = New MusikDaten
      
      Musik\Lied = LoadSound("Musik.mp3")
      Musik\Channel = PlaySound(Musik\Lied)
      Musik\Platz = CreatePivot()
      Musik\Weite = 60
      Musik\Vol = 0
      



While Not KeyHit(1)


      If KeyDown(200) Then MoveEntity Cam,0,0,1
      If KeyDown(208) Then MoveEntity Cam,0,0,-1
   
      If KeyDown(203) Then MoveEntity Cam,-1,0,0
      If KeyDown(205) Then MoveEntity Cam,1,0,0
      
      
      UpdateMusik()
   

   RenderWorld
   

   
Flip:Cls
Wend
End



Function UpdateMusik()

   For Musik.MusikDaten = Each MusikDaten
   
      Dis# = EntityDistance(cam,Musik\Platz)
      
      Musik\Vol = 1 - (Dis#/(Musik\Weite))
      
      ChannelVolume Musik\Channel,Musik\Vol
      
      pan# = (EntityX(cam)-EntityX(Musik\Platz))/(Musik\Weite) * -1
      
      ChannelPan Musik\Channel,Pan#
   Next

End Function