Refactor sounds

2021-09-09 14:58:07 +01:00
parent be7b2d2cd7
commit 70c97f5367
26 changed files with 113 additions and 162 deletions
@@ -212,7 +212,7 @@ defaultButton = Button
    , _btEvent = \b w -> 
        set (buttons . ix (_btID b) . btPict) (onLayer WlLayer $ color red $ polygon $ rectNSEW (-4) (-5) 10 (-10))
        . set (buttons . ix (_btID b) . btState) BtNoLabel
-        . soundOnce 1 $ w
+        . soundFrom (LeverSound 0) (_btPos b) 1 Nothing $ w
    , _btID = 0
    , _btText = "Button"
    , _btState = BtOff