1.1 --- a/clojure/com/aurellem/run/choreo.clj	Mon Jun 25 14:53:59 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/choreo.clj	Mon Jun 25 14:55:55 2012 -0500
     1.3 @@ -17,36 +17,25 @@
     1.4  ;; [ ] play pony song while writing picture-program
     1.5  ;; [ ] run picture program to display pinkie pie mark
     1.6  
     1.7 -
     1.8 -
     1.9  (defn-memo silence-noise
    1.10    ([] (silence-noise (launch-main-bootstrap-program)))
    1.11    ([script]
    1.12       (->> script
    1.13            (write-RAM 0xFF1A [0 0 0]))))
    1.14  
    1.15 -
    1.16  (defn-memo write-pony-music-data
    1.17 -  ([] (write-pony-music-data (launch-main-bootstrap-program)))
    1.18 +  ([] (write-pony-music-data (silence-noise)))
    1.19    ([script]
    1.20       (let [bytes (midi-bytes pony-csv)]
    1.21         (->> script
    1.22 -            (do-nothing 10)
    1.23              (write-RAM (:address (:voice-1 bytes))
    1.24                         (:data    (:voice-1 bytes)))
    1.25 -
    1.26 -            (do-nothing 100)
    1.27              (write-RAM (:address (:voice-2 bytes))
    1.28                         (:data    (:voice-2 bytes)))
    1.29 -
    1.30 -            (do-nothing 100)
    1.31              (write-RAM (:address (:noise bytes))
    1.32                         (:data    (:noise bytes)))
    1.33 -
    1.34 -            (do-nothing 100)
    1.35              (write-RAM (:address (:kernel bytes))
    1.36                         (:data    (:kernel bytes)))
    1.37 -
    1.38              (transfer-control (:address (:kernel bytes)))))))
    1.39  
    1.40