Add IntMapHelper, locate wall cutting bug

2021-05-22 15:14:21 +02:00
parent 26f0ca4ab5
commit 9c2bcbec10
35 changed files with 221 additions and 139 deletions
@@ -5,14 +5,14 @@ import Dodge.Data
 import Dodge.Base
 --import Geometry
 import Picture
+import qualified IntMapHelp as IM

 import Control.Lens
-import qualified Data.IntMap as IM

 makeCloudAt :: Float -> Int -> (Cloud -> Picture) -> Point2 -> World -> World
 makeCloudAt rad t drawFunc p w 
        = w & clouds %~ IM.insert i theCloud
-    where i = newKey $ _clouds w
+    where i = IM.newKey $ _clouds w
          theCloud = Cloud { _clID = i
                           , _clPos = p
                           , _clVel = (0,0)