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
@@ -47,7 +47,7 @@ addBlock (p:ps) wl bl w = w
            = insertIMInZone x y wlid wl'
        | otherwise = flip (foldl' $ flip (\(a,b) -> insertIMInZone a b wlid wl')) ips
      where 
-        (x,y) = zoneOfPoint $ uncurry pHalf (_wlLine wl)
+        (x,y) = zoneOfPoint $ uncurry midPoint (_wlLine wl)
        wlid  = _wlID wl
        ips = map zoneOfPoint $ uncurry (divideLine (2*zoneSize)) (_wlLine wl)
 addBlock _ _ _ _ = error "Trying to add a block with incomplete polygon"