Add haddocks and/or cleanup

2021-04-04 16:26:06 +02:00
parent 1231939482
commit 3b417c4966
10 changed files with 174 additions and 116 deletions
@@ -77,7 +77,7 @@ pushOutFromWall rad cp2 (wp1:wp2:_)
          wp1' = (rad *.* norm) +.+ wp1
          wp2' = (rad *.* norm) +.+ wp2
          newP = errorClosestPointOnLine 5 wp1' wp2' cp2
-          isOnWall = circOnLine' wp1 wp2 cp2 rad
+          isOnWall = circOnSegNoEndpoints wp1 wp2 cp2 rad
          isJust Nothing = False
          isJust _       = True