Cleanup

2022-06-25 21:45:17 +01:00
parent c56e53d33f
commit 4eaa31bf32
9 changed files with 24 additions and 23 deletions
@@ -58,7 +58,7 @@ debugWallZoningPic w = setLayer BloomLayer $ zonesPic `appendPic` wallsPic
  where
    --wallsPic = setDepth 25 . color yellow . concatMapPic (drawTheWall . _wlLine) $ IM.elems theWalls
    wallsPic = setDepth 25 . color yellow . runIdentity . S.foldMap_ (drawTheWall . _wlLine) 
-        $ wallsAlongLineStream sp ep w
+        $ wallsAlongLine sp ep w
    drawTheWall (a,b) = thickLine 20 [a,b]
    zonesPic = setDepth 20 $ drawDDA zones
    zones = ddaExt zoneSize sp ep