Mercurial > vba-clojure

comparison clojure/com/aurellem/exp/music.clj @ 442:58fe9c35d7c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
discovered meanig of first 8 bytes of music.
author Robert McIntyre <rlm@mit.edu>
date Thu, 26 Apr 2012 05:45:16 -0500
parents e682c9ed3056
children afdc51232e4f
comparison
equal deleted inserted replaced
441:e682c9ed3056 442:58fe9c35d7c9
94 3 0 179 195 32 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 0 0 94 3 0 179 195 32 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 0 0
95 0 0 0 0 0 0 0 0 0 0 0]) 95 0 0 0 0 0 0 0 0 0 0 0])
96 96
97 97
98 (def fight-gym-leader-song-simp 98 (def fight-gym-leader-song-simp
99 [234 0 0 255 0 0 92 43 94 112 95 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 99 [
100 0 0 0 0 0 0 0 0 234 234 234 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 100
101 0 192 192 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 7 0 0 0 0 0 0 33 17 17 0 0 0 101 (Integer/parseInt "00000001" 2) ;; channel-on/off
102 0 0 68 82 0 0 0 0 0 0 89 90 57 0 0 0 0 0 8 8 0 0 0 0 0 0 0 0 0 0 0 0 102 ;; are active
103
104 0 ;; no-effect
105
106 ;; channel 0
107 0 ;; note-counter low
108 92 ;; note-counter high
109
110 ;; channel 1
111 43 ;; note-counter low
112 94 ;; note-counter high
113
114 ;; channel 2
115 112 ;; note-counter low
116 95 ;; note-counter high
117
118
119 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
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
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
103 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 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
104 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 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
105 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 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
106 3 0 179 195 32 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 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
107 0 0 0 0 0 0 0 0 0 0 0]) 127
128 ])
108 129
109 (defn change-music 130 (defn change-music
110 ([#^SaveState state start length song] 131 ([#^SaveState state start length song]
111 132
112 (set-memory-range state (+ 0xC001 start) 133 (set-memory-range state (+ 0xC004 start)
113 (take length (drop start song)))) 134 (take length (drop start song))))
114 ([start length song] 135 ([start length song]
115 (continue! (change-music (read-state "rlm-viridian-forest") 136 (continue! (change-music (read-state "rlm-viridian-forest")
116 start length song)))) 137 start length song))))
117 138