Abstract out block placement

src/Dodge/Data/Bounds.hs

@@ -0,0 +1,16 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Bounds
+    where
+import Control.Lens
+
+data Bounds = Bounds
+    { _bdMinX            :: Float
+    , _bdMaxX            :: Float
+    , _bdMinY            :: Float
+    , _bdMaxY            :: Float
+    }
+defaultBounds :: Bounds
+defaultBounds = Bounds 0 0 0 0
+
+makeLenses ''Bounds