 ;;
 ;;/////////////
 
-(demo 30
+(demo 10
       (let [trigger       (line:kr :start 1, :end 20, :dur 60)
             freq          (t-rand:kr :lo 100, :hi 1000, :trig (impulse:kr trigger))
             num-harmonics (t-rand:kr :lo 1,   :hi 10,   :trig (impulse:kr trigger))


(demo (* 0.5 (sin-osc 100 (* 10 (sin-osc 500 0)))))

;;we could also define our own pseudo ugen fn:

(defn pm-osc [car-freq mod-freq pm-index mod-phase]
  (with-ugens
    (sin-osc car-freq (* pm-index (sin-osc mod-freq mod-phase)))))

(demo (* 0.5 (pm-osc 100 500 10 0)))


(do
  (ctl a :freq (midi->hz 64))
  (ctl c :freq (midi->hz 72)))
(do
  (kill a)
  (kill b)
  (kill c))



