Mercurial > vba-clojure

comparison clojure/com/aurellem/exp/music.clj @ 445:ea5ed834be11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving progress.
author Robert McIntyre <rlm@mit.edu>
date Fri, 27 Apr 2012 12:16:11 -0500
parents 3ee628fea5c2
children
comparison
equal deleted inserted replaced
444:3ee628fea5c2 445:ea5ed834be11
96 96
97 97
98 (def fight-gym-leader-song-simp 98 (def fight-gym-leader-song-simp
99 [ 99 [
100 100
101 (Integer/parseInt "00000100" 2) ;; channel-on/off 101 (Integer/parseInt "00000001" 2) ;; channel-on/off
102 102
103 0 ;; no-effect 103 0 ;; no-effect
104 104
105 ;; channel 0 105 ;; channel 0
106 0 ;; note-counter low 0xC006 106 0 ;; note-counter low 0xC006
123 123
124 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 124 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
125 125
126 ;; square wave duty (only first two bits matter.) 126 ;; square wave duty (only first two bits matter.)
127 ;; channel 0 127 ;; channel 0
128 (Integer/parseInt "11000000" 2) ;; 0xC03E 128 (Integer/parseInt "10000000" 2) ;; 0xC03E
129 ;; channel 1 129 ;; channel 1
130 (Integer/parseInt "11000000" 2) ;; 0xC03F 130 (Integer/parseInt "11000000" 2) ;; 0xC03F
131 131
132 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 132 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
133 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 133 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0