comparison 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
comparison
equal deleted inserted replaced
522:5596cd4a3fc6 523:d00096b6bf17
190 (assert (= size (count new-data))) 190 (assert (= size (count new-data)))
191 (store-fn store) 191 (store-fn store)
192 (update-state))) 192 (update-state)))
193 ([new-data] 193 ([new-data]
194 (store-data @current-state new-data)))) 194 (store-data @current-state new-data))))
195
196 (def sound-data
197 (cpu-data Gb/SOUND_SIZE
198 (fn [arr]
199 (Gb/getFrameSound arr)
200 (Gb/setSoundFrameWritten 0))))
195 201
196 (def memory 202 (def memory
197 (cpu-data Gb/GB_MEMORY #(Gb/getMemory %))) 203 (cpu-data Gb/GB_MEMORY #(Gb/getMemory %)))
198 204
199 (def ram 205 (def ram