1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/clojure/com/aurellem/run/sound.clj	Sat Jun 23 20:34:14 2012 -0500
     1.3 @@ -0,0 +1,20 @@
     1.4 +(ns com.aurellem.run.sound
     1.5 +  (:use (com.aurellem.gb saves gb-driver util constants
     1.6 +                         items vbm characters money
     1.7 +                         rlm-assembly))
     1.8 +  (:use (com.aurellem.run util music title save-corruption
     1.9 +                          bootstrap-0 bootstrap-1))
    1.10 +  (:require clojure.string)
    1.11 +  (:import [com.aurellem.gb.gb_driver SaveState])
    1.12 +  (:import java.awt.image.BufferedImage)
    1.13 +  (:import java.io.File))
    1.14 +
    1.15 +
    1.16 +(defn sound-test []
    1.17 +  (step (mid-game))
    1.18 +  (println (frequencies (sound-data)))
    1.19 +  (run-moves @current-state (repeat 10 []))
    1.20 +  (println (frequencies (sound-data))))
    1.21 +
    1.22 +
    1.23 +        
    1.24 \ No newline at end of file