Add objects based on walls, called machines

src/Dodge/Room/Placement.hs

@@ -96,8 +96,9 @@ baseBlockPane = defaultWall
     , _wlID = 0
     , _wlColor = greyN 0.5
     , _wlSeen = False
-    , _wlIsSeeThrough = False
+    , _wlOpacity = Opaque
     , _wlDraw = True
+    , _wlFireThrough = True
     }
 baseWindowPane :: Wall
 baseWindowPane = defaultWall
@@ -105,8 +106,9 @@ baseWindowPane = defaultWall
     , _wlID = 0
     , _wlColor = withAlpha 0.2 cyan
     , _wlSeen = False
-    , _wlIsSeeThrough = True
+    , _wlOpacity = SeeThrough
     , _wlDraw = True
+    , _wlFireThrough = True
     }
 {- Replaces instances of a given 'PutID' with 'PSType's drawn from a list.  -}
 replacePutID 

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)
             ]
             )