; -i devaudio ; para entrada en tiempo real ; -i ruta_del_archivo.wav ; para entrada de un archivo de audio ; luis jure © 2004 ; filtro peine (comb filter) IIR (por recursión o de respuesta infinita) ; con operadores FLTK para controlar delay y profundidad ; ============================================== sr = 44100 ksmps = 1 FLpanel " ", 450, 105 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", .5, 20, -1, 5, ihDVal, 360, 25, 10, 50 FLsetVal_i 100, ihD FLpanelEnd FLrun instr 1 adel init 0 asig in kg = gkg ; multiplicador de la señal retardada adelt = gkD ; tiempo de delay adel vdelay asig+(adel*kg), adelt, 1000 ; delay de tiempo variable acomb = (asig*(1-kg)) + adel ; suma escalada de la señal original y el delay out acomb endin ; ============================================== i1 0 60