Mercurial > vba-clojure
comparison clojure/com/aurellem/exp/music.clj @ 443:afdc51232e4f
mapped more of RAM music-playing data structure.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Thu, 26 Apr 2012 06:52:35 -0500 |
parents | 58fe9c35d7c9 |
children | 3ee628fea5c2 |
comparison
equal
deleted
inserted
replaced
442:58fe9c35d7c9 | 443:afdc51232e4f |
---|---|
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 "00000001" 2) ;; channel-on/off | 101 (Integer/parseInt "00000111" 2) ;; channel-on/off |
102 ;; are active | |
103 | 102 |
104 0 ;; no-effect | 103 0 ;; no-effect |
105 | 104 |
106 ;; channel 0 | 105 ;; channel 0 |
107 0 ;; note-counter low | 106 0 ;; note-counter low 0xC006 |
108 92 ;; note-counter high | 107 92 ;; note-counter high 0xC007 |
109 | 108 |
110 ;; channel 1 | 109 ;; channel 1 |
111 43 ;; note-counter low | 110 43 ;; note-counter low 0xC008 |
112 94 ;; note-counter high | 111 94 ;; note-counter high 0xC009 |
113 | 112 |
114 ;; channel 2 | 113 ;; channel 2 |
115 112 ;; note-counter low | 114 112 ;; note-counter low 0xC00A |
116 95 ;; note-counter high | 115 95 ;; note-counter high 0xC00B |
116 | |
117 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 | |
118 | |
119 1 ;; if zero, mute channel 0xC026 | |
120 1 ;; | |
121 1 ;; | |
117 | 122 |
118 | 123 |
119 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 |
120 0 0 0 0 0 0 0 0 234 234 234 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 | 125 |
121 0 192 192 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 | 126 ;; square wave duty (only first two bits matter.) |
122 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 | 127 ;; channel 0 |
128 (Integer/parseInt "11000000" 2) ;; 0xC03E | |
129 ;; channel 1 | |
130 (Integer/parseInt "11000000" 2) ;; 0xC03F | |
131 | |
123 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 |
124 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 4 4 1 1 1 1 1 1 1 | 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 |
125 1 1 1 1 1 1 12 12 12 1 1 1 1 1 192 192 192 0 88 152 0 0 7 5 4 0 4 4 | 134 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 |
126 3 0 179 195 32 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 | 135 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
136 | |
137 | |
138 4 4 4;; these change very quickly! 0xC0B6 | |
139 | |
140 0 0 0 0 0 0 0 0 0 0 0 0 0 | |
141 | |
142 ;; Tempo | |
143 | |
144 ;; channel 0 tempo (higher is slower) | |
145 12 ;; 0xC0C6 | |
146 | |
147 ;; channel 1 tempo | |
148 12 ;; 0xC0C7 | |
149 | |
150 ;; channel 2 tempo | |
151 12 ;; 0xC0C8 | |
152 | |
153 0 0 0 0 0 0 0 0 0 0 0 0 0 | |
154 | |
155 0 ;; 0xC0D6 (transient pitch channel 0) | |
156 | |
157 0 0 0 0 0 0 0 | |
158 | |
159 179 | |
160 195 | |
161 | |
162 32 | |
163 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 | |
127 | 164 |
128 ]) | 165 ]) |
129 | 166 |
130 (defn change-music | 167 (defn change-music |
131 ([#^SaveState state start length song] | 168 ([#^SaveState state start length song] |