Mercurial > vba-clojure

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added sound introspection abilities.
author Robert McIntyre <rlm@mit.edu>
date Sat, 23 Jun 2012 20:34:14 -0500
parents
children 7ef5c73ea8fa
line wrap: on
line source
     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