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
Global pan#
PositionEntity cam,0,0,-50

Musik.MusikDaten = New MusikDaten
Musik\Lied = LoadSound("Musik.mp3")
Musik\Channel = PlaySound(Musik\Lied)
Musik\Platz = CreatePivot()
Musik\Weite = 100
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 
If KeyDown(205) Then TurnEntity Cam,0,-1,0

UpdateMusik()

Delay 10
RenderWorld

Text 0,0,pan#+" "+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
x#=EntityX(cam)-EntityX(Musik\Platz)
z#=EntityZ(cam)-EntityZ(Musik\Platz)
;Hier weis ich nicht wie ich die 2 Winkel unter einen Hut bekomme
pan# = (ATan2(x#,z#)+360+EntityRoll(cam)) Mod 360
pan# = (EntityYaw#(cam))/90      ;Leider ist das auch noch nich das gelbe vom Ei!

ChannelPan Musik\Channel,Pan#
EndIf
Next

End Function

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
         x#=EntityX(cam)-EntityX(Musik\Platz)
         z#=EntityZ(cam)-EntityZ(Musik\Platz)


         ;Hier weis ich nicht wie ich die 2 Winkel unter einen Hut bekomme
         pan# = -Sin(DeltaYaw(cam,Musik\platz))

         ChannelPan Musik\Channel,Pan#
      EndIf
   Next

End Function