Add looping sound, add sound to terminals

2022-03-16 09:23:17 +00:00
parent 5623747b01
commit 5aeb04ba05
24 changed files with 156 additions and 133 deletions
@@ -53,8 +53,8 @@ damageUsing dt dm
    | otherwise = Right 0

 sensorSPic :: Float -> (PaletteColor,DecorationShape) -> Machine -> SPic
-sensorSPic wdth (pc,ds) _ = ( (colorSH yellow $ upperPrismPoly 25 (square wdth))
-    <> decorationToShape ds wdth wdth 25 col col
-    , mempty )
+sensorSPic wdth (pc,ds) _ = noPic 
+    $ colorSH yellow (upperPrismPoly 25 (square wdth))
+        <> decorationToShape ds wdth wdth 25 col col
  where
    col = paletteToColor pc