Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Updated imports.

  • Loading branch information...
commit eeb97841073c0554114c63bd05e43a0439f69c7c 1 parent fd234c7
@ctford authored
Showing with 9 additions and 5 deletions.
  1. +9 −5 src/goldberg/variations/canone_alla_quarta.clj
View
14 src/goldberg/variations/canone_alla_quarta.clj
@@ -9,10 +9,11 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(ns goldberg.variations.canone-alla-quarta
- (:use [overtone.live
- :only [definst sin-osc mix at now line stop
- FREE env-gen perc detect-silence]]
- [quil.core :exclude [scale line]]))
+ (:use [overtone.live :exclude
+ [scale midi->hz note sharp flat run]]
+ [quil.core :only
+ [smooth sketch ellipse frame-rate background
+ width height stroke stroke-weight fill]]))
@@ -102,6 +103,7 @@
(defn note [timing pitch] {:time timing :pitch pitch})
(defn where [k f notes] (->> notes (map #(update-in % [k] f))))
+(defn arrange [part notes] (where :part (constantly part) notes))
(defn from [base] (partial + base))
(defn play! [notes]
@@ -239,7 +241,9 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn canon [f notes]
- (concat notes (arrange :follower (f notes))))
+ (concat notes
+ (arrange :follower
+ (f notes))))
; flavours of canon
(defn simple [wait] (partial where :time (from wait)))

0 comments on commit eeb9784

Please sign in to comment.
Something went wrong with that request. Please try again.