Rendering optimisations (mainly inlining)

src/Dodge/Render/Picture.hs

@@ -21,9 +21,12 @@ import Data.List (partition)
 import qualified Data.IntMap.Lazy as IM
 
 worldPictures :: World -> Picture
-worldPictures w = 
-    concat (IM.elems $ _decorations w) ++ testPic w ++ concat
-    [ concatMap (dbArg _pjDraw)  . IM.elems $ _projectiles w
+worldPictures w = concat $
+    (IM.elems $ _decorations w) ++
+    (map (dbArg _pjDraw)  . IM.elems $ _projectiles w) ++
+    (map (crDraw w) . IM.elems $ _creatures w) ++
+    (map (dbArg _ptDraw) $ _particles w) ++
+    [ testPic w
     , concatMap drawItem . IM.elems $ _floorItems w
     , concatMap (crDraw w) . IM.elems $ _creatures w
     , concatMap clDraw   . reverse $ _clouds w