Permalink
Browse files

Formatting.

  • Loading branch information...
1 parent 7f60b79 commit f9cfe7c3890c78c93024c8a7e37620f7e2377dc1 @ctford committed Nov 14, 2012
Showing with 10 additions and 4 deletions.
  1. +10 −4 src/goldberg/variations/canone_alla_quarta.clj
@@ -190,7 +190,6 @@
;((bpm 120) 3)
(defn where [k f notes] (->> notes (map #(update-in % [k] f))))
-
;(->> row-row-row-your-boat
; (where :time (bpm 90))
; (where :pitch (comp C major))
@@ -265,6 +264,11 @@
; (where :time (bpm 90))
; play!)
+;(defn canon [f notes]
+; (->> notes
+; f (where :part (constantly :follower))
+; (concat notes)))
+
; canone alla quarta, by johann sebastian bach
(defn canone-alla-quarta [notes]
(canon
@@ -282,6 +286,11 @@
+
+
+
+
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Graphing ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -326,6 +335,3 @@
10 10))))
:size [1024 768])
notes))
-
-;(defn canon [f notes]
-; (->> notes f (where :part (constantly :follower)) (concat notes)))

0 comments on commit f9cfe7c

Please sign in to comment.