; -i devaudio ; para entrada en tiempo real ; -i ruta_del_archivo.wav ; para entrada de un archivo de audio ; luis jure © 2004 ; flanger con filtro peine FIR ; con operadores FLTK para controlar velocidad y profundidad ; ============================================== sr = 44100 ksmps = 1 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 asig in 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 kflang = kdelt*(1+klfo) abuff delayr 1 adel deltap kflang ; delay de tiempo variable delayw asig acomb = (asig*(1-kg)) + (adel*kg) ; suma escalada de la señal original y el delay out acomb endin ; ============================================== i1 0 90