Partial fix to level generation

2021-03-29 12:26:16 +02:00
parent c959b7d59c
commit 502832b2b8
3 changed files with 9 additions and 11 deletions
@@ -101,7 +101,6 @@ safeNormalizeV !(0,0) = (0,0)
 safeNormalizeV !p     = normalizeV p

 -- tests whether a point is on the LHS of a line
-- this has been called somewhere with l1 == l2
 isLHS :: Point2 -> Point2 -> Point2 -> Bool
 {-# INLINE isLHS #-}
 isLHS' :: (Float, Float) -> (Float, Float) -> Point2 -> Bool