Improve level generation speed

src/Dodge/Render/Picture.hs

@@ -8,9 +8,9 @@ import Dodge.Picture
 import Dodge.Picture.Layer
 import Dodge.Render.HUD
 import Dodge.Render.MenuScreen
-import Dodge.Debug
+--import Dodge.Debug
 import Geometry
-import Geometry.Zone
+--import Geometry.Zone
 --import Geometry.Data
 import Picture
 import Polyhedra.Data
@@ -58,15 +58,7 @@ customMouseCursor w =
     $ pictures [ line [V2 (-5) 0,V2 5 0] , line [V2 0 (-5),V2 0 5] ]
 
 testPic :: World -> Picture
-testPic w = setLayer 1 $ zonesPic ++ wallsPic
-  where
-    wallsPic = setDepth 25 . color yellow . concatMap (drawTheWall . _wlLine) $ IM.elems theWalls
-    drawTheWall (a,b) = lineOfThickness 20 [a,b]
-    theWalls = wallsAlongLine sp ep w
-    zonesPic = setDepth 20 $ drawDDA zones
-    zones = ddaExt zoneSize sp ep
-    sp = _crPos $ you w
-    ep = mouseWorldPos w
+testPic _ = []
     
 --    [ setDepth (-1) . translate 0 0.8
 --        . scale 0.001 0.001 . text . show $ _crMvDir $ you w