Permalink
Browse files

Leave graph! for the appendix.

  • Loading branch information...
1 parent d4392d5 commit d94e375f9c8fccc0284a438e8349413c972b5652 @ctford committed Nov 8, 2012
Showing with 11 additions and 8 deletions.
  1. +11 −8 src/goldberg/variations/canone_alla_quarta.clj
@@ -284,6 +284,17 @@
(comp (interval -3) mirror (simple 3))
notes))
+;(->> melody
+; canone-alla-quarta
+; (concat bass)
+; (where :pitch (comp G major))
+; (where :time (bpm 90))
+; play!)
+
+
+
+
+; appendix
(defn graph! [title notes]
(let [points (where :time (from (now)) notes)
highlow (fn [k]
@@ -323,11 +334,3 @@
10 10))))
:size [800 600])
notes))
-
-;(->> melody
-; canone-alla-quarta
-; (concat bass)
-; (where :pitch (comp G major))
-; (where :time (bpm 90))
-; (graph! "Time vs pitch")
-; play!)

0 comments on commit d94e375

Please sign in to comment.