 
 (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)))))
+;;we can use the pm-osc pseudo ugen provided by overtone:
 
 (demo (* 0.5 (pm-osc 100 500 10 0)))
 

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




;;
;;/////////////

(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))
