Various performance improvements

2021-09-23 15:27:37 +01:00
parent 7b6904b51f
commit 85edd98d62
17 changed files with 137 additions and 81 deletions
@@ -51,11 +51,10 @@ basicCrShape
    -> Creature 
    -> Shape
 basicCrShape col cr = tr $ mconcat
-    [ rotdir $ _spShape $ drawEquipment cr
-    , translateSHz 25 . dm . rotdir $ scalp cr
+    [ rotdir . _spShape $ drawEquipment cr
+    , rotdir . dm . translateSHz 25 $ scalp cr
+    , rotdir . dm $ upperBody col cr
    , dm . rotmdir $ feet cr
-    , dm . rotdir $ upperBody col cr
-    , rotdir $ _spShape $ drawEquipment cr
    ]
  where 
    dm = damageModSH cr