# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1336121407 18000
# Node ID 413c66186baa11332033d095394c0e49772b1453
# Parent  3e74bf517d8f330286cf8000f594a86eff12ab3c
removed duplicate notes in drum track.

diff -r 3e74bf517d8f -r 413c66186baa clojure/com/aurellem/run/music.clj
--- a/clojure/com/aurellem/run/music.clj	Fri May 04 03:45:04 2012 -0500
+++ b/clojure/com/aurellem/run/music.clj	Fri May 04 03:50:07 2012 -0500
@@ -494,7 +494,7 @@
      :voice-2 (get-track (nth targets 1))
      :noise   (get-track (nth targets 2))
      :duty    (zipmap (map :out duty-info)
-                      (map :duty duty-info))}))
+                      (map #(get % :duty 0) duty-info))}))
 
 (defn play-midi [#^File midi-file]
   (let [track-1-target 0xA000
@@ -504,10 +504,10 @@
         long-silence (flatten (note-codes 20 0 9001))
 
         voice-1 (flatten (:voice-1 mini-midi))
-        wave-duty-1 ((:duty mini-midi) 0)
+        wave-duty-1 ((:duty mini-midi) 0 0)
 
         voice-2 (flatten (:voice-2 mini-midi))
-        wave-duty-2 ((:duty mini-midi) 1)
+        wave-duty-2 ((:duty mini-midi) 1 0)
         ]
     
     (-> (second (music-base))
diff -r 3e74bf517d8f -r 413c66186baa music/Friendship is Magic (MLP Theme Song).rg
Binary file music/Friendship is Magic (MLP Theme Song).rg has changed
diff -r 3e74bf517d8f -r 413c66186baa music/pony-title.mid
Binary file music/pony-title.mid has changed