Commit before pushing more input events into update

2022-10-29 22:33:10 +01:00
parent afaef480db
commit e3155752ba
36 changed files with 121 additions and 147 deletions
@@ -212,9 +212,9 @@ soundAngle p w
            . radToDeg
            . normalizeAngle
            . (+ pi)
-            $ argV (vNormal (p -.- earPos)) - (w ^. cWorld . lWorld . camPos . camRot)
+            $ argV (vNormal (p -.- earPos)) - (w ^. cWorld . camPos . camRot)
  where
-    earPos = w ^. cWorld . lWorld . camPos . camViewFrom
+    earPos = w ^. cWorld . camPos . camViewFrom

 {- | Uses the first free origin from a list.
 Does nothing if all origins are already creating sounds.