Allow for door destruction

2022-06-19 20:50:03 +01:00
parent 9e311cccf4
commit 08e5df07e2
14 changed files with 82 additions and 42 deletions
@@ -55,7 +55,7 @@ polygonWire :: [Point2] -> Picture
 {-# INLINE polygonWire #-}
 polygonWire ps = line (ps ++ [head ps])

-- need to check the winding!
+-- | Expects clockwise input.
 polygon :: [Point2] -> Picture
 {-# INLINE polygon #-}
 polygon = map f . polyToTris