Make zoning more universal

src/Dodge/Data/Zoning.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Zoning where
+import Geometry.Data
+import Control.Lens
+import qualified Data.IntMap.Strict as IM
+import StreamingHelp
+
+data Zoning t a = Zoning
+    { _znObjects    :: IM.IntMap (IM.IntMap (t a))
+    , _znSize       :: Float
+    , _znFunc       :: Float -> a -> StreamOf Int2
+    }
+
+makeLenses ''Zoning