Use grid when creating block debris

2022-07-13 10:44:18 +01:00
parent 1ccb87ff13
commit 6c50021f04
12 changed files with 139 additions and 65 deletions
@@ -6,6 +6,7 @@ import Streaming
 import qualified Streaming.Prelude as S
 import qualified Control.Foldl as L

+-- NSEW
 boundPoints :: Stream (Of Point2) Identity () -> Maybe (Float,Float,Float,Float)
 {-# INLINE boundPoints #-}
 boundPoints = f . runIdentity . L.purely S.fold_ ((,,,)