Draw shape shadows using index buffer

src/Dodge/Creature/Picture.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE TupleSections #-}
 {- |
 Drawing of creatures. 
 Takes into account damage etc. -}
@@ -173,9 +174,22 @@ scalp cr
     | oneH   cr = rotateSH 0.5 $ translateSHf (0.25 * crad) 0 fhead
     | otherwise = translateSHf (0.25 * crad) 0 fhead
   where
-    fhead = colorSH (greyN 0.9) . upperPrismPoly 5 . polyCirc 3 $ crad * 0.5
+    --fhead = colorSH (greyN 0.9) . upperPrismPoly 5 . polyCirc 3 $ crad * 0.5
+    fhead = ([ShapeObj TopHexahedron $ map (flip ShapeV (greyN 0.9)) aBox] , mempty)
     crad = _crRad cr
 
+aBox :: [Point3]
+aBox =
+    [ V3 0 0 5
+    , V3 5 0 5
+    , V3 5 5 5
+    , V3 0 5 5
+    , V3 0 0 0
+    , V3 5 0 0
+    , V3 5 5 0
+    , V3 0 5 0
+    ]
+
 oneH :: Creature -> Bool
 oneH cr = crIsAiming' cr && crIt ^? itAimStance == Just OneHand
   where