Various improvements, metal debris

2022-06-23 18:53:26 +01:00
parent e3d5c4eb4b
commit 8d266a6770
18 changed files with 147 additions and 82 deletions
@@ -5,6 +5,7 @@ import Geometry
 import Dodge.RoomLink
 import Dodge.Data
 import Dodge.Default.Room
+import Dodge.Default.Door
 import Dodge.Placement.Instance
 import Color

@@ -39,6 +40,6 @@ triggerDoorRoom inplid = defaultRoom
 -- note no bounds
    }
  where 
-    f (pmnt:_) = putDoubleDoor False red (cond pmnt) (V2 0 20) (V2 40 20) 2
+    f (pmnt:_) = putDoubleDoor (switchWallCol red) (cond pmnt) (V2 0 20) (V2 40 20) 2
    f _ = error "tried to put a door using an empty placement list"
    cond pmnt w = w & _triggers w IM.! fromJust (_plMID pmnt)