Camera position refactor

2022-10-28 15:32:46 +01:00
parent 27fe1c7a96
commit 2e7cd0aec2
24 changed files with 184 additions and 163 deletions
@@ -212,9 +212,9 @@ soundAngle p w
            . radToDeg
            . normalizeAngle
            . (+ pi)
-            $ argV (vNormal (p -.- earPos)) - (w ^. cWorld . lWorld . cwCam . cwcRot)
+            $ argV (vNormal (p -.- earPos)) - (w ^. cWorld . lWorld . camPos . camRot)
  where
-    earPos = w ^. cWorld . lWorld . cwCam . cwcViewFrom
+    earPos = w ^. cWorld . lWorld . camPos . camViewFrom

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