Add options page scrolling

src/Dodge/Debug.hs

@@ -9,6 +9,7 @@ import Picture
 import qualified IntMapHelp as IM
 import qualified Data.IntSet as IS
 
+import qualified Streaming.Prelude as S
 import Control.Lens
 
 drawCircleAtFor :: Point2 -> Int -> World -> World
@@ -55,9 +56,10 @@ drawDDA = setLayer BloomLayer . color (withAlpha 0.5 green) . IM.foldlWithKey' f
 debugWallZoningPic :: World -> Picture
 debugWallZoningPic w = setLayer BloomLayer $ zonesPic `appendPic` wallsPic
   where
-    wallsPic = setDepth 25 . color yellow . concatMapPic (drawTheWall . _wlLine) $ IM.elems theWalls
+    --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
     drawTheWall (a,b) = thickLine 20 [a,b]
-    theWalls = wallsAlongLine sp ep w
     zonesPic = setDepth 20 $ drawDDA zones
     zones = ddaExt zoneSize sp ep
     sp = _crPos $ you w