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

Muzzle pushback direction depends only on wall line

Browse Source
This commit is contained in:
justin
2026-03-30 20:30:18 +01:00
parent c7866cf668
commit d00b4d1c6f
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+3 -3
View File
@@ -359,12 +359,12 @@ muzzleWallCheck w cr = fromMaybe cr $ do
if null vs if null vs
then cr then cr
else else
let v = minimumBy (compare `on` norm) vs let (_,wl) = minimumBy (compare `on` norm . fst) vs
in cr & crPos . _xy +~ normalize v in cr & crPos . _xy +~ signorm (vNormal (uncurry (-) (wl ^. wlLine)))
where where
f loc = map (muzzlePos loc cr) (itemMuzzles loc) f loc = map (muzzlePos loc cr) (itemMuzzles loc)
g cp wls p = case collidePoint cp p wls of g cp wls p = case collidePoint cp p wls of
(ep, Just _) -> Just (ep - p) (ep, Just wl) -> Just (ep - p, wl)
_ -> Nothing _ -> Nothing
updateCreatureStrides :: World -> World updateCreatureStrides :: World -> World