Start to generalise text input to "terminal signal" input

2023-03-26 13:57:26 +01:00
parent cfb0a49059
commit 082ce9c9a1
39 changed files with 171 additions and 165 deletions
@@ -163,9 +163,9 @@ soundAngle p w
            . radToDeg
            . normalizeAngle
            . (+ pi)
-            $ argV (vNormal (p -.- earPos)) - (w ^. cWorld . cwCamPos . camRot)
+            $ argV (vNormal (p -.- earPos)) - (w ^. cWorld . cwCam . camRot)
  where
-    earPos = w ^. cWorld . cwCamPos . camViewFrom
+    earPos = w ^. cWorld . cwCam . camViewFrom

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