Readd wall corner collisions

2021-11-19 22:43:46 +00:00
parent 5658692ee4
commit 51d89982ed
8 changed files with 49 additions and 21 deletions
@@ -19,6 +19,7 @@ import Data.Maybe
 -- | Describe a wall as two points.
 -- Order is important: the wall face is to the left of the line going from 
 -- 'fst' to 'snd'.
+-- TODO remove duplication
 type WallP = (Point2,Point2)
 -- | Remove inverse walls.
 removeInverseWalls :: [WallP] -> [WallP]