Move towards introducing pipes, generalise blocks

2022-06-16 02:18:22 +01:00
parent f404f32241
commit a7201b8fb6
13 changed files with 154 additions and 65 deletions
@@ -32,6 +32,7 @@ worldSPic :: Configuration -> World -> SPic
 worldSPic cfig w = 
    (extraShapes w, extraPics cfig w)
    <> foldMap (dbArg _prDraw) (filtOn _prPos _props)
+    <> foldMap (dbArg _blDraw) (filtOn _blPos _blocks)
    <> foldMap (dbArg _cpPict) (filtOn _cpPos _corpses)
    <> foldMap ((($ w) . ($ cfig)) . dbArg _crPict) (filtOn _crPos _creatures)
    <> foldMap floorItemSPic (filtOn _flItPos _floorItems)