diff clojure/com/aurellem/run/music.clj @ 481:221b3fea9221

slight cleanup.
author Robert McIntyre <rlm@mit.edu>
date Fri, 04 May 2012 09:03:34 -0500
parents 91db9d1ce213
children 346b91ae503a
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/music.clj	Fri May 04 08:55:15 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/music.clj	Fri May 04 09:03:34 2012 -0500
     1.3 @@ -9,28 +9,28 @@
     1.4    (:import java.io.File))
     1.5  
     1.6  (def pony
     1.7 -  (File. "/home/r/proj/vba-clojure/music/pony-title.mid"))
     1.8 +  (File. user-home "/proj/vba-clojure/music/pony-title.mid"))
     1.9  
    1.10  (def pony-csv 
    1.11 -  (File. "/home/r/proj/vba-clojure/music/pony-title.csv"))
    1.12 +  (File. user-home "proj/vba-clojure/music/pony-title.csv"))
    1.13    
    1.14  (def sync-test
    1.15 -  (File. "/home/r/proj/vba-clojure/music/sync-test.mid"))
    1.16 +  (File. user-home "proj/vba-clojure/music/sync-test.mid"))
    1.17  
    1.18  (def drum-test
    1.19 -  (File. "/home/r/proj/vba-clojure/music/drum-test.mid"))
    1.20 +  (File. user-home "proj/vba-clojure/music/drum-test.mid"))
    1.21  
    1.22  (def regret
    1.23 -  (File. "/home/r/proj/vba-clojure/music/ship-of-regret-and-sleep.mid"))
    1.24 +  (File. user-home "proj/vba-clojure/music/ship-of-regret-and-sleep.mid"))
    1.25  
    1.26  (def regret-csv
    1.27 -  (File. "/home/r/proj/vba-clojure/music/ship-of-regret-and-sleep.csv"))
    1.28 +  (File. user-home "proj/vba-clojure/music/ship-of-regret-and-sleep.csv"))
    1.29  
    1.30  (def mother
    1.31 -  (File. "/home/r/proj/vba-clojure/music/mother.mid"))
    1.32 +  (File. user-home "proj/vba-clojure/music/mother.mid"))
    1.33  
    1.34  (def mother-csv
    1.35 -  (File. "/home/r/proj/vba-clojure/music/mother.csv"))
    1.36 +  (File. user-home "proj/vba-clojure/music/mother.csv"))
    1.37  
    1.38  
    1.39  (defn raw-midi-text [#^File midi-file]
    1.40 @@ -688,12 +688,15 @@
    1.41        0x05])]))
    1.42  
    1.43  (defn play-pony []
    1.44 +  (println "playing" (.getName pony-csv))
    1.45    (run-moves (play-midi pony-csv) (repeat 1800 [])))
    1.46  
    1.47  (defn play-regret []
    1.48 +  (println "playing" (.getName regret-csv))
    1.49    (run-moves (play-midi regret-csv) (repeat 3380 [])))
    1.50  
    1.51  (defn play-mother []
    1.52 +  (println "playing" (.getName mother-csv))
    1.53    (run-moves (play-midi mother-csv) (repeat 2200 [])))
    1.54  
    1.55  (defn demo [] (play-mother) (play-regret) (play-pony))