   )
 
 ; Instrumentation
-(definst overchauffeur [freq 110 dur 1.0 vol 1.0]
+(definst overchauffeur [freq 110 dur 1.0 vol 0.5]
   (-> (sin-osc freq)
       (+ (* 1/3 (sin-osc (* 2.01 freq))))
       (+ (* 1/2 (sin-osc (* 3.01 freq))))

        twiddle (with (phrase (repeat 32 1/2) (cycle [4 2 2 0 -1])) (phrase (repeat 64 1/4) (cycle [4 2 5 4 5 4 7 7])))]
    (->> bass
         (where :pitch (comp scale/lower scale/lower))
         ;(with twiiddle)
         ;(with decoration)
         ;(with grind)
         (where :pitch (comp scale/B scale/minor))
         (with theme)
         (where :time (bpm 90))

(defmethod live/play-note :default
  [{midi :pitch seconds :duration}]
  (some-> midi midi->hz (overchauffeur seconds)))

(defn book [initial]
  (({\G (sample "samples/godel.wav" :start 3000)
     \E (sample "samples/escher.wav")
     \B (sample "samples/bach.wav")}
    initial)))

(defmethod live/play-note :sample
  [{initial :pitch}]
  (book initial))
