Permalink
Browse files

Made all the colours different shades in case of colour-blindness.

  • Loading branch information...
1 parent 19fa34b commit e5fb1f80d0035d9c9c9fe5ad9ff08b29cce1f670 @ctford committed Nov 15, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/goldberg/variations/canone_alla_quarta.clj
@@ -320,9 +320,9 @@
:setup (fn [] (smooth) (frame-rate 20) (background 200))
:draw (fn []
(let [colours
- (fnil {:leader [100 20 10]
- :follower [20 10 100]
- :bass [10 150 20]}
+ (fnil {:leader [190 90 90]
+ :follower [10 10 80]
+ :bass [70 130 70]}
:leader)]
(doseq [{x :time y :pitch voice :part}
(normalise points)]

0 comments on commit e5fb1f8

Please sign in to comment.