; ;Equalizer ; read in wave file ; p4 ; # sta dur gain i 1 0 9.25 0.75 ; 3 BAND EQUALIZER ; p4 p5 p6 p7 p8 p9 p10 ; # sta dur lowgain midgain higain lowHz highHz inch outch i 2 0 9.25 0 0.5 5 500 5000 1 2 sr = 48000 kr = 4800 ksmps = 10 nchnls = 2 zakinit 30, 30 ;read in stereo wave file to two separate audio signals instr 1 ar1, ar2 soundin "clip09_10s.wav" zaw ar1*p4, 1 endin ;equalizer instr 2 ilogain = p4 imidgain = p5 ihigain = p6 ilofco = p7 ihifco = p8 izin = p9 izout = p10 asig zar izin alosig butterlp asig, ilofco amidsig butterbp ilofco, ihifco ahisig butterhp asig, ihifco aout = ilogain*alosig+imidgain*amidsig+ihigain*ahisig zaw aout, izout outs aout, aout endin