Allow chunk debris to fall down chasms

2025-08-02 22:49:10 +01:00
parent 5722ca8204
commit ae24720762
4 changed files with 59 additions and 59 deletions
@@ -44,7 +44,7 @@ data DebrisType =
    Gib {_gibSize :: Float
        ,_gibColor :: Color
        }
-    | BlockDebris {_bdMaterial :: Material}
+    | BlockDebris {_bdColor :: Color}

 data Debris = DebrisChunk
        { _dbPos :: Point3
@@ -54,7 +54,7 @@ data Debris = DebrisChunk
        , _dbSpin :: Q.Quaternion Float
        }

-data PropType = FallingBlock Material
+--data PropType = FallingBlock Material

 data PropDraw
    = PropDrawSPic SPic