Add room foregrounds

src/Dodge/LevelGen.hs

@@ -81,6 +81,7 @@ placeSpot ps w = case _psType ps of
     PutDoubleDoor col f a b -> putDoubleDoor col f (shiftPointBy (p,rot) a) (shiftPointBy (p,rot) b) w
     PutAutoDoor a b -> addAutoDoor (shiftPointBy (p,rot) a) (shiftPointBy (p,rot) b) w
     PutBlock (hp:hps) col ps' -> putBlock (map (shiftPointBy (p,rot)) ps') hp col False hps w
+    PutBlock _ _ _ -> error "messed up block placement somehow"
     PutBtDoor c bp f a b -> addButtonDoor c (shiftPointBy (p,rot) bp) (f + rot) 
                             (shiftPointBy (p,rot) a) (shiftPointBy (p,rot) b) w
     PutSwitchDoor c bp f a b -> addSwitchDoor c (shiftPointBy (p,rot) bp) (f + rot) 
@@ -91,7 +92,10 @@ placeSpot ps w = case _psType ps of
       where 
         (q:qs) = map (shiftPointBy (p,rot)) ps'
         rmCrossPaths w' = foldr (uncurry removePathsCrossing) w' $ zip (q:qs) (qs++[q])
-    _   -> w
+    PutForeground pic -> w & foregroundDecorations %~ (uncurry translate p (rotate rot pic) :)
+    PutNothing -> w
+    PutID _ -> w
+    --_   -> w
   where 
     p = _psPos ps
     rot = _psRot ps