Mercurial > vba-clojure
changeset 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 |
| files | clojure/com/aurellem/exp/music.clj |
| diffstat | 1 files changed, 52 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/exp/music.clj Thu Apr 26 05:45:16 2012 -0500 1.2 +++ b/clojure/com/aurellem/exp/music.clj Thu Apr 26 06:52:35 2012 -0500 1.3 @@ -98,32 +98,69 @@ 1.4 (def fight-gym-leader-song-simp 1.5 [ 1.6 1.7 - (Integer/parseInt "00000001" 2) ;; channel-on/off 1.8 - ;; are active 1.9 + (Integer/parseInt "00000111" 2) ;; channel-on/off 1.10 1.11 0 ;; no-effect 1.12 1.13 ;; channel 0 1.14 - 0 ;; note-counter low 1.15 - 92 ;; note-counter high 1.16 + 0 ;; note-counter low 0xC006 1.17 + 92 ;; note-counter high 0xC007 1.18 1.19 ;; channel 1 1.20 - 43 ;; note-counter low 1.21 - 94 ;; note-counter high 1.22 + 43 ;; note-counter low 0xC008 1.23 + 94 ;; note-counter high 0xC009 1.24 1.25 ;; channel 2 1.26 - 112 ;; note-counter low 1.27 - 95 ;; note-counter high 1.28 + 112 ;; note-counter low 0xC00A 1.29 + 95 ;; note-counter high 0xC00B 1.30 1.31 + 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 1.32 1.33 - 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1.34 - 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 1.35 - 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 1.36 - 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 1.37 + 1 ;; if zero, mute channel 0xC026 1.38 + 1 ;; 1.39 + 1 ;; 1.40 + 1.41 + 1.42 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1.43 + 1.44 + ;; square wave duty (only first two bits matter.) 1.45 + ;; channel 0 1.46 + (Integer/parseInt "11000000" 2) ;; 0xC03E 1.47 + ;; channel 1 1.48 + (Integer/parseInt "11000000" 2) ;; 0xC03F 1.49 + 1.50 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 1.51 - 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 1.52 - 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 1.53 - 3 0 179 195 32 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 1.54 + 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 1.55 + 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 1.56 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1.57 + 1.58 + 1.59 + 4 4 4;; these change very quickly! 0xC0B6 1.60 + 1.61 + 0 0 0 0 0 0 0 0 0 0 0 0 0 1.62 + 1.63 + ;; Tempo 1.64 + 1.65 + ;; channel 0 tempo (higher is slower) 1.66 + 12 ;; 0xC0C6 1.67 + 1.68 + ;; channel 1 tempo 1.69 + 12 ;; 0xC0C7 1.70 + 1.71 + ;; channel 2 tempo 1.72 + 12 ;; 0xC0C8 1.73 + 1.74 + 0 0 0 0 0 0 0 0 0 0 0 0 0 1.75 + 1.76 + 0 ;; 0xC0D6 (transient pitch channel 0) 1.77 + 1.78 + 0 0 0 0 0 0 0 1.79 + 1.80 + 179 1.81 + 195 1.82 + 1.83 + 32 1.84 + 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 1.85 1.86 ]) 1.87