Center and rotate to horizontal sound text

2021-09-12 21:00:02 +01:00
parent 72657294d1
commit 064d43f903
3 changed files with 14 additions and 2 deletions
@@ -99,7 +99,7 @@ moveFlame rotd w pt
        _                     -> (glare $ doSound damcrs        , mvPt)
  where 
    time = _btTimer' pt
-    doSound = soundContinue Flame (V2 x y) fireS (Just 2) -- . over worldEvents ((.) $ flameGlareAt ep)
+    doSound = soundContinue Flame (V2 x y) fireLoudS (Just 2) -- . over worldEvents ((.) $ flameGlareAt ep)
    glare 
        | time `mod` 5 == 0
                    = tempLightSources %~ (theTLS :)