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
@@ -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 . cwCam) -.- cpos)
-                - w ^. cWorld . cwCam . camRot
+            argV (mouseWorldPos (w ^. input) (w ^. wCam) -.- cpos)
+                - w ^. wCam . camRot

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