{
   "labels" : [
      "modulacion"
   ],
   "code" : "// Modulo\r\n// ukiyo-neko systems\r\n//\r\n// un modulador simple, tiene tres perillas, la frecuencia base, la frecuencia de modulacion y la apmlitud de modulacion..\r\n(\r\nSynthDef(\\modulo,{arg carrfreq=440, modfreq=1, moddepth=0.01;   //make sure there are control arguments to affect!\r\n\tOut.ar(0,\r\n\t\tSinOsc.ar(carrfreq + (moddepth*SinOsc.ar(modfreq)),0,0.25)!2)\r\n}).add;\r\n)\r\n\r\ns.scope;\r\n\r\n(\r\n\r\nvar w, carrfreqslider, modfreqslider, moddepthslider, synth;\r\n\r\nw=Window(\"frequency modulation\", Rect(100, 400, 400, 300));\r\nw.view.decorator = FlowLayout(w.view.bounds);\r\n\r\na = Synth(\\modulo);\r\n\r\ncarrfreqslider= EZSlider(w, 300@50, \"carrfreq\", ControlSpec(20, 1500, 'linear', 10, 440), {|ez|\r\na.set(\\carrfreq, ez.value)});\r\nw.view.decorator.nextLine;\r\n\r\nmodfreqslider= EZSlider(w, 300@50, \"modfreq\", ControlSpec(1, 2000, 'linear', 1, 1), {|ez|  a.set(\\modfreq, ez.value)});\r\n\r\nw.view.decorator.nextLine;\r\nmoddepthslider= EZSlider(w, 300@50, \"moddepth\", ControlSpec(0.01, 5000, 'linear', 0.01, 0.01), {|ez|  a.set(\\moddepth, ez.value)});\r\n\r\nw.front;\r\n)",
   "id" : "1-5dq",
   "is_private" : null,
   "name" : "modulo",
   "author" : "lambda",
   "ancestor_list" : [],
   "description" : ""
}