Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -146,9 +146,9 @@ soundAngle p w
      . radToDeg 
      . normalizeAngle 
      . (+ pi)
-      $ argV (vNormal (p -.- earPos)) - _cameraRot w
+      $ argV (vNormal (p -.- earPos)) - _cameraRot (_cWorld w)
  where
-    earPos = _cameraViewFrom w
+    earPos = _cameraViewFrom (_cWorld w)

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