By chance, when playing with a simple recursive instrument, I stumbled on this nice additive synthesis drum-like sound,
made by spacing the partials using a log() function. Interesting, is it not?



-d -o dac



instr 1
k1 expon p4,p3/p6,p4*0.001
a1 oscil3 k1, p5*(1+log(p6)), 1
out a1
if p6 < p7 then
iharm = p6+1
event_i "i",p1,0,p3,(0dbfs*0.2)/iharm,p5,iharm,p7
endif
endin



f 1 0 32768 10 1
i1 0 2 10000 200 1 100
i1 1 2 10000 250 1 100
i1 2 2 10000 310 1 100
i1 3 2 10000 80 1 100



Dr Victor Lazzarini
Senior Lecturer
Dept. of Music
NUI Maynooth Ireland
tel.: +353 1 708 3545
Victor dot Lazzarini AT nuim dot ie

Nice one. Quite like to a bodhrán!


On 18 February 2013 08:21, Oeyvind Brandtsegg  wrote:
> Nice one,
> Thanks for sharing.
> Oeyvind
>
>
> 2013/2/18 Victor Lazzarini 
>>
>> By chance, when playing with a simple recursive instrument, I stumbled on
>> this nice additive synthesis drum-like sound,
>> made by spacing the partials using a log() function. Interesting, is it
>> not?
>>
>> 
>> 
>> -d -o dac
>> 
>> 
>>
>> instr 1
>> k1 expon p4,p3/p6,p4*0.001
>> a1 oscil3 k1, p5*(1+log(p6)), 1
>> out a1
>> if p6 < p7 then
>> iharm = p6+1
>> event_i "i",p1,0,p3,(0dbfs*0.2)/iharm,p5,iharm,p7
>> endif
>> endin
>>
>> 
>> 
>> f 1 0 32768 10 1
>> i1 0 2 10000 200 1 100
>> i1 1 2 10000 250 1 100
>> i1 2 2 10000 310 1 100
>> i1 3 2 10000 80 1 100
>> 
>> 
>>
>> Dr Victor Lazzarini
>> Senior Lecturer
>> Dept. of Music
>> NUI Maynooth Ireland
>> tel.: +353 1 708 3545
>> Victor dot Lazzarini AT nuim dot ie
>>
>>
>>
>>
>>
>> Send bugs reports to the Sourceforge bug tracker
>>             https://sourceforge.net/tracker/?group_id=81968&atid=564599
>> Discussions of bugs and features can be posted here
>> To unsubscribe, send email sympa@lists.bath.ac.uk with body "unsubscribe
>> csound"
>>
>
>
>
> --
>
> Oeyvind Brandtsegg
> Professor of Music Technology
> NTNU
> 7491 Trondheim
> Norway
> Cell: +47 92 203 205
>
> http://flyndresang.no/
> http://www.partikkelaudio.com/
> http://soundcloud.com/brandtsegg
> http://soundcloud.com/t-emp