diff clojure/com/aurellem/run/music.clj @ 464:413c66186baa

removed duplicate notes in drum track.
author Robert McIntyre <rlm@mit.edu>
date Fri, 04 May 2012 03:50:07 -0500
parents 3e74bf517d8f
children 34bf4b64d9d1
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/music.clj	Fri May 04 03:45:04 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/music.clj	Fri May 04 03:50:07 2012 -0500
     1.3 @@ -494,7 +494,7 @@
     1.4       :voice-2 (get-track (nth targets 1))
     1.5       :noise   (get-track (nth targets 2))
     1.6       :duty    (zipmap (map :out duty-info)
     1.7 -                      (map :duty duty-info))}))
     1.8 +                      (map #(get % :duty 0) duty-info))}))
     1.9  
    1.10  (defn play-midi [#^File midi-file]
    1.11    (let [track-1-target 0xA000
    1.12 @@ -504,10 +504,10 @@
    1.13          long-silence (flatten (note-codes 20 0 9001))
    1.14  
    1.15          voice-1 (flatten (:voice-1 mini-midi))
    1.16 -        wave-duty-1 ((:duty mini-midi) 0)
    1.17 +        wave-duty-1 ((:duty mini-midi) 0 0)
    1.18  
    1.19          voice-2 (flatten (:voice-2 mini-midi))
    1.20 -        wave-duty-2 ((:duty mini-midi) 1)
    1.21 +        wave-duty-2 ((:duty mini-midi) 1 0)
    1.22          ]
    1.23      
    1.24      (-> (second (music-base))