Zone creatures

2022-06-28 11:20:20 +01:00
parent f0a1e0685a
commit 61ad58c04a
10 changed files with 75 additions and 106 deletions
@@ -47,9 +47,9 @@ 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 
-        V2 x y = wallZoneOfPoint $ uncurry midPoint (_wlLine wl)
+        V2 x y = wlZoneOfPoint $ uncurry midPoint (_wlLine wl)
        wlid  = _wlID wl
-        ips = map (unv2 . wallZoneOfPoint) $ uncurry (divideLine (2*wlZoneSize)) (_wlLine wl)
+        ips = map (unv2 . wlZoneOfPoint) $ uncurry (divideLine (2*wlZoneSize)) (_wlLine wl)
        unv2 (V2 x' y') = (x',y')
 addBlock _ _ _ _ = error "Trying to add a block with incomplete polygon"