From c66b2fb2992a9b412978f98f1ff31e45c5fb9e38 Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 30 Mar 2026 21:14:57 +0100 Subject: [PATCH] Tweak muzzle push out --- src/Dodge/Update.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs index a93defa9d..95720bf3f 100644 --- a/src/Dodge/Update.hs +++ b/src/Dodge/Update.hs @@ -358,8 +358,10 @@ muzzleWallCheck w cr = fromMaybe cr $ do if null vs then cr else - let (_,wl) = minimumBy (compare `on` norm . fst) vs - in cr & crPos . _xy +~ signorm (vNormal (uncurry (-) (wl ^. wlLine))) + let (v,wl) = minimumBy (compare `on` norm . fst) vs + v' = signorm (vNormal (uncurry (-) (wl ^. wlLine))) + x = dotV v' v + in cr & crPos . _xy +~ min 1 x *^ v' where f loc = map (muzzlePos loc cr) (itemMuzzles loc) g cp wls p = case collidePoint cp p wls of