Mercurial > vba-clojure
annotate 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 |
| rev | line source |
|---|---|
| rlm@523 | 1 (ns com.aurellem.run.sound |
| rlm@523 | 2 (:use (com.aurellem.gb saves gb-driver util constants |
| rlm@523 | 3 items vbm characters money |
| rlm@523 | 4 rlm-assembly)) |
| rlm@523 | 5 (:use (com.aurellem.run util music title save-corruption |
| rlm@523 | 6 bootstrap-0 bootstrap-1)) |
| rlm@523 | 7 (:require clojure.string) |
| rlm@523 | 8 (:import [com.aurellem.gb.gb_driver SaveState]) |
| rlm@523 | 9 (:import java.awt.image.BufferedImage) |
| rlm@523 | 10 (:import java.io.File)) |
| rlm@523 | 11 |
| rlm@523 | 12 |
| rlm@523 | 13 (defn sound-test [] |
| rlm@523 | 14 (step (mid-game)) |
| rlm@523 | 15 (println (frequencies (sound-data))) |
| rlm@523 | 16 (run-moves @current-state (repeat 10 [])) |
| rlm@523 | 17 (println (frequencies (sound-data)))) |
| rlm@523 | 18 |
| rlm@523 | 19 |
| rlm@523 | 20 |