Partial fix to static wall generation, add haddocks

2021-04-04 14:06:56 +02:00
parent 3a1b15aced
commit 1b6b89f4d7
3 changed files with 103 additions and 62 deletions
@@ -57,14 +57,6 @@ pointInPolygon :: Point2 -> [Point2] -> Bool
 pointInPolygon !p [] = False
 pointInPolygon !p (x:xs) = all (\l -> uncurry (errorIsLHS 1) l p) $ zip (x:xs) (xs ++ [x])

-pointInsidePolygon :: Point2 -> [Point2] -> Bool
-pointInsidePolygon !p (x:xs) = all (\l -> not (uncurry isRHS l (p +.+ normalizeV s))) pairs
-    || any (\l -> uncurry isOnLine l p) pairs
-  where 
-    pairs = zip (x:xs) (xs ++ [x])
-    s = ((1/fromIntegral (length (x:xs))) *.* (foldr1 (+.+) (x:xs))) -.- p
-
-
 errorPointInPolygon :: Int -> Point2 -> [Point2] -> Bool
 errorPointInPolygon !i !p xs 
    | length xs == 1 = error "one point polygon"