From 12319394824b7e90f627940a667ce1f648dfae71 Mon Sep 17 00:00:00 2001 From: jgk Date: Sun, 4 Apr 2021 15:03:59 +0200 Subject: [PATCH] Cleanup --- src/Dodge/LevelGen/StaticWalls.hs | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/src/Dodge/LevelGen/StaticWalls.hs b/src/Dodge/LevelGen/StaticWalls.hs index e689693d3..1817eea71 100644 --- a/src/Dodge/LevelGen/StaticWalls.hs +++ b/src/Dodge/LevelGen/StaticWalls.hs @@ -203,6 +203,7 @@ fuseWallsWith zs ws = snd $ foldr fuseWalls' (zs, []) ws let (qs, w') = fuseWall (ps, w) in (qs, w' : ws) +-- | Test if fst p == snd p. wallIsZeroLength (x,y) = x == y -- | Given a polygon and list of walls, removes walls inside the polygon. @@ -214,19 +215,3 @@ removeWallsInPolygon ps walls = filter (not . cond) walls -- pointInOrOnPolygon (fst wall) ps -- && pointInOrOnPolygon (snd wall) ps -hw x y = 0.5 *.* (x +.+ y) - - ---pairElems :: Eq a => [(a,a)] -> [a] ---pairElems = concatMap flat2 --- where --- flat2 (x,y) = [x,y] --- ---findLinkedPairs :: Eq a => (a,a) -> [(a,a)] -> [(a,a)] ---findLinkedPairs (x,y) = ( (x,y) : ) . filter f --- where --- f (a,b) = b == x || a == y --- --- ---combineListsWithID :: Eq a => [[a]] -> [[a]] ---combineListsWithID (x: