]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/sokoban/sound/sound.factor
sokoban: removing music.wav, it's pretty but it's over 40mb.
[factor.git] / extra / sokoban / sound / sound.factor
index c1b308bd5f2ba56c00fb3e3074627aba10c0b02e..7db45b6e8bc99a01ad9ebb3a18ff817397bc375f 100644 (file)
@@ -16,12 +16,3 @@ IN: sokoban.sound
     
     engine T{ audio-source f { 0.0 0.0 0.0 } 1.0 { 0.0 0.0 0.0 } f } once-sound f
         play-static-audio-clip drop ;
-
-:: play-music ( engine -- )
-    $[ "vocab:sokoban/resources/music.wav" read-audio ] :> loop-sound
-    engine start-audio*
-    
-    engine T{ audio-source f { 0.0 0.0 0.0 } 1.0 { 0.0 0.0 0.0 } f } loop-sound t
-        play-static-audio-clip drop ;
-    
-