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

Cleanup

Browse Source
This commit is contained in:
justin
2025-06-20 22:30:01 +01:00
parent 7e84dcf173
commit b45d6817f5
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEvent/ThingsHit.hs
+3 -3
View File
@@ -98,9 +98,9 @@ wlsHit sp ep
wlsHitRadial :: Point2 -> Float -> World -> [(Point2, Wall)]
wlsHitRadial p r = mapMaybe f . wlsNearCirc p r
where
f wl = uncurry (intersectSegSeg p (p -.- r *.* v)) (_wlLine wl) <&> (,wl)
f wl = uncurry (intersectSegSeg p (p - r *.* v)) (_wlLine wl) <&> (,wl)
where
v = normalizeV $ vNormal $ uncurry (-.-) $ _wlLine wl
v = normalizeV . vNormal . uncurry (-) $ _wlLine wl
crsHitRadial :: Point2 -> Float -> World -> [(Point2, Creature)]
crsHitRadial p r = mapMaybe f . crsNearCirc p r
@@ -108,4 +108,4 @@ crsHitRadial p r = mapMaybe f . crsNearCirc p r
f cr = do
let cp = _crPos cr
guard $ dist p cp < r + crRad (_crType cr)
return $ (cp + (1 + crRad (_crType cr)) *.* (cp - p), cr)
return (cp + (1 + crRad (_crType cr)) *.* (cp - p), cr)