 ;;
 ;;/////////////
 
-(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 10 (let [r (impulse:kr 10)
                c (t-rand:kr :lo 100, :hi 5000, :trig r)
                m (t-rand:kr :lo 100, :hi 5000, :trig r)]
-           (* 0.3 (pm-osc c m 12 0))))
+           (* [0.3 0.3] (pm-osc c m 12 0))))
 
 (demo 10 (let [rate 4
                carrier (+ 700 (* 500 (lf-noise0:kr rate)))

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

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

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



