 ;;
 ;;/////////////
 
-
+(volume 10/127)
 
 (demo 10 (let [r (impulse:kr 10)
                c (t-rand:kr :lo 100, :hi 5000, :trig r)

               carrier (+ 700 (* 500 (lf-noise0:kr rate)))
               mod-ratio (mouse-x :min 1, :max 2)]
           (* 0.3 (pm-osc carrier (* carrier mod-ratio) 12 9))))




;;
;;p.free;  // run this to stop it
;;

(demo 30 (let [r (line:kr :start 1, :end 20, :dur 60)
               ;;r (+ 7 (* 3 (lf-tri:kr 0.1)))
