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
@@ -28,8 +28,8 @@ creatureDisplayText w cr =
            cr
  where
    lw = w ^. cWorld . lWorld
-    campos = w ^. cWorld . cwCam . camViewFrom
-    theScale = 0.15 / (w ^. cWorld . cwCam . camZoom)
+    campos = w ^. wCam . camViewFrom
+    theScale = 0.15 / (w ^. wCam . camZoom)
    cpos = _crPos cr
    v = cpos -.- campos
    (V2 x y) = campos +.+ v +.+ _crRad cr *.* normalizeV v