Add bee crits

src/Dodge/Creature/Picture.hs

@@ -48,6 +48,8 @@ drawCreature w m cr = translateSP (_crPos cr) . fallrot . rotateSP (_crDir cr) $
         HoverCrit{} -> noPic $ drawHoverCrit cr
         SlinkCrit{} -> noPic $ drawSlinkCrit cr
         SlimeCrit{} -> noPic $ drawSlimeCrit cr
+        BeeCrit{_beeSlime=x} -> noPic $ drawBeeCrit x
+        HiveCrit{} -> drawHive
   where
     fallrot = case cr ^? crStance . carriage . carDir of
         Just q -> _1 . each . sfVs . each %~ Q.rotate q
@@ -114,6 +116,18 @@ drawHoverCrit cr = colorSH (_skinHead cskin)
     f a = tpq `Q.comp` (1 & _xy .~ rotateV a 5, Q.qid)
     tpq = (V3 0 0 0, Q.qid)
 
+drawHive :: SPic
+drawHive =  noPic $ upperPrismPolyHalfMI 25 $ polyCirc 6 20
+
+drawBeeCrit :: Float -> Shape
+drawBeeCrit x = colorSH yellow
+    (upperPrismPolyHalfMI 3 $ polyCirc 6 r)
+        <>
+    colorSH (dark yellow) (overPosSH (Q.apply (beakpos)) $ upperPrismPolyHalfST 1 $ [V2 0 (-2), V2 4 0,V2 0 2])
+  where
+    r = sqrt $ 2 ^(2::Int) + x
+    beakpos = (V3 (r-1) 0 0, Q.qid)
+
 drawCrabCrit :: World -> Creature -> Shape
 drawCrabCrit w cr = mconcat 
     [ crabUpperBody w cr
@@ -264,6 +278,7 @@ makeCorpse g cr = case cr ^. crType of
     HoverCrit{} -> noPic $ drawHoverCrit cr
     ChaseCrit{} -> noPic $ chaseCorpse g cr
     CrabCrit{} -> noPic $ crabCorpse g cr
+    BeeCrit{} -> noPic $ drawBeeCrit 0
     _ ->
         noPic
             . scaleSH (V3 crsize crsize crsize)