sokoban: removing music.wav, it's pretty but it's over 40mb.

diff --git a/extra/sokoban/resources/music.wav b/extra/sokoban/resources/music.wav
deleted file mode 100644 (file)
index b0ee936..0000000
Binary files a/extra/sokoban/resources/music.wav and /dev/null differ

diff --git a/extra/sokoban/sokoban.factor b/extra/sokoban/sokoban.factor
index efe91c3ea7818270492e581e6b5ca7046ba12fab..43ba45a06b2b0573f811a035b409435c80572ed2 100644 (file)
--- a/extra/sokoban/sokoban.factor
+++ b/extra/sokoban/sokoban.factor
@@ -82,7 +82,6 @@ sokoban-gadget H{
      ;
 
 M: sokoban-gadget graft* ( gadget -- )
-    dup sokoban>> engine>> play-music
     [ [ tick ] curry 100 milliseconds every ] keep timer<< ;
 
 M: sokoban-gadget ungraft* ( gadget -- )
@@ -95,4 +94,4 @@ M: sokoban-gadget ungraft* ( gadget -- )
         "sokoban" open-status-window
     ] with-ui ;
 
-MAIN: sokoban-window
\ No newline at end of file
+MAIN: sokoban-window

diff --git a/extra/sokoban/sound/sound.factor b/extra/sokoban/sound/sound.factor
index c1b308bd5f2ba56c00fb3e3074627aba10c0b02e..7db45b6e8bc99a01ad9ebb3a18ff817397bc375f 100644 (file)
--- a/extra/sokoban/sound/sound.factor
+++ b/extra/sokoban/sound/sound.factor
@@ -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 ;
-    
-