Reify block drawing

2022-07-25 01:27:39 +01:00
parent 486c203fa2
commit c3a5b9d5be
15 changed files with 85 additions and 23 deletions
@@ -1,6 +1,7 @@
 module Dodge.Render.ShapePicture
    ( worldSPic
    ) where
+import Dodge.Block.Draw
 import Dodge.Machine.Draw
 import Dodge.LinearShockwave.Draw
 import Dodge.Prop.Draw
@@ -67,7 +68,7 @@ worldSPic cfig w
    =  singleSPic (mempty, extraPics cfig w)
    <> foldup drawProp' (filtOn _prPos _props)                             
    <> foldup drawProjectile (filtOn _prjPos _projectiles)                             
-    <> foldup (shiftDraw _blPos _blDir _blDraw) (filtOn _blPos _blocks)           
+    <> foldup (shiftDraw _blPos _blDir (drawBlock . _blDraw)) (filtOn _blPos _blocks)           
    <> foldup (shiftDraw _fsPos _fsDir (const _fsSPic)) (filtOn _fsPos _foregroundShapes)   
    <> foldup (shiftDraw' _cpPos _cpDir _cpSPic) (filtOn _cpPos _corpses)                            
    <> foldup drawCreature (filtOn _crPos _creatures)