Add true quicksave and guickload

2023-03-26 12:13:21 +01:00
parent a652b13fa0
commit cfb0a49059
6 changed files with 32 additions and 29 deletions
@@ -21,6 +21,7 @@ import Geometry.Zone
 import qualified IntMapHelp as IM

 zoneOfCirc :: Float -> Point2 -> Float -> [Int2]
+{-# INLINE zoneOfCirc #-}
 zoneOfCirc zsize p r = zoneOfRect zsize (p +.+ V2 r r) (p -.- V2 r r)

 zoneOfRect :: Float -> Point2 -> Point2 -> [Int2]