Make weapon position relative to hand positions, wonky for now

This commit is contained in:
2026-03-30 21:10:20 +01:00
parent d00b4d1c6f
commit 633bf479b2
3 changed files with 32 additions and 15 deletions
+2 -1
View File
@@ -12,6 +12,7 @@ module Dodge.Creature.HandPos (
headPQ,
translateToES,
rightHandPQ,
leftHandPQ,
) where
import Control.Monad
@@ -62,7 +63,7 @@ handWalkingPos b off cr = case cr ^. crStance . carriage of
rightHandPQ :: Creature -> Point3Q
rightHandPQ cr
| oneH cr = (V3 11 (-3) 20, Q.qID)
| twists cr = (V3 0 5 20, Q.qz (-1)) `Q.comp` (V3 4 (-10) 0, Q.qID)
| twists cr = (V3 0 5 20, Q.qz (-1)) `Q.comp` (V3 4 (-10) 0, Q.qz 1)
| twoFlat cr = (V3 4 (-8) 12, Q.qID)
| Just p <- crRightHandWall cr = (20 & _xy .~ p, Q.qID)
| otherwise = (handWalkingPos LeftForward (-8) cr, Q.qID)