Mercurial > vba-clojure
comparison clojure/com/aurellem/exp/music.clj @ 445:ea5ed834be11
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 |