; -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) FIR (por convolución o de respuesta finita) ; con operadores FLTK para controlar delay y profundidad ; operador in ; operador vdelay ; ============================================== 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", 50, 10000, -1, 5, ihDVal, 360, 25, 10, 50 FLsetVal_i 100, ihD FLpanelEnd FLrun instr 1 asig in kg = gkg ; multiplicador de la señal retardada adelt = 1/gkD ; tiempo de delay adel vdelay asig, adelt,1 ; delay de tiempo variable acomb = (asig*(1-kg)) + (adel*kg) ; suma escalada de la señal original y el delay out acomb endin ; ============================================== i1 0 60