Fix bug when forming convex hull of game room bounds

src/Dodge/Creature/Inanimate.hs

@@ -21,6 +21,7 @@ import Geometry
 --import Geometry.Data
 import Geometry.Vector3D
 import Polyhedra
+import Shape
 
 import Control.Lens
 import qualified Control.Foldl as L
@@ -119,11 +120,10 @@ explosiveBarrel :: Creature
 explosiveBarrel = defaultInanimate
     { _crUpdate = updateExpBarrel
     , _crHP = 400
-    , _crPict = picAtCrPos $ pictures 
-        [ color red $ circleSolid 8
-        , setDepth 0.049 . color (greyN 0.5) $ circleSolid 10
-        , color orange $ circleSolid 10
-        ]
+    , _crPict = shapeAtCrPos
+        . colorSH orange
+        . upperPrismPoly 20
+        $ polyCirc 4 10
     , _crState = defaultState 
         {_crSpState = Barrel []
         }