Hello Csound Developers and Users,

Here i would like to share you the following work so you can use it and if
possible, suggest changes. Basically is a sum of ring modulated sines, i
needed two udos to make it work, maybe you know how to do it with just one.
I recommend you to play it with an active spectrum analyzer.
Regards!





--
Sent from: http://csound.1045644.n5.nabble.com/Csound-General-f1093014.html

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

Code?

⁣Sent from TypeApp ​

On Mar 14, 2019, 22:27, at 22:27, pablozoani  wrote:
>Hello Csound Developers and Users,
>
>Here i would like to share you the following work so you can use it and
>if
>possible, suggest changes. Basically is a sum of ring modulated sines,
>i
>needed two udos to make it work, maybe you know how to do it with just
>one.
>I recommend you to play it with an active spectrum analyzer.
>Regards!
>
>
>
>
>
>--
>Sent from:
>http://csound.1045644.n5.nabble.com/Csound-General-f1093014.html
>
>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

Sorry, i do not know what happened. I am having problems with the text
format. here goes 



sr = 96000
ksmps = 64
nchnls = 2
0dbfs = 1
opcode udo_ring2, a, aikkkp
setksmps 1
a_in, i_numsidebands, k_mod, k_ampfactor, k_specfactor, i_ndx xin
a_sig = poscil(1,
k_mod*i_ndx*k_specfactor)*a_in*(1/(2^(i_ndx*k_ampfactor)))^(1/2)*2
if (i_numsidebands != 1) then
a_sig += udo_ring2(a_in, i_numsidebands-1, k_mod, k_ampfactor, k_specfactor,
i_ndx+1)
endif
xout a_sig
endop
opcode udo_ring, a, kkikk
setksmps 1
k_fundamental, k_mod, i_numsidebands, k_ampfactor, k_specfactor xin
a_sig = poscil(1, k_fundamental)
if (i_numsidebands <= 0) goto end
a_sig += udo_ring2(a_sig, i_numsidebands, k_mod, k_ampfactor, k_specfactor)
end:
xout a_sig
endop
instr 1
k_specfactor = p6
k_ampfactor = p7
k_fundamental = p4
i_resonance = p5
i_partials = (i_resonance)-1
a_sig = udo_ring(i_resonance*k_fundamental, k_fundamental, i_partials,
k_ampfactor, k_specfactor)
a_sig *= p8*line(1,p3,0)^4
outch 1, a_sig, 2, a_sig
endin
instr 2
k_specfactor = line(1,p3,1.1)
k_ampfactor = line(0,p3,2)
k_fundamental = p4
i_resonance = p5
i_partials = (i_resonance)-1
a_sig = udo_ring(i_resonance*k_fundamental, k_fundamental, i_partials,
k_ampfactor, k_specfactor)
a_sig *= .01*line(1,p3,0)^2
outch 1, a_sig, 2, a_sig
endin


a 0 0 0 
t 0 60 
i 2 + 4 500 17 ; instr 2 with lines.
; ; ; simple chord 
i 1 4 4 500 6 1 0 .01 ; base frecuency = 500. loudest harmonic = 6 (no
effect because p7 = 0). open/close spectrum = 1 (harmonic). spectral
envelope = 0 (flat). 
i 1 4 4 750 6 1 0 .01 
i 1 4 4 [500*5/4] 6 1 0 .01 
; ; ; notes 
i 1 + 4 250 15 1 0 .01 
i 1 + 4 250 15 1 1 .03 ; now base frecuency = 250. now loudest harmonic = 15
(now it is louder because p7 = 1, see the spectrum). 
i 1 + 4 250 15 1.1 0 .01 ;inharmonic because of p6 
i 1 + 4 100 15 .95 .7 .07 ;p6 = 0.95 (note that partials are closer to the
loudest harmonic [p5]). p7 = .7 (note the amplitude of partials decrease)
e 





--
Sent from: http://csound.1045644.n5.nabble.com/Csound-General-f1093014.html

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

simple_ring_modulations.csd
  



--
Sent from: http://csound.1045644.n5.nabble.com/Csound-General-f1093014.html

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