Remove LDTs from orientations + item shapes

This commit is contained in:
2025-07-10 22:24:09 +01:00
parent cd46f34787
commit f8595d353b
5 changed files with 94 additions and 95 deletions
+1 -6
View File
@@ -3,7 +3,7 @@
module Dodge.Item.HeldOffset (
turretItemOffset,
twoFlatHRot,
heldItemOffset,
-- heldItemOffset,
locOrient,
handHandleOrient,
) where
@@ -59,11 +59,6 @@ locOrient loc cr =
handHandleOrient (fmap (\(x, y, _) -> (x, y)) $ locToTop' loc) cr
`Q.comp` (loc ^. locDT . dtValue . _3)
heldItemOffset :: LocationLDT ItemLink CItem -> Creature -> Point3 -> Point3
heldItemOffset loc cr p = x + Q.rotate q p
where
(x, q) = handHandleOrient (locLDTToLocDT loc) cr
handHandleOrient :: LocationDT CItem -> Creature -> Point3Q
handHandleOrient loc cr =
handOrient cr (aimStance (loc' ^. locDT))