Make buttons have shape, expose multiple bugs

src/Dodge/Room/Start.hs

@@ -8,7 +8,7 @@ import Dodge.Room.Placement
 import Dodge.Room.Foreground
 import Dodge.Layout.Tree.Polymorphic
 import Dodge.LevelGen.Data
-import Dodge.LightSources
+--import Dodge.LightSources
 --import Picture
 import Geometry.Data
 
@@ -33,13 +33,10 @@ startRoom = do
         <$> randomiseOutLinks (shiftRoomBy (V2 (-20) (-20),0) 
                 $ roomRectAutoLinks w h & rmPS .~ 
             [ fground
-            --, theLamp
-            , sPS (V2 100 100) 0 $ PutLS (colorLightAt (V3 0.75 0 0) (V3 0 0 lampHeight) 0) (lampPic lampHeight)
-            , sPS (V2 100 100) 0 $ PutProp $ lampCover lampHeight
+            , theLamp
+            --, sPS (V2 100 100) 0 $ PutLS (colorLightAt (V3 0.75 0 0) (V3 0 0 lampHeight) 0) (lampPic lampHeight)
+            --, sPS (V2 100 100) 0 $ PutProp $ lampCover lampHeight
             ]
             )
   where
-    lampHeight = 41
---  where
---    cola = dark . dark . light . light $ light red
---    colb = dark . dark . light . light $ light blue
+    --lampHeight = 41