Refactor projectiles

2022-07-20 09:55:07 +01:00
parent 9daf872878
commit 330a81a955
14 changed files with 196 additions and 200 deletions
@@ -2,6 +2,7 @@ module Dodge.Render.ShapePicture
    ( worldSPic
    ) where
 import Dodge.RadarSweep.Draw
+import Dodge.Projectile.Draw
 import Dodge.Item.Draw.SPic
 import Dodge.EnergyBall.Draw
 import Dodge.Creature.Picture.Awareness
@@ -53,6 +54,7 @@ worldSPic :: Configuration -> World -> SPic
 worldSPic cfig w 
    =  singleSPic (mempty, extraPics cfig w)
    <> foldup (dbArg _prDraw) (filtOn _prPos _props)                             
+    <> foldup drawProjectile (filtOn _prjPos _projectiles)                             
    <> foldup (shiftDraw _blPos _blDir _blDraw) (filtOn _blPos _blocks)           
    <> foldup (shiftDraw _fsPos _fsDir (const _fsSPic)) (filtOn _fsPos _foregroundShapes)   
    <> foldup (dbArg _cpPict) (filtOn _cpPos _corpses)