Add trajectory to grenades, various refactoring

2021-09-25 18:39:53 +01:00
parent a0340eb024
commit 32367b5b2d
32 changed files with 339 additions and 253 deletions
@@ -27,7 +27,7 @@ import qualified Data.Map as M
 worldPictures :: World -> Picture
 worldPictures w = pictures
    [pictures (_decorations w)
-    ,concatMapPic (dbArg _pjDraw)  $ _projectiles w
+    ,concatMapPic (_spPicture . dbArg _prDraw)  $ _props w
    ,concatMapPic (crDraw w) . IM.filter crIsClose $ _creatures w
    ,concatMapPic (dbArg _ptDraw) $ _particles w
    ,testPic w