Simplify clouds

2025-12-02 21:02:07 +00:00
parent c89d5af6a3
commit bd50262ca4
5 changed files with 33 additions and 50 deletions
@@ -44,6 +44,7 @@ makeIntInterval x y
 --    [V2 x y | x <- makeIntInterval x1 x2, y <- makeIntInterval y1 y2]

 zoneOfPoint :: Float -> Point2 -> Int2
+{-# INLINE zoneOfPoint #-}
 zoneOfPoint = fmap . divTo

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