Various improvements, metal debris

2022-06-23 18:53:26 +01:00
parent e3d5c4eb4b
commit 8d266a6770
18 changed files with 147 additions and 82 deletions
@@ -10,7 +10,7 @@ import Data.Foldable

 zoneOfWall :: Wall -> [(Int,Int)]
 zoneOfWall wl 
-    | uncurry dist wlline <= 2*zoneSize = [zoneOfPoint $ uncurry pHalf wlline ]
+    | uncurry dist wlline <= 2*zoneSize = [zoneOfPoint $ uncurry midPoint wlline ]
    | otherwise = map zoneOfPoint $ uncurry (divideLine zoneSize) wlline
  where
    wlline = _wlLine wl