[Csnd] reverbsc behaviour

classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

[Csnd] reverbsc behaviour

genell
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>
Csound mailing list [hidden email] 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
Reply | Threaded
Open this post in threaded view
|

Re: [Csnd] reverbsc behaviour

thorin kerr
You need to clear galp.

try inserting galp = 0 just before endin in instrument 10.

Thorin



On 16 May 2017 8:15 PM, "Anders Genell" <[hidden email]> wrote:
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>
Csound mailing list [hidden email] 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


Csound mailing list [hidden email] 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
Reply | Threaded
Open this post in threaded view
|

Re: [Csnd] reverbsc behaviour

genell
Thanks!

16 maj 2017 kl. 12:31 skrev thorin kerr <[hidden email]>:

You need to clear galp.

try inserting galp = 0 just before endin in instrument 10.

Thorin



On 16 May 2017 8:15 PM, "Anders Genell" <[hidden email]> wrote:
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>
Csound mailing list [hidden email] 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


Csound mailing list [hidden email] 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
Csound mailing list [hidden email] 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