Mercurial > vba-clojure
diff clojure/com/aurellem/gb/gb_driver.clj @ 523:d00096b6bf17
added sound introspection abilities.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 23 Jun 2012 20:34:14 -0500 |
parents | 5596cd4a3fc6 |
children | 7ef5c73ea8fa |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/gb/gb_driver.clj Sat Jun 23 19:12:26 2012 -0500 1.2 +++ b/clojure/com/aurellem/gb/gb_driver.clj Sat Jun 23 20:34:14 2012 -0500 1.3 @@ -193,6 +193,12 @@ 1.4 ([new-data] 1.5 (store-data @current-state new-data)))) 1.6 1.7 +(def sound-data 1.8 + (cpu-data Gb/SOUND_SIZE 1.9 + (fn [arr] 1.10 + (Gb/getFrameSound arr) 1.11 + (Gb/setSoundFrameWritten 0)))) 1.12 + 1.13 (def memory 1.14 (cpu-data Gb/GB_MEMORY #(Gb/getMemory %))) 1.15