# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1340654155 18000
# Node ID a64485223afab938dfebceaee82ba312d9d79d49
# Parent  3ebd321f198e2bb8dc877bd8a13837a5cf011b6e
cleanup.

diff -r 3ebd321f198e -r a64485223afa clojure/com/aurellem/run/choreo.clj
--- a/clojure/com/aurellem/run/choreo.clj	Mon Jun 25 14:53:59 2012 -0500
+++ b/clojure/com/aurellem/run/choreo.clj	Mon Jun 25 14:55:55 2012 -0500
@@ -17,36 +17,25 @@
 ;; [ ] play pony song while writing picture-program
 ;; [ ] run picture program to display pinkie pie mark
 
-
-
 (defn-memo silence-noise
   ([] (silence-noise (launch-main-bootstrap-program)))
   ([script]
      (->> script
           (write-RAM 0xFF1A [0 0 0]))))
 
-
 (defn-memo write-pony-music-data
-  ([] (write-pony-music-data (launch-main-bootstrap-program)))
+  ([] (write-pony-music-data (silence-noise)))
   ([script]
      (let [bytes (midi-bytes pony-csv)]
        (->> script
-            (do-nothing 10)
             (write-RAM (:address (:voice-1 bytes))
                        (:data    (:voice-1 bytes)))
-
-            (do-nothing 100)
             (write-RAM (:address (:voice-2 bytes))
                        (:data    (:voice-2 bytes)))
-
-            (do-nothing 100)
             (write-RAM (:address (:noise bytes))
                        (:data    (:noise bytes)))
-
-            (do-nothing 100)
             (write-RAM (:address (:kernel bytes))
                        (:data    (:kernel bytes)))
-
             (transfer-control (:address (:kernel bytes)))))))