Mercurial > vba-clojure
comparison clojure/com/aurellem/run/music.clj @ 475:f28a3baa4c56
adding ship-of-regret-and-sleep.mid.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 04 May 2012 06:28:16 -0500 |
parents | 85d9fa354f0b |
children | ee000791ab4e |
comparison
equal
deleted
inserted
replaced
474:9a20581477c2 | 475:f28a3baa4c56 |
---|---|
528 35 87 | 528 35 87 |
529 38 20 | 529 38 20 |
530 39 0 | 530 39 0 |
531 }) | 531 }) |
532 | 532 |
533 | |
534 (defn noise-codes [code volume duration] | 533 (defn noise-codes [code volume duration] |
535 (assert (<= 0 volume 0xF)) | 534 (assert (<= 0 volume 0xF)) |
536 (if (<= duration 0xFF) | 535 (if (<= duration 0xFF) |
537 [(midi-code->gb-noise-code code code) | 536 [(midi-code->gb-noise-code code code) |
538 (bit-shift-left volume 4) | 537 (bit-shift-left volume 4) |