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
@@ -106,7 +106,12 @@ drawCollisionTest w = concat $ do
    b <- w ^. input . heldWorldPos . at ButtonRight
    return $
        setLayer DebugLayer (color orange $ line [a, b])
-            <> foldMap (drawCrossCol red . fst) (thingHit a b w)
+            <> foldMap (drawCrossCol red 
+--                  . xyV3
+                    . fst) 
+--                (collide3 (v2z a 0) (v2z b 0) w)
+--                (collide3Floors (v2z a 10) (v2z b (-10)) $ w ^. cWorld . chasms)
+                (thingHit a b w)

 drawCircCollisionTest :: World -> Picture
 drawCircCollisionTest w = concat $ do