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()
CameraRange Cam,1,10000

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)

 Cls

 If KeyDown(200) Then MoveEntity Cam,0,0,1
 If KeyDown(208) Then MoveEntity Cam,0,0,-1
   
 If KeyDown(203) Then TurnEntity Cam,0,-1,0 ;war vorher mit Move
 If KeyDown(205) Then TurnEntity Cam,0,1,0
       
       
 UpdateMusik()

 Delay 10   
 RenderWorld

 Text 0,0,EntityYaw(Cam)
         
 Flip
Wend
End



Function UpdateMusik()

   For Musik.MusikDaten = Each MusikDaten
   
      Dis# = EntityDistance(cam,Musik\Platz)
      If Dis<>0.0 Then
       Musik\Vol = 1.0 - (Dis#/(Musik\Weite))       
       ChannelVolume Musik\Channel,Musik\Vol       
       ;Muß mann Winkel ausrechnen !
       pan# = (EntityX(cam)-EntityX(Musik\Platz))/(Musik\Weite) * -1.0       
       ChannelPan Musik\Channel,Pan#
      EndIf
   Next

End Function