Tweak drawing of backpack equipment

2023-01-03 23:34:30 +00:00
parent 883e3513bc
commit ac8afe513b
9 changed files with 34 additions and 39 deletions
@@ -167,12 +167,11 @@ translateToChest cr
    | twists cr = rotateSP (-1)
    | otherwise = id

-translateToBack :: Creature -> SPic -> SPic
-translateToBack cr
-    | oneH cr = rotateSP 0.5
-    --    | twists cr = translateSPf 0 5 . rotateSP (-1)
-    | twists cr = rotateSP (-1)
-    | otherwise = id
+translateToBack :: Creature -> Point3 -> SPic -> SPic
+translateToBack cr p
+    | oneH cr = rotateSP 0.5 . translateSP p
+    | twists cr = rotateSP (-1.5) . translateSP (p - V3 5 0 0)
+    | otherwise = translateSP p

 shoulderSP :: SPic -> SPic
 shoulderSP = translateSPz 20