Move toward implementing chasms

2025-07-30 00:01:07 +01:00
parent fa377171a4
commit 210171fbc9
10 changed files with 327 additions and 317 deletions
@@ -31,12 +31,16 @@ worldSPic cfig u =
        <> foldup floorItemSPic (filtOn _flItPos (_unNIntMap . _floorItems))
        <> foldup btSPic (filtOn _btPos _buttons)
        <> foldup (mcSPic (u ^. uvWorld . cWorld . lWorld)) (filtOn _mcPos _machines)
+        <> foldMap' drawChasm (u ^. uvWorld . cWorld . chasms)
  where
    w = _uvWorld u
    foldup = foldMap'
    filtOn f g = IM.filter (pointIsClose . f) (g (_lWorld (_cWorld w)))
    pointIsClose = cullPoint cfig w

+drawChasm :: [Point2] -> SPic
+drawChasm = noShape . color green . setDepth 2 . polygon
+
 drawPulseBall :: PulseBall -> SPic
 drawPulseBall pb =
    translateSPz 20