Data-ify creature drawing (partially)

2022-07-10 23:24:25 +01:00
parent 646942d20c
commit 75cd15c240
20 changed files with 52 additions and 76 deletions
@@ -53,7 +53,7 @@ addCrGibs cr w = case damageDirection $ _csDamage $ _crState cr of
        & addGibsAtDir d 13 20 (_skinUpper skin) cpos
        & addGibAtDir d 25 (_skinHead skin) cpos
  where
-    skin = _crSkin cr
+    skin = _crType cr -- this should be cleaned up
    cpos = _crPos cr

 addGibsAt :: Float -> Float -> Color -> Point2 -> World -> World