Remove old zoning code

This commit is contained in:
2022-08-21 22:10:38 +01:00
parent c35dbf1ba8
commit 496066e727
5 changed files with 8 additions and 191 deletions
-23
View File
@@ -1,23 +0,0 @@
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}
module Dodge.Data.Zoning
where
import Control.Lens
import qualified Data.IntSet as IS
import Geometry.Data
import qualified IntMapHelp as IM
import StreamingHelp
data Zoning t a = Zoning
{ _znObjects :: IM.IntMap (IM.IntMap (t a))
, _znSize :: Float
, _znFunc :: Float -> a -> StreamOf Int2
-- , _znInsert :: a -> t a -> t a
}
newtype CrZoning = CrZoning {_getCrZoning :: IM.IntMap (IM.IntMap IS.IntSet)}
makeLenses ''Zoning
makeLenses ''CrZoning