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
@@ -76,8 +76,8 @@ mouseCursorType u
    a = fromMaybe 0 $ do
        cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos
        return . toClosestMultiple (pi / 32) $
-            argV (mouseWorldPos (w ^. input) (w ^. cWorld . cwCamPos) -.- cpos)
-                - w ^. cWorld . cwCamPos . camRot
+            argV (mouseWorldPos (w ^. input) (w ^. cWorld . cwCam) -.- cpos)
+                - w ^. cWorld . cwCam . camRot

 mousePlus :: Picture
 mousePlus = pictures [line [V2 (-5) 0, V2 5 0], line [V2 0 (-5), V2 0 5]]