rlm@523: (ns com.aurellem.run.sound
rlm@523:   (:use (com.aurellem.gb saves gb-driver util constants
rlm@523:                          items vbm characters money
rlm@523:                          rlm-assembly))
rlm@523:   (:use (com.aurellem.run util music title save-corruption
rlm@523:                           bootstrap-0 bootstrap-1))
rlm@523:   (:require clojure.string)
rlm@523:   (:import [com.aurellem.gb.gb_driver SaveState])
rlm@523:   (:import java.awt.image.BufferedImage)
rlm@523:   (:import java.io.File))
rlm@523: 
rlm@523: 
rlm@523: (defn sound-test []
rlm@523:   (step (mid-game))
rlm@523:   (println (frequencies (sound-data)))
rlm@523:   (run-moves @current-state (repeat 10 []))
rlm@523:   (println (frequencies (sound-data))))
rlm@523: 
rlm@523: 
rlm@523: