Mercurial > vba-clojure

comparison clojure/com/aurellem/run/music.clj @ 482:346b91ae503a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
adjusted drum beats.
author Robert McIntyre <rlm@mit.edu>
date Sat, 05 May 2012 06:19:55 -0500
parents 221b3fea9221
children a6d060a64246
comparison
equal deleted inserted replaced
481:221b3fea9221 482:346b91ae503a
390 390
391 0x18 391 0x18
392 (->signed-8-bit (+ 392 (->signed-8-bit (+
393 ;; two music-steps 393 ;; two music-steps
394 (- (* 2 (count (music-step 0 0 false)))) 394 (- (* 2 (count (music-step 0 0 false))))
395 ;; one noise
395 (- (count (music-step nil nil true))) 396 (- (count (music-step nil nil true)))
396 -2 ;; this jump instruction 397 -2 ;; this jump instruction
397 -2 ;; activate frame 1 398 -2 ;; activate frame 1
398 -2 ;; activate frame 2 399 -2 ;; activate frame 2
399 -2 ;; activate frame 3 400 -2 ;; activate frame 3
540 (int (* (:duration note-event) 0x100)))) 541 (int (* (:duration note-event) 0x100))))
541 abstract-mini-midi))) 542 abstract-mini-midi)))
542 543
543 (def midi-code->gb-noise-code 544 (def midi-code->gb-noise-code
544 {nil 0xFF 545 {nil 0xFF
545 35 87 546 35 90
546 38 20 547 38 20
547 39 0 548 39 0
548 }) 549 })
549 550
550 (defn noise-codes [code volume duration] 551 (defn noise-codes [code volume duration]