Use tasty for tests, fix bug in circOnLine

2021-12-14 11:50:01 +00:00
parent ec51efabca
commit 47391f3850
19 changed files with 143 additions and 113 deletions
@@ -127,5 +127,6 @@ thingsHitLongLine sp ep w
    --   $ creaturesAlongLine sp ep w
    crPs = map (\cr -> ssaTriPoint ep (_crPos cr) sp (_crRad cr)) hitCrs
    wls = zip (map (fromJust . hitPoint) hitWls) (map Right hitWls)
-    hitWls = wallsOnLine sp ep $ wallsAlongLine sp ep w
+    --hitWls = wallsOnLine sp ep $ wallsAlongLine sp ep w
+    hitWls = wallsOnLine sp ep $ _walls w
    hitPoint wl = uncurry (intersectSegSeg sp ep) (_wlLine wl)