Work on sensor machines, remove some datatypes associated with placements

2021-11-01 23:07:58 +00:00
parent 82de39657b
commit 7ef1da9be5
16 changed files with 265 additions and 220 deletions
@@ -3,6 +3,7 @@ Find which objects lie upon a line.
 -}
 module Dodge.WorldEvent.ThingsHit
    ( thingsHit
+    , thingHit
    , thingsHitLongLine
    , thingsHitExceptCr
    , thingsHitExceptCrLongLine
@@ -40,6 +41,8 @@ thingsHit sp ep w
        _        -> IM.empty
    wls = zip (map (fromJust . hitPoint) hitWls) (map Right hitWls)
    hitPoint w' = uncurry (intersectSegSeg sp ep) (_wlLine w')
+thingHit :: Point2 -> Point2 -> World -> Maybe (Point2, Either Creature Wall)
+thingHit sp ep = listToMaybe . thingsHit sp ep
 {- List objects that appear on a line.
 Can filter out a creature.  -}
 thingsHitExceptCr