Start simplifying Prop

2025-10-25 13:05:14 +01:00
parent 0da3816664
commit 5fce0772f8
6 changed files with 52 additions and 76 deletions
@@ -39,14 +39,10 @@ data Debris = DebrisChunk
 --data PropType = FallingBlock Material

 data PropDraw
-    = PropDrawSPic SPic
-    | --    | PropDrawMovingShapeCol Shape
-      --    | PropDrawMovingShape PropDraw
-      PropDrawFlatTranslate PropDraw
+    = PropDrawFlatTranslate SPic
    | PropDoubleLampCover Float
    | PropVerticalLampCover Float
    | PropLampCover Float
-    | PropDrawToggle PropDraw

 --    | PropDrawGib Float
 --deriving (Eq, Ord, Show, Read) --Generic, Flat)