Add sound queue when on chasm edge

src/Geometry/Polygon.hs

@@ -67,6 +67,12 @@ pointInPolygon :: Point2 -> [Point2] -> Bool
 pointInPolygon !p (x : xs) = all (\l -> uncurry isLHS l p) $ zip (x : xs) (xs ++ [x])
 pointInPolygon _ [] = False
 
+circInPolygon :: Point2 -> Float -> [Point2] -> Bool
+circInPolygon !p !r (x : xs) = all f $ zip (x : xs) (xs ++ [x])
+  where
+    f l = uncurry isLHS l (p - r *.* vNormal (normalizeV (uncurry (-.-) l)))
+circInPolygon _ _ [] = False
+
 orderPolygonAround ::
     -- | point to order around
     Point2 ->