Add objects based on walls, called machines

src/Dodge/Room/Start.hs

@@ -9,6 +9,7 @@ import Dodge.Room.Furniture
 import Dodge.Layout.Tree.Polymorphic
 import Dodge.LevelGen.Data
 import Dodge.LightSources.Fitting
+import Dodge.Machine.Sensor
 import Geometry.Data
 import Color
 import Shape
@@ -36,6 +37,7 @@ startRoom = do
             , tankSquareEmboss4 (dim orange) 50 (h-60)
             , tankSquare (dim orange) 50 50
             , tankSquare (dim orange) 50 120
+            , sPS (V2 (0.8*w) (0.25*h)) 0 lightSensor
             , sps0 $ PutForeground $ colorSH orange $ pipePP 2 (V3 50 50 25) (V3 50 120 25)
             ]
             )