Add battery shape/picture

src/Dodge/Creature/State.hs

@@ -1,5 +1,5 @@
 module Dodge.Creature.State (
-    stateUpdate,
+    crUpdate,
     doDamage,
 ) where
 
@@ -57,8 +57,8 @@ foldCr xs cr w = foldl' f w xs
  at what point invSideEffects is applied wrt to when the creature moves
  may affect whether the shield moves correctly
 -}
-stateUpdate :: (Creature -> World -> World) -> Creature -> World -> World
-stateUpdate f =
+crUpdate :: (Creature -> World -> World) -> Creature -> World -> World
+crUpdate f =
     foldCr
         [ doDamage -- these two
         , checkDeath -- must be in this order 24/7/22