Improve chasm falls, add ear clipping

2026-03-23 19:35:07 +00:00
parent 505ced95bb
commit daba012e83
3 changed files with 33 additions and 11 deletions
@@ -238,8 +238,8 @@ sqPlatformChasm b a =

 sqSpitChasm :: Float -> Float -> ([[Point2]], [[Point2]])
 sqSpitChasm b a =
-    ( --[[ibr, obr, otr, itr], [itr, otr, otl, itl], [itl, otl, obl, ibl]]
-        convexPartition clfs
+    ( [[ibr, obr, otr, itr], [itr, otr, otl, itl], [itl, otl, obl, ibl]]
+--    ( earClip clfs
    , [clfs]
    )
  where