Mercurial > vba-clojure

comparison clojure/com/aurellem/run/basic_choreo.clj @ 551:b69a3dba8045

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
condensed gameboy program into a contigous sequence of bytes.
author Robert McIntyre <rlm@mit.edu>
date Thu, 30 Aug 2012 11:19:52 -0500
parents 6ce1d5fd4911
children 96ee9d72aeb9
comparison
equal deleted inserted replaced
550:23572082c4a5 551:b69a3dba8045
30 (defn-memo write-pony-music 30 (defn-memo write-pony-music
31 ([] (write-pony-music (silence-noise))) 31 ([] (write-pony-music (silence-noise)))
32 ([script] 32 ([script]
33 (let [bytes (midi-bytes 33 (let [bytes (midi-bytes
34 pony-csv 34 pony-csv
35 music-program-start
35 0xC400 36 0xC400
36 0xC800 37 0xC800
37 0xCC00 38 0xCC00)]
38 music-program-start)]
39 (->> script 39 (->> script
40 (write-RAM (:address (:voice-1 bytes)) 40 (write-RAM (:address (:voice-1 bytes))
41 (:data (:voice-1 bytes))) 41 (:data (:voice-1 bytes)))
42 (write-RAM (:address (:voice-2 bytes)) 42 (write-RAM (:address (:voice-2 bytes))
43 (:data (:voice-2 bytes))) 43 (:data (:voice-2 bytes)))