Implement generalised storing of position for mouse presses

2023-03-26 23:00:07 +01:00
parent e5906eefa3
commit ee89ac9b00
10 changed files with 27 additions and 39 deletions
@@ -249,7 +249,6 @@ anythingHitCirc rad sp ep w = hitCr || isJust (sequence hitWl)
            (\cr -> null $ intersectCircSeg (_crPos cr) (rad + _crRad cr) sp ep)
            (w ^? cWorld . lWorld . creatures . ix cid)
            || bl
-
-    hitWl = collideCircWalls sp ep rad $ wlsNearPoint ep w
+    hitWl = collideCircWalls sp ep rad $ wlsNearSeg sp ep w

 -- this should probably be wallsOnLine or something