Permalink
Browse files

We don't need to mark the leader as such.

  • Loading branch information...
1 parent d94e375 commit 6845467a7123c7b1264d426849be4cffcfa0c573 @ctford committed Nov 8, 2012
Showing with 5 additions and 7 deletions.
  1. +5 −7 src/goldberg/variations/canone_alla_quarta.clj
@@ -243,18 +243,16 @@
[-1 1 -1] [5 0]])]
[durations pitches] (map concat call response development)
times (map (from 1/2) (accumulate durations))]
- (->>
- (map note times pitches)
- (where :part (constantly :leader)))))
+ (map note times pitches)))
(def bass
(let [triples (partial mapcat #(repeat 3 %))]
(->>
(map note
- (accumulate (repeats [[21 1] [13 1/4]]))
- (concat
- (triples (runs [[-7 -10] [-12 -10]]))
- (runs [[5 0] [6 0]])))
+ (accumulate (repeats [[21 1] [13 1/4]]))
+ (concat
+ (triples (runs [[-7 -10] [-12 -10]]))
+ (runs [[5 0] [6 0]])))
(where :part (constantly :bass)))))

0 comments on commit 6845467

Please sign in to comment.