Add objects based on walls, called machines

src/Dodge/Machine/Sensor.hs

@@ -0,0 +1,21 @@
+module Dodge.Machine.Sensor
+    ( lightSensor
+    ) where
+import Color
+import Dodge.Data
+import Dodge.LevelGen.Data
+import Dodge.Default
+import Geometry
+import ShapePicture
+import Shape
+
+lightSensor :: PSType
+lightSensor = PutMachine blue (reverse $ square wdth) defaultMachine
+    { _mcDraw = const lightSensorSPic }
+
+lightSensorSPic :: SPic
+lightSensorSPic = ( colorSH blue $ upperPrismPoly 25 (square wdth)
+    , mempty )
+
+wdth :: Float
+wdth = 5