Work on gibs and chasms

2025-08-01 09:39:13 +01:00
parent 7110ddb7a6
commit eeb7c8ac88
22 changed files with 586 additions and 373 deletions
@@ -22,6 +22,7 @@ worldSPic :: Configuration -> Universe -> SPic
 worldSPic cfig u =
    (mempty :!: extraPics cfig u)
        <> foldup propSPic (filtOn _prPos _props)
+        <> foldMap' debrisSPic (filtOn' (xyV3 . _dbPos) _debris)
        <> foldup drawProjectile (filtOn _pjPos _projectiles)
        <> foldup drawPulseBall (filtOn _pbPos _pulseBalls)
        <> foldup (shiftDraw _blPos _blDir (drawBlock . _blDraw)) (filtOn _blPos _blocks)
@@ -36,6 +37,7 @@ worldSPic cfig u =
    w = _uvWorld u
    foldup = foldMap'
    filtOn f g = IM.filter (pointIsClose . f) (g (_lWorld (_cWorld w)))
+    filtOn' f g = filter (pointIsClose . f) (g (_lWorld (_cWorld w)))
    pointIsClose = cullPoint cfig w

 drawChasm :: [Point2] -> SPic