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
@@ -47,7 +47,7 @@ basicCrShape cr
        , rotmdir $ colorSH (_skinLower cskin) $ feet cr
        ]
  where 
-    cskin = _crSkin cr
+    cskin = _crType cr
    crsize = 0.1 * _crRad cr
    tr = uncurryV translateSHf (_crPos cr)
    rotdir = rotateSH (_crDir cr)
@@ -235,7 +235,7 @@ basicCrCorpse cr cp = noPic . tr . scaleSH (V3 crsize crsize crsize) $ mconcat
        , rotdir . rotmdir $ colorSH (_skinLower cskin) $ deadFeet cr
        ]
  where 
-    cskin = _crSkin cr
+    cskin = _crType cr -- this should be fixed
    crsize = 0.1 * _crRad cr
    tr = uncurryV translateSHf (_cpPos cp)
    rotdir = rotateSH (_cpDir cp)