Refactor text rendering

2021-06-23 01:35:38 +02:00
parent 39218ed3b5
commit 899c1c5f6e
13 changed files with 48 additions and 56 deletions
@@ -50,6 +50,7 @@ loadSounds = do
    foamSprayFadeOut <- Mix.load "./data/sound/foamSprayFadeOut.wav" 
    sineRaisePitchOneSec <- Mix.load "./data/sound/sineRaisePitchOneSec.wav" 
    sineRaisePitchTwoSec <- Mix.load "./data/sound/sineRaisePitchTwoSec.wav" 
+    skwareFadeTwoSec <- Mix.load "./data/sound/skwareFadeTwoSec.wav" 
    return $ IM.fromList $ zip [0..]
        [ pFireSound
        , click
@@ -96,6 +97,7 @@ loadSounds = do
        , foamSprayFadeOut
        , sineRaisePitchOneSec
        , sineRaisePitchTwoSec
+        , skwareFadeTwoSec
        ]

 loadMusic :: IO (IM.IntMap Mix.Music)