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

Tweak muzzle push out

Browse Source
This commit is contained in:
justin
2026-03-30 21:14:57 +01:00
parent 633bf479b2
commit c66b2fb299
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+4 -2
View File
@@ -358,8 +358,10 @@ muzzleWallCheck w cr = fromMaybe cr $ do
if null vs if null vs
then cr then cr
else else
let (_,wl) = minimumBy (compare `on` norm . fst) vs let (v,wl) = minimumBy (compare `on` norm . fst) vs
in cr & crPos . _xy +~ signorm (vNormal (uncurry (-) (wl ^. wlLine))) v' = signorm (vNormal (uncurry (-) (wl ^. wlLine)))
x = dotV v' v
in cr & crPos . _xy +~ min 1 x *^ v'
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