Zoom in when spawning

2025-12-06 00:04:00 +00:00
parent f9ce58b409
commit 189c3da84f
6 changed files with 75 additions and 72 deletions
@@ -46,9 +46,9 @@ outsideScreenPolygon cfig w = [tr, tl, bl, br]
  where
    scRot = rotateV (w ^. camRot)
    scZoom p
-        | (w ^. camZoom) /= 0 = (1 / (w ^. camZoom)) *.* p
+        | (w ^. camZoom) /= 0 = (1 / (w ^. camZoom)) *^ p
        | otherwise = error "Trying to set screen zoom to zero"
-    scTran p = p +.+ (w ^. camCenter)
+    scTran p = p + (w ^. camCenter)
    tr = f 3 3
    tl = f (-3) 3
    br = f 3 (-3)