; -i devaudio ; para entrada en tiempo real ; -i ruta_del_archivo.wav ; para entrada de un archivo de audio (estéreo) ; luis jure © 2004 ; flanger estéreo con filtro peine IIR ; ============================================== sr = 44100 ksmps = 1 nchnls = 2 FLpanel " ", 450, 200 ihgVal FLvalue " ", 60, 25, 380, 10 gkg, ihg FLslider "mix", -.5, .5, 0, 5, ihgVal, 360, 25, 10, 10 FLsetVal_i .5, ihg ; cantidad de samples de delay ihDVal FLvalue " ", 60, 25, 380, 50 gkD, ihD FLslider "delay en samples", 100, 5000, -1, 5, ihDVal, 360, 25, 10, 50 FLsetVal_i 100, ihD ihwVal FLvalue " ", 60, 25, 380, 90 gkw, ihw FLslider "amplitud de flanger en %", 0, 100, 0, 5, ihwVal, 360, 25, 10, 90 FLsetVal_i .5, ihw ihsVal FLvalue " ", 60, 25, 380, 130 gks, ihs FLslider "velocidad", 0, 8, 0, 5, ihsVal, 360, 25, 10, 130 FLsetVal_i .5, ihs FLpanelEnd FLrun instr 1 acomb1 init 0 acomb2 init 0 a1, a2 ins kg = gkg ; multiplicador de la señal retardada ks = gks ; velocidad de flanger kw = gkw*.01 ; amplitud del flanger kdelt = 1/gkD ; tiempo de delay klfo lfo kw, ks, 1 ; lfo de onda triangular aflang = kdelt*(1+klfo) adel1, adel2 vdelayxs a1+acomb1, a2+acomb2, aflang, 1, 4 ; delay de tiempo variable acomb1 = (a1*(1-kg)) + (adel1*kg) ; suma escalada de la señal original y el delay acomb2 = (a2*(1-kg)) + (adel2*kg) outs acomb1, acomb2 endin ; ============================================== i1 0 72