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@524: (import javax.sound.sampled.AudioFormat)
rlm@524: (import com.aurellem.gb.WaveWriter)
rlm@524: 
rlm@524: (def probable-format (AudioFormat. 44100 16 2 true false))
rlm@524: 
rlm@524: (defn test-writing-file! [n]
rlm@524:   (set-state! (play-midi pony-csv))
rlm@524:   (let [target-file
rlm@524:         (File. "/home/r/proj/vba-clojure/test-sound.wav")
rlm@524:         writer (WaveWriter. target-file)]
rlm@524:     (dorun
rlm@524:      (for [y (range n)]
rlm@524:        (do
rlm@524:          (let [quanta 30]
rlm@524:            (run-moves @current-state (repeat quanta []))
rlm@524:            (let [data (sound-data)
rlm@524:                  step-section
rlm@524:                  (byte-array (take (* 2940 quanta) data))]
rlm@524:              
rlm@524:              (.process writer step-section probable-format))))))
rlm@524:      (.cleanup writer)
rlm@524:      (Thread/sleep 1000)
rlm@524:      (clojure.java.shell/sh
rlm@524:       "aplay"
rlm@524:       (.getCanonicalPath target-file))))
rlm@524: