Refactor sound

src/Dodge/Render/Picture.hs

@@ -10,6 +10,7 @@ import Dodge.Picture.SizeInvariant
 import Dodge.Picture.Layer
 import Dodge.Render.HUD
 import Dodge.Render.MenuScreen
+import Dodge.SoundLogic.LoadSound
 import Sound.Data
 import Geometry
 import Picture
@@ -77,7 +78,7 @@ soundPic :: World -> Sound -> Picture
 soundPic w s = fixedSizePicClampArrow 50 50 thePic p w
   where
     p = _soundPos s
-    thePic = scale 0.15 0.15 $ text "SOUND"
+    thePic = scale 0.15 0.15 $ text $ soundToOnomato $ _soundChunkID s
 
 crDraw :: World -> Creature -> Picture
 crDraw w c = _crPict c c w