Cleanup, improve auto wall rotate
This commit is contained in:
+1
-1
@@ -336,7 +336,7 @@ muzzleWallCheck w cr = fromMaybe cr $ do
|
||||
else let v = minimumBy (compare `on` norm) vs
|
||||
in cr & crPos . _xy +~ normalize v
|
||||
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
|
||||
(ep,Just _) -> Just (ep - p)
|
||||
_ -> Nothing
|
||||
|
||||
Reference in New Issue
Block a user