Permalink
Browse files

Add colours to the graph.

  • Loading branch information...
1 parent f9cfe7c commit 19fa34b4734d48f645343ea3cf88b1380adbf106 @ctford committed Nov 15, 2012
Showing with 5 additions and 5 deletions.
  1. +5 −5 src/goldberg/variations/canone_alla_quarta.clj
@@ -320,15 +320,15 @@
:setup (fn [] (smooth) (frame-rate 20) (background 200))
:draw (fn []
(let [colours
- (fnil {:leader 50
- :follower 100
- :bass 150}
+ (fnil {:leader [100 20 10]
+ :follower [20 10 100]
+ :bass [10 150 20]}
:leader)]
(doseq [{x :time y :pitch voice :part}
(normalise points)]
(stroke-weight 5)
- (fill 50)
- (stroke (colours voice))
+ (fill 255)
+ (apply stroke (colours voice))
(ellipse
(* (width) x)
(- (* 2/3 (height)) (* 1/3 (height) y))

0 comments on commit 19fa34b

Please sign in to comment.