         (pan2 (* 0.1 src))))
 
 (def buf (buffer 8))
-(buffer-write! buf 0 8 (map #(+ 12 %) [50 50 54 50 57 50 45 49]))
+(buffer-write! buf 0 (map #(+ 12 %) [50 50 54 50 57 50 45 49]))
 
 (demo 20
       (let [trig (impulse:kr 8)

(buffer-set! buf 3 85)
(buffer-set! buf 3 80)
(buffer-set! buf 7 20)


(demo 4
      (let [freq (duty (drand [0.2 0.4 0.8 0.6] INF)



; Generate a series of values, incrementing linearly.

(demo 8
      (let [trig (impulse:kr 10)
