Implement basic laser sensor

2021-11-01 18:20:45 +00:00
parent 0dcb1d2c07
commit 82de39657b
7 changed files with 59 additions and 21 deletions
@@ -37,7 +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
+            , lightSensor (V2 (0.8*w) (0.25*h)) 0
            , sps0 $ PutForeground $ colorSH orange $ pipePP 2 (V3 50 50 25) (V3 50 120 25)
            ]
            )