Make weapon position relative to hand positions, wonky for now
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user