Mercurial > vba-clojure
comparison clojure/com/aurellem/run/music.clj @ 482:346b91ae503a
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] |