comparison clojure/com/aurellem/run/sound.clj @ 523:d00096b6bf17

added sound introspection abilities.
author Robert McIntyre <rlm@mit.edu>
date Sat, 23 Jun 2012 20:34:14 -0500
parents
children 7ef5c73ea8fa
comparison
equal deleted inserted replaced
522:5596cd4a3fc6 523:d00096b6bf17
1 (ns com.aurellem.run.sound
2 (:use (com.aurellem.gb saves gb-driver util constants
3 items vbm characters money
4 rlm-assembly))
5 (:use (com.aurellem.run util music title save-corruption
6 bootstrap-0 bootstrap-1))
7 (:require clojure.string)
8 (:import [com.aurellem.gb.gb_driver SaveState])
9 (:import java.awt.image.BufferedImage)
10 (:import java.io.File))
11
12
13 (defn sound-test []
14 (step (mid-game))
15 (println (frequencies (sound-data)))
16 (run-moves @current-state (repeat 10 []))
17 (println (frequencies (sound-data))))
18
19
20