justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Tweak corpse cliff interaction

Browse Source
This commit is contained in:
justin
2026-04-08 23:13:19 +01:00
parent 34192777a6
commit 77c0680bd5
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Corpse/Make.hs
+2 -2
View File
@@ -43,8 +43,8 @@ chaseCorpse g cr = mconcat
] ]
where where
neckq = (V3 6 0 0, Q.qz a) neckq = (V3 6 0 0, Q.qz a)
a = fst $ randomR (-2,2) $ g a = fst $ randomR (-2,2) g
b = fst $ randomR (-2,2) $ g b = fst $ randomR (-2,2) g
cskin = crShape $ _crType cr -- this should be fixed cskin = crShape $ _crType cr -- this should be fixed
rotmdir = rotateSH (_crMvDir cr - _crDir cr) rotmdir = rotateSH (_crMvDir cr - _crDir cr)
headq = neckq `Q.comp` (V3 16 0 0, Q.qz b ) headq = neckq `Q.comp` (V3 16 0 0, Q.qz b )
src/Dodge/Creature/State/WalkCycle.hs
+1 -1
View File
@@ -68,7 +68,7 @@ walkCliffPush cr xs = pushAgainst (cr ^. crOldPos . _xy - cr ^. crOldOldPos . _x
groundCliffPush :: Creature -> [(Point2,Point2)] -> Point2 groundCliffPush :: Creature -> [(Point2,Point2)] -> Point2
groundCliffPush cr xs = x *^ circSegsInside cxy r xs groundCliffPush cr xs = x *^ circSegsInside cxy r xs
where where
x = max 0 $ 0.25 * (1 - dist cxy p / (2*r)) ** 2 x = max 0.01 $ 0.25 * (1 - dist cxy p / (2*r)) ** 2
cxy = cr ^. crPos . _xy cxy = cr ^. crPos . _xy
r = cr ^. crType . to crRad r = cr ^. crType . to crRad
p = circSegsInside' cxy r xs p = circSegsInside' cxy r xs