Mercurial > vba-clojure

comparison clojure/com/aurellem/run/music.clj @ 475:f28a3baa4c56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)