Add general smooth scrolling, move camera into world

2023-03-26 20:09:00 +01:00
parent 73e742e1a2
commit 07a1d71039
32 changed files with 154 additions and 131 deletions
@@ -163,9 +163,9 @@ soundAngle p w
            . radToDeg
            . normalizeAngle
            . (+ pi)
-            $ argV (vNormal (p -.- earPos)) - (w ^. cWorld . cwCam . camRot)
+            $ argV (vNormal (p -.- earPos)) - (w ^. wCam . camRot)
  where
-    earPos = w ^. cWorld . cwCam . camViewFrom
+    earPos = w ^. wCam . camViewFrom

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