Csound Csound-dev Csound-tekno Search About

trouble "sending"

Date2017-02-26 04:30
From"Joe ."
Subjecttrouble "sending"

I'm including all the relevant code because I can't find the problem. Basically I am trying to put the final output of instr 1 into gaOutLeft/ gaOutRight, and play that with instr 6.  What happens though, is there is no sound. Also, when I do play the reverb "gaReverb1" it only plays the top note. Thanks in advance!


gaReverb1 init 0 

gaOutLeft init 0

gaOutRight init 0

instr 1

$AmplitudeFrequencyConverters

if p7 = 1001 then

kFMenvelope1 = linseg:k(p6, p3/3-0.3, 12, p3/3*2, 0, 0.3, 0)

kFMenvelope2 = linseg:k(3, p3/2-0.3, 0, p3/2, 3, 0.3, 0)

endif

if p8 = 10001 then

aEnvelope = linseg:a(0, 0.01,

0.5, 1.59,

1, p3-1.8,

0.01, 0.2,

0)

elseif p8 = 10002 then

aEnvelope = linseg:a(0, 0.01,

0, 1.59,

1, p3-1.8,

0.01, 0.2,

0)

elseif p8 = 10003 then

aEnvelope = linseg:a(0, 0.01,

0.8, 1.59,

1, p3-1.8,

0.01, 0.2,

0)

endif

aOut1 = foscil:a(iAmplitude,

cpspch(p5+1),

0.5,

p6,

kFMenvelope1,

101)

aOut2 = foscil:a(iAmplitude,

cpspch(p5+1),

0.5,

p6,

kFMenvelope2,

101)

aOut = (aOut1+aOut2)/2

aOut = aOut*aEnvelope

aFubar = delayr:a(0.5)

aLeft = deltap:a(0.01)

aRight = deltap:a(0.025)

delayw aOut

aOut = butterbp:a(aOut, iCPS, iCPS*9)

gaOutLeft = (aOut*linseg:a(p9, p3/2-0.3, p10, p3/2+0.3, p10))+aLeft/7

gaOutRight = (aOut*linseg:a(p10, p3/2-0.3, p9, p3/2+0.3, p9))+aRight/7

gaReverb1 = aOut

endin

 

instr 6

outs gaOutLeft, gaOutRight

gaOutLeft = 0

gaOutRight = 0

endin



some example score


i1 0 8 -9 9.05 5 1001 10001 0.25 0.75

i1 0 8 -12 9.10 0.000 1001 10001 0.75 0.25

i1 4 8 -3 8.10 1.01 1001 10002 0.25 0.75

i1 4 8 -3 9.00 1.01 1001 10002 0.75 0.25

i6 0 8

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

Date2017-02-26 05:20
FromOeyvind Brandtsegg
SubjectRe: trouble "sending"
I think you need to do
gaOutLeft += (aOu...
instead of
gaOutLeft = (aOu...
Otherwise every new simultaneous instance of the instr will overwrite
the signal from the previous instance.

2017-02-25 20:30 GMT-08:00 Joe . :
> I'm including all the relevant code because I can't find the problem.
> Basically I am trying to put the final output of instr 1 into gaOutLeft/
> gaOutRight, and play that with instr 6.  What happens though, is there is no
> sound. Also, when I do play the reverb "gaReverb1" it only plays the top
> note. Thanks in advance!
>
>
> gaReverb1 init 0
>
> gaOutLeft init 0
>
> gaOutRight init 0
>
> instr 1
>
> $AmplitudeFrequencyConverters
>
> if p7 = 1001 then
>
> kFMenvelope1 = linseg:k(p6, p3/3-0.3, 12, p3/3*2, 0, 0.3, 0)
>
> kFMenvelope2 = linseg:k(3, p3/2-0.3, 0, p3/2, 3, 0.3, 0)
>
> endif
>
> if p8 = 10001 then
>
> aEnvelope = linseg:a(0, 0.01,
>
> 0.5, 1.59,
>
> 1, p3-1.8,
>
> 0.01, 0.2,
>
> 0)
>
> elseif p8 = 10002 then
>
> aEnvelope = linseg:a(0, 0.01,
>
> 0, 1.59,
>
> 1, p3-1.8,
>
> 0.01, 0.2,
>
> 0)
>
> elseif p8 = 10003 then
>
> aEnvelope = linseg:a(0, 0.01,
>
> 0.8, 1.59,
>
> 1, p3-1.8,
>
> 0.01, 0.2,
>
> 0)
>
> endif
>
> aOut1 = foscil:a(iAmplitude,
>
> cpspch(p5+1),
>
> 0.5,
>
> p6,
>
> kFMenvelope1,
>
> 101)
>
> aOut2 = foscil:a(iAmplitude,
>
> cpspch(p5+1),
>
> 0.5,
>
> p6,
>
> kFMenvelope2,
>
> 101)
>
> aOut = (aOut1+aOut2)/2
>
> aOut = aOut*aEnvelope
>
> aFubar = delayr:a(0.5)
>
> aLeft = deltap:a(0.01)
>
> aRight = deltap:a(0.025)
>
> delayw aOut
>
> aOut = butterbp:a(aOut, iCPS, iCPS*9)
>
> gaOutLeft = (aOut*linseg:a(p9, p3/2-0.3, p10, p3/2+0.3, p10))+aLeft/7
>
> gaOutRight = (aOut*linseg:a(p10, p3/2-0.3, p9, p3/2+0.3, p9))+aRight/7
>
> gaReverb1 = aOut
>
> endin
>
>
>
> instr 6
>
> outs gaOutLeft, gaOutRight
>
> gaOutLeft = 0
>
> gaOutRight = 0
>
> endin
>
>
>
> some example score
>
>
> i1 0 8 -9 9.05 5 1001 10001 0.25 0.75
>
> i1 0 8 -12 9.10 0.000 1001 10001 0.75 0.25
>
> i1 4 8 -3 8.10 1.01 1001 10002 0.25 0.75
>
> i1 4 8 -3 9.00 1.01 1001 10002 0.75 0.25
>
> i6 0 8
>
> 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


Date2017-02-26 14:08
From"Joe ."
SubjectRe: trouble "sending"
Thank you!

/* Joe */

On Sat, Feb 25, 2017 at 11:20 PM, Oeyvind Brandtsegg <oyvind.brandtsegg@ntnu.no> wrote:
I think you need to do
gaOutLeft += (aOu...
instead of
gaOutLeft = (aOu...
Otherwise every new simultaneous instance of the instr will overwrite
the signal from the previous instance.

2017-02-25 20:30 GMT-08:00 Joe . <not007ful@gmail.com>:
> I'm including all the relevant code because I can't find the problem.
> Basically I am trying to put the final output of instr 1 into gaOutLeft/
> gaOutRight, and play that with instr 6.  What happens though, is there is no
> sound. Also, when I do play the reverb "gaReverb1" it only plays the top
> note. Thanks in advance!
>
>
> gaReverb1 init 0
>
> gaOutLeft init 0
>
> gaOutRight init 0
>
> instr 1
>
> $AmplitudeFrequencyConverters
>
> if p7 = 1001 then
>
> kFMenvelope1 = linseg:k(p6, p3/3-0.3, 12, p3/3*2, 0, 0.3, 0)
>
> kFMenvelope2 = linseg:k(3, p3/2-0.3, 0, p3/2, 3, 0.3, 0)
>
> endif
>
> if p8 = 10001 then
>
> aEnvelope = linseg:a(0, 0.01,
>
> 0.5, 1.59,
>
> 1, p3-1.8,
>
> 0.01, 0.2,
>
> 0)
>
> elseif p8 = 10002 then
>
> aEnvelope = linseg:a(0, 0.01,
>
> 0, 1.59,
>
> 1, p3-1.8,
>
> 0.01, 0.2,
>
> 0)
>
> elseif p8 = 10003 then
>
> aEnvelope = linseg:a(0, 0.01,
>
> 0.8, 1.59,
>
> 1, p3-1.8,
>
> 0.01, 0.2,
>
> 0)
>
> endif
>
> aOut1 = foscil:a(iAmplitude,
>
> cpspch(p5+1),
>
> 0.5,
>
> p6,
>
> kFMenvelope1,
>
> 101)
>
> aOut2 = foscil:a(iAmplitude,
>
> cpspch(p5+1),
>
> 0.5,
>
> p6,
>
> kFMenvelope2,
>
> 101)
>
> aOut = (aOut1+aOut2)/2
>
> aOut = aOut*aEnvelope
>
> aFubar = delayr:a(0.5)
>
> aLeft = deltap:a(0.01)
>
> aRight = deltap:a(0.025)
>
> delayw aOut
>
> aOut = butterbp:a(aOut, iCPS, iCPS*9)
>
> gaOutLeft = (aOut*linseg:a(p9, p3/2-0.3, p10, p3/2+0.3, p10))+aLeft/7
>
> gaOutRight = (aOut*linseg:a(p10, p3/2-0.3, p9, p3/2+0.3, p9))+aRight/7
>
> gaReverb1 = aOut
>
> endin
>
>
>
> instr 6
>
> outs gaOutLeft, gaOutRight
>
> gaOutLeft = 0
>
> gaOutRight = 0
>
> endin
>
>
>
> some example score
>
>
> i1 0 8 -9 9.05 5 1001 10001 0.25 0.75
>
> i1 0 8 -12 9.10 0.000 1001 10001 0.75 0.25
>
> i1 4 8 -3 8.10 1.01 1001 10002 0.25 0.75
>
> i1 4 8 -3 9.00 1.01 1001 10002 0.75 0.25
>
> i6 0 8
>
> 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



--

Oeyvind Brandtsegg
Professor of Music Technology
NTNU
7491 Trondheim
Norway
Cell: +47 92 203 205

http://www.partikkelaudio.com/
http://crossadaptive.hf.ntnu.no
http://gdsp.hf.ntnu.no/
http://soundcloud.com/brandtsegg
http://flyndresang.no/
http://soundcloud.com/t-emp

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

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