Add support for directional sound

2021-04-06 15:46:49 +02:00
parent ebcac39069
commit 7801920fd2
4 changed files with 32 additions and 3 deletions
@@ -810,7 +810,7 @@ moveShell time i cid rot accel w
                   $ set (projectiles . ix i . pjUpdate) 
                             (moveShell (time-1) i cid rot (rotateV rot accel))
                   $ over (projectiles . ix i . pjVel) (\v -> accel +.+ frict *.* v)
-                   $ soundFrom (ShellSound i) (fromIntegral smokeTrailSound) (1) 250
+                   $ soundFromPos (ShellSound i) newPos (fromIntegral smokeTrailSound) (1) 250
                   $ makeFlameletTimed oldPos 
                         (0.5 *.* rotateV (pi+sparkD) accel) Nothing 3 10
                   $ smokeGen