reverbsc behaviour
| Date | 2017-05-16 11:15 |
| From | Anders Genell |
| Subject | reverbsc behaviour |
Dear all, could someone take a look at the included csd and point me to what I've done to deserve a ~44Hz tone throughout the reverb tail part of the sound? Regards, Anders <CsoundSynthesizer> <CsOptions> </CsOptions> <CsInstruments> sr = 48000 ksmps = 1024 nchnls = 2 0dbfs = 1.00 gitsize init 16384 giwave ftgen 1, 0, gitsize, 7, 0, gitsize/2, 1, 0, -1, gitsize/2, 0 ; Generate three empty tables for adsynt... gifrqs ftgen 2, 0, 32, 7, 0, 32, 0 ; ...for freqency giamps ftgen 3, 0, 32, 7, 0, 32, 0 ; ...amplitude giphas ftgen 4, 0, 32, 7, 0, 32, 0 ; and phase parameters instr 1 icnt = 24 kfreqfund = 55 kindex = 0 loop: krndamp init 0.01 kres rand krndamp, 2, 0, i(krndamp) kfreqharmonic = 1 + kres kphase = 2 kampharmonic = 1 ; Write amps to table for adsynt. tablew kampharmonic, kindex, giamps ; Write freqs to table for adsynt. tablew kfreqharmonic, kindex, gifrqs ; Write phase to table for adsynt tablew kphase, kindex, giphas kindex = kindex + 1 if (kindex < icnt) then kgoto loop endif abuzz adsynt2 0.5, kfreqfund, giwave, gifrqs, giamps, icnt, giphas alp mvclpf3 abuzz, 200, 0.1 aenv adsr 0.1, 0.0001, 1, 0.1 galp = alp*aenv endin instr 10 aoutL, aoutR reverbsc galp/2, galp/2, 0.8, 500, sr, 0.5, 1 aoutL dcblock aoutL aoutR dcblock aoutR out aoutL, aoutR endin </CsInstruments> <CsScore> i 1 0 10 i 10 0 20 e </CsScore> </CsoundSynthesizer> |
| Date | 2017-05-16 11:31 |
| From | thorin kerr |
| Subject | Re: reverbsc behaviour |
You need to clear galp.
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
try inserting galp = 0 just before endin in instrument 10. Thorin On 16 May 2017 8:15 PM, "Anders Genell" <anders.genell@gmail.com> wrote:
|
| Date | 2017-05-16 11:38 |
| From | Anders Genell |
| Subject | Re: reverbsc behaviour |
Thanks!
|