Improve machines, tweak wall ids

2021-11-01 15:21:21 +00:00
parent 7692421112
commit 7ddbbdda14
11 changed files with 76 additions and 28 deletions
@@ -11,7 +11,8 @@ import Shape

 lightSensor :: PSType
 lightSensor = PutMachine blue (reverse $ square wdth) defaultMachine
-    { _mcDraw = const lightSensorSPic }
+    { _mcDraw = const lightSensorSPic 
+    }

 lightSensorSPic :: SPic
 lightSensorSPic = ( colorSH blue $ upperPrismPoly 25 (square wdth)