From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 1 Aug 2022 15:08:49 +0000 (-0700)
Subject: sokoban: removing music.wav, it's pretty but it's over 40mb.
X-Git-Tag: 0.99~1233
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=b2f81ff38e9a306837ac091154e8e5e03878367f

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
index b0ee9366a1..0000000000
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 efe91c3ea7..43ba45a06b 100644
--- 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 c1b308bd5f..7db45b6e8b 100644
--- 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 ;
-    
-