-o udo_test.wav -W ; ============================================== sr = 48000 ksmps = 2 nchnls = 2 0dbfs = 1 /* m_risset_filter - DESCRIPTION SYNTAX aout m_risset_filter ain, klevel, krate, koctave, kcentre, kq, kdirection, \ iwindow, irise INITIALIZATION iwindow - Windown function for the amplitude change, best use GEN20 with type 6, max 1 and option 1.8-2.2 krise - Function modulating the frequency, best take GEN5 with somet;hing like: f1 0 2048 -5 1 2048 2 PERFORMANCE klevel - Mix level of the filter effect (0-1) krate - Modulation rate or tempo of the risset glissando koctave - The octave spread from lowest to highest frequency (3-10) kcentre - Centre frequency of the Risset Glissando kq - bandwidth of the filter in Hz kdirection - Direction (up or down) of the Risset glissando 0 = up 1 = down CREDITS Author: Jeanette C., thanks to the Csound community for their constant support and always being there */ opcode m_risset_filter, a, akkkkkkii ain, klevel, krate, koctave, kcentre, kq, kdirection, iwindow, irise xin ; Check that koctave is within range koctave limit koctave, 3, 10 kioct init ceil(i(koctave)) ; Only recalculate octave-related values, when koctave changes koct_changed changed koctave if koct_changed == 1 then kioct = ceil(koctave) endif ; Set the start frequency kstart_freq = kcentre * 2/(2^(kioct + 1)) ; set up direction factor if kdirection <= 0 then kdirfac = 1 else kdirfac = -1 endif ; Setup the the filters afilt init 0 kndx = 0 Loop_main: ; The amp mod curve aphs phasor krate afm table3 (kdirfac * (aphs +kndx/kioct))*(kioct/10), iwindow, 1, 0, 1 afreqmod = afm * kstart_freq aam table3 (kdirfac * (aphs + kndx/kioct)), irise, 1, 0, 1 atmp butterbp ain*aam, k(afreqmod), kq afilt = afilt + atmp loop_lt kndx, 1, kioct, Loop_main aout = afilt *.25 * klevel + ain *(1-klevel) xout aout afilt = 0 ; Do we need this? endop instr 1 anoise rand 1 aout m_risset_filter anoise, 1, 0.025, 8, 660, 5, 0, 1, 2 outs aout, aout endin ; ============================================== f1 0 32768 20 6 1 1.8 f2 0 32768 -5 1 32768 11 i1 0 40 e Csound mailing list Csound@listserv.heanet.ie https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND Send bugs reports to https://github.com/csound/csound/issues Discussions of bugs and features can be posted here