Add quicksave

2021-09-13 00:17:45 +01:00
parent 064d43f903
commit 49274064a0
11 changed files with 28 additions and 18 deletions
@@ -270,7 +270,7 @@ rotateToOverlappingWall w = case theWall of
        | otherwise    = w
      where
        b = a * (2 / pi)
-        b' = fromIntegral $ (round b :: Int)
+        b' = fromIntegral (round b :: Int)
    cr = you w
    p = _crPos cr
    theWall = overlapCircWallsReturnWall p (_crRad cr + 5) (wallsNearPoint p w)