Mercurial > vba-clojure

annotate clojure/com/aurellem/music/midi_util.clj @ 245:a50faba43967

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
forgot to include Bird type with the list of available type names for type advantage data. now hxc-advantage is correct.
author Dylan Holmes <ocsenave@gmail.com>
date Sun, 25 Mar 2012 23:04:01 -0500
parents 5b59c6f17cd5
children 2873f50b7291
rev   line source
ocsenave@242 1 (ns com.aurellem.music.midi-util
ocsenave@242 2 ;;(:import javax.sound.sampled)
ocsenave@242 3 (:import (javax.sound.midi MidiSystem
ocsenave@242 4 Sequence
ocsenave@242 5 Track
ocsenave@242 6 MidiEvent
ocsenave@242 7 MetaMessage
ocsenave@242 8
ocsenave@242 9 ShortMessage)
ocsenave@242 10 (com.sun.media.sound FastShortMessage)
ocsenave@242 11 (java.io File))
ocsenave@242 12
ocsenave@242 13 (:use (com.aurellem.gb saves util constants gb-driver vbm items assembly characters))
ocsenave@242 14 (:use (com.aurellem.run title))
ocsenave@242 15 (:use (com.aurellem.exp pokemon item-bridge))
ocsenave@242 16 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@242 17
ocsenave@242 18
ocsenave@242 19 ;;; PURE MIDI MANIPULATION
ocsenave@242 20
ocsenave@242 21 (defn midi-load
ocsenave@242 22 "Takes a path to a MIDI file and returns a Sequence object."
ocsenave@242 23 [path]
ocsenave@242 24 ((fn [file]
ocsenave@242 25 (if (.exists file)
ocsenave@242 26 (MidiSystem/getSequence file)
ocsenave@242 27 nil))
ocsenave@242 28 (File. path)))
ocsenave@242 29
ocsenave@242 30
ocsenave@243 31
ocsenave@243 32 (def midi-play-file
ocsenave@242 33 "Plays the MIDI file at the given location. The MIDI file runs in
ocsenave@242 34 the current thread until it finishes or is cancelled."
ocsenave@243 35 (comp midi-play-seq midi-load))
ocsenave@243 36
ocsenave@243 37
ocsenave@243 38 (defn midi-play-seq
ocsenave@243 39 "Plays the MIDI Sequence. The MIDI runs in
ocsenave@243 40 the current thread until it finishes or is cancelled."
ocsenave@243 41 [midi]
ocsenave@242 42 (if (nil? midi) nil
ocsenave@242 43 (let [song
ocsenave@242 44 (doto
ocsenave@242 45 (MidiSystem/getSequencer)
ocsenave@242 46 (.open)
ocsenave@242 47 (.setSequence midi)
ocsenave@242 48 (.start))]
ocsenave@242 49 (try
ocsenave@242 50 (loop []
ocsenave@242 51 (if (. song (isRunning))
ocsenave@242 52 (do
ocsenave@242 53 (Thread/sleep 10)
ocsenave@242 54 (recur))
ocsenave@243 55 ))
ocsenave@243 56 (finally (.close song))))))
ocsenave@242 57
ocsenave@242 58
ocsenave@242 59 (defn midi-test-1 []
ocsenave@242 60 (-> (.
ocsenave@242 61 (midi-load
ocsenave@242 62 "/home/ocsenave/bk_robert/sounds/sounds/www.vgmusic.com/console/nintendo/gameboy/PkmRB-Item.mid")
ocsenave@242 63 (getTracks))
ocsenave@242 64
ocsenave@242 65 (vec)
ocsenave@243 66 (nth 1)
ocsenave@242 67
ocsenave@242 68 ((fn[trk]
ocsenave@242 69 (map #(. trk (get %))
ocsenave@242 70 (range 0 (. trk size)))))
ocsenave@242 71
ocsenave@242 72 ((fn [evts]
ocsenave@243 73 (map (juxt #(.getTick %) #(vec (.getMessage (.getMessage
ocsenave@243 74 %))) #(.getMessage %) ) evts)
ocsenave@242 75 )
ocsenave@242 76
ocsenave@242 77 )))
ocsenave@242 78
ocsenave@242 79
ocsenave@242 80
ocsenave@242 81
ocsenave@242 82
ocsenave@243 83 (defn midi-short
ocsenave@243 84 "Creates a MIDI event containing a ShortMessage."
ocsenave@243 85 [tick [status & ns]]
ocsenave@243 86 (MidiEvent.
ocsenave@243 87 (apply
ocsenave@243 88 (fn
ocsenave@243 89 ([x] (doto (ShortMessage.) (.setMessage x)))
ocsenave@243 90 ([x y] (doto (ShortMessage.) (.setMessage x y 0)))
ocsenave@243 91 ([x y z] (doto (ShortMessage.) (.setMessage x y z)))
ocsenave@243 92 ([x y z w] (doto (ShortMessage.) (.setMessage x y z w))))
ocsenave@243 93 status
ocsenave@243 94 ns)
ocsenave@243 95 tick))
ocsenave@242 96
ocsenave@243 97 (defn midi-meta
ocsenave@243 98 "Creates a MIDI event containing a MetaMessage"
ocsenave@243 99 [tick type ns]
ocsenave@243 100 (MidiEvent.
ocsenave@243 101 (doto (MetaMessage.)
ocsenave@243 102 (.setMessage type
ocsenave@243 103 (byte-array (map byte ns))
ocsenave@243 104 (count ns)))
ocsenave@243 105 tick))
ocsenave@242 106
ocsenave@243 107
ocsenave@243 108
ocsenave@243 109 (defn sign
ocsenave@243 110 "Interpret the bits of n as a signed two's-complement byte"
ocsenave@243 111 [n]
ocsenave@243 112 (if (>= n 128) (- n 256)
ocsenave@243 113 n))
ocsenave@243 114
ocsenave@243 115 (defn unsign
ocsenave@243 116 "Interpret the bits as an unsigned byte."
ocsenave@243 117 [n]
ocsenave@243 118 (if (neg? n) (+ n 256) n))
ocsenave@243 119
ocsenave@243 120
ocsenave@242 121
ocsenave@242 122
ocsenave@242 123 (defn midi-test-2 []
ocsenave@243 124 (let [sequence (Sequence. (float 30) 12)] ;; 30 fps, 10 frames per beat
ocsenave@242 125 (doto (. sequence (createTrack))
ocsenave@243 126 (.add (midi-meta 0 3 [-1 3 33 79 114 105 103 105 110 97 108 32
ocsenave@243 127 99 111 109 112 111 115 101 114 58 32 74 117 110 105 99 104 105 32 77
ocsenave@243 128 97 115 117 100 97]))
ocsenave@242 129
ocsenave@243 130 (.add (midi-short 0 [-80 0 0])) ;; control change = -80
ocsenave@243 131 (.add (midi-short 0 [-80 7 100])) ;; control change, volume, 100
ocsenave@243 132 (.add (midi-short 0 [-80 10 64])) ;; control change, pan, 64 (middle?)
ocsenave@243 133 (.add (midi-short 0 [-80 32 0])) ;; ctrl chg, LSB ctrl 0 = bank 0
ocsenave@243 134 (.add (midi-short 0 [-64 01])) ;; program/instrument change = -64
ocsenave@243 135 (.add (midi-short 0 [-80 101 0]))
ocsenave@243 136 (.add (midi-short 1 [-80 100 0]))
ocsenave@243 137 (.add (midi-short 2 [-80 6 2]))
ocsenave@243 138 (.add (midi-short 3 [-80 38 0]))
ocsenave@243 139 (.add (midi-short 3 [-32 0 56])) ;; pitch bend?! = -32
ocsenave@243 140 (.add (midi-short 3 [-112 68 100])) ;; note on = -112
ocsenave@243 141 (.add (midi-short 20 [-112 68 0]))
ocsenave@243 142 (.add (midi-short 40 [-112 68 100]))
ocsenave@243 143 (.add (midi-short 60 [-112 68 0]))
ocsenave@243 144 (.add (midi-short 80 [-112 68 100]))
ocsenave@243 145 (.add (midi-short 100 [-112 68 0]))
ocsenave@243 146 (.add (midi-short 120 [-80 7 100])) ;; control change
ocsenave@243 147 (.add (midi-short 120 [-112 76 100])) ;; note-on
ocsenave@243 148 (.add (midi-short 181 [-80 7 90])) ;; control change
ocsenave@243 149 (.add (midi-short 209 [-80 7 80])) ;; control change
ocsenave@243 150 (.add (midi-short 240 [-80 7 65])) ;; control change
ocsenave@243 151 (.add (midi-short 270 [-80 7 50])) ;; control change
ocsenave@243 152 (.add (midi-short 300 [-112 76 0])) ;; note on = -112
ocsenave@243 153 (.add (midi-short 360 [-80 7 0])))
ocsenave@243 154 ;;(.add (midi-short 360 [-1 47 0])) ;; system reset = -1
ocsenave@242 155
ocsenave@243 156 sequence
ocsenave@243 157 )))
ocsenave@242 158
ocsenave@243 159
ocsenave@242 160
ocsenave@242 161
ocsenave@242 162 ;;; ROM MUSIC MANIPULATION
ocsenave@242 163
ocsenave@242 164 (def songs;; music-headers
ocsenave@242 165 {
ocsenave@242 166 :pallet 0x822E
ocsenave@242 167 :pkmn-center 0x8237
ocsenave@242 168 :gym 0x8240
ocsenave@242 169 :city-1 0x8249 ;;virian, pewter, saffron
ocsenave@242 170 :city-2 0x8255 ;; cerulean, fuchsia
ocsenave@242 171 :celedon 0x825E
ocsenave@242 172 :cinnibar 0x8267
ocsenave@242 173 :vermilion 0x8270
ocsenave@242 174 :lavender 0x827C
ocsenave@242 175 :ss-anne 0x8288
ocsenave@242 176 :meet-prof 0x8291
ocsenave@242 177 :meet-blue 0x829A
ocsenave@242 178 :follow 0x82A3
ocsenave@242 179 :safari 0x82AF
ocsenave@242 180 :sfx-heal 0x82BA
ocsenave@242 181 :route-1 0x82C1 ;; route 1,2
ocsenave@242 182 :route-2 0x82CD ;; route 24, 25
ocsenave@242 183 :route-3 0x82D9 ;; route 3-10,16-22
ocsenave@242 184 :route-4 0x82E5 ;; route 11-15
ocsenave@242 185 :route-5 0x82F1 ;; indigo plateau
ocsenave@242 186
ocsenave@242 187 :title 0x7C249
ocsenave@242 188 :credits 0x7C255
ocsenave@242 189 :hall-of-fame 0x7C25E
ocsenave@242 190 :lab-prof 0x7C267
ocsenave@242 191 :jigglypuff 0x7C270
ocsenave@242 192 :bike 0x7C276
ocsenave@242 193 :surfing 0x7C282
ocsenave@242 194 :casino 0x7C28B
ocsenave@242 195 :intro-battle 0x7C294
ocsenave@242 196 :power-plant 0x7C2A0 ;; power plant, unknown dungeon
ocsenave@242 197 :viridian-forest 0x7C2AC ;;viridian forest, seafoam islands
ocsenave@242 198 :victory-rd 0x7C2B8 ;;mt moon, rock tunnel, victory rd
ocsenave@242 199 :mansion 0x7C2C4
ocsenave@242 200 :pkmn-tower 0x7C2D0
ocsenave@242 201 :silph 0x7C2D9
ocsenave@242 202 :trainer-bad 0x7C2E2
ocsenave@242 203 :trainer-girl 0x7C2EB
ocsenave@242 204 :trainer-angry 0x7C2F4
ocsenave@242 205 })
ocsenave@242 206
ocsenave@242 207
ocsenave@242 208 })
ocsenave@242 209
ocsenave@242 210
ocsenave@242 211 (defn low-high-format
ocsenave@242 212 "Returns the number represented by the bytes."
ocsenave@242 213 [low high]
ocsenave@242 214 (+ low (* 256 high)))
ocsenave@243 215 (defn high-low-format
ocsenave@243 216 "Returns the number represented by the bytes."
ocsenave@243 217 [high low]
ocsenave@243 218 (+ low (* 256 high)))
ocsenave@243 219
ocsenave@242 220
ocsenave@242 221 (defn rom-tracks
ocsenave@242 222 "Given a valid address to a music header, returns a list of the
ocsenave@242 223 data tracks"
ocsenave@242 224 [address]
ocsenave@242 225 (let [rom (rom (root))
ocsenave@242 226 tracklist
ocsenave@242 227 ((fn extract-tracklist [mem n]
ocsenave@242 228 (if (= (nth mem 2) n)
ocsenave@242 229 (cons (low-high-format (first mem)
ocsenave@242 230 (second mem))
ocsenave@242 231 (extract-tracklist (drop 3 mem) (inc n)))
ocsenave@242 232 '()))
ocsenave@242 233
ocsenave@242 234 (take 12 (drop (inc address) rom))
ocsenave@242 235 1
ocsenave@242 236 )]
ocsenave@242 237
ocsenave@243 238 tracklist
ocsenave@242 239 (map
ocsenave@242 240 (fn [trk] (take-while #(not= 0xFF %) (drop trk rom)))
ocsenave@242 241 tracklist)
ocsenave@242 242
ocsenave@242 243 ))
ocsenave@242 244
ocsenave@242 245
ocsenave@242 246
ocsenave@243 247
ocsenave@243 248 (defn note?
ocsenave@243 249 "Does the given byte correspond to a note?"
ocsenave@243 250 [n]
ocsenave@243 251
ocsenave@243 252 (defn parse-ops
ocsenave@242 253 "Consumes the list of opcodes, returning a runnable MIDI Sequence object."
ocsenave@243 254 [ops]
ocsenave@243 255 (
ocsenave@243 256 (fn [midi ops]
ocsenave@243 257 (let [x (first ops)]
ocsenave@243 258 (cond (empty? ops) midi
ocsenave@243 259 (= x 0xDA)
ocsenave@243 260 ;; set tempo (high-low (nth ops 1)(nth ops 2))
ocsenave@243 261 (recur (identity midi) (drop 3 ops))
ocsenave@243 262
ocsenave@243 263 (note? x)
ocsenave@243 264
ocsenave@242 265
ocsenave@243 266 )
ocsenave@242 267
ocsenave@243 268 (doto (Sequence. (float 30) 15) ;; 30 fps, 15 frames per beat
ocsenave@243 269 (.createTrack))
ocsenave@243 270 ops
ocsenave@243 271 ))
ocsenave@242 272
ocsenave@242 273
ocsenave@242 274
ocsenave@242 275
ocsenave@242 276
ocsenave@242 277
ocsenave@242 278
ocsenave@242 279 ;; 8237-823F Pokecenter
ocsenave@242 280 ;; 8240-8248 Gym
ocsenave@242 281 ;; 8249-8254 Viridian / Pewter / Saffron
ocsenave@242 282 ;; 8255-825D Cerulean / Fuchsia
ocsenave@242 283 ;; 825E-8266 Celedon
ocsenave@242 284 ;; 8267-826F Cinnibar
ocsenave@242 285 ;; 8270-827B Vermilion
ocsenave@242 286 ;; 827C-8287 Lavender
ocsenave@242 287 ;; 8288-8290 S.S. Anne
ocsenave@242 288 ;; 8291-8299 Meet Prof. Oak
ocsenave@242 289 ;; 829A-82A2 Meet Rival
ocsenave@242 290 ;; 82A3-82AE Guy Walks you to Museum
ocsenave@242 291 ;; 82AF-82B7 Safari Zone
ocsenave@242 292 ;; 82B8-82C0 Pokemon get healed
ocsenave@242 293 ;; 82C1-82CC Routes 1 / 2
ocsenave@242 294 ;; 82CD-82D8 Routes 24 / 25
ocsenave@242 295 ;; 82D9-82E4 Routes 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 16 / 17 / 18 / 19 / 20 / 21 / 22
ocsenave@242 296 ;; 82E5-82F0 Routes 11 / 12 / 13 / 14 / 15
ocsenave@242 297 ;; 82F1-82FD Route 23 / Indigo Plateau
ocsenave@242 298 ;; 7C249-7C254 Title Screen
ocsenave@242 299 ;; 7C255-7C25D Credits
ocsenave@242 300 ;; 7C25E-7C266 Hall of FAme Registration
ocsenave@242 301 ;; 7C267-7C26F PRof Oak's LAb
ocsenave@242 302 ;; 7C270-7C275 Jigglypuff's Song
ocsenave@242 303 ;; 7C276-7C281 Bike Riding
ocsenave@242 304 ;; 7C282-7C28A Surfing
ocsenave@242 305 ;; 7C28B-7C293 Casino
ocsenave@242 306 ;; 7C294-7C29F Introduction Battle
ocsenave@242 307 ;; 7C2A0-7C2AB Power Plant / Unknown Dungeon
ocsenave@242 308 ;; 7C2AC-7C2B7 Viridian Forest / Seafoam Islands
ocsenave@242 309 ;; 7C2B8-7C2C3 Mt. Moon / Rock Tunnel / Victory Road
ocsenave@242 310 ;; 7C2C4-7C2CF Cinnibar Mansion
ocsenave@242 311 ;; 7C2D0-7C2D8 Pokemon Tower
ocsenave@242 312 ;; 7C2D9-7C2E1 Silph Co
ocsenave@242 313 ;; 7C2E2-7C2EA Meet Bad Trainer
ocsenave@242 314 ;; 7C2EB-7C2F3 Meet Girl Trainer
ocsenave@242 315 ;; 7C2F4-7C2FC Meet Angry Trainer