Here is a UDO that sort of emulates the GaussTrig Ugen of supercollider.

Best,

Peiman





-o dac



sr     = 96000
ksmps  = 16
nchnls = 2
0dbfs  = 1


	opcode GaussTrig,a, aaa
		adev, afreq, aamp	xin
setksmps 1
kdev 	downsamp	adev
kfreq 	downsamp	afreq
kamp	downsamp	aamp
krange = kfreq*kdev
kgauss  gauss   krange
kgauss = (kfreq+kgauss)
kgauss	limit	kgauss, 1, sr/2
kintrvl	= 1/kgauss
ares	mpulse	kamp, kintrvl
	xout	ares	
	endop

	instr 1
aenv	expseg 1, p3, 0.001
afreq   expseg p4, p3, p5
aresL	GaussTrig	aenv, afreq, aenv*p6
aresR	GaussTrig	aenv, afreq, aenv*p6	
outs	aresL, aresR
	endin






i1 0 .5 40 1000 .4
i1 0 2 40 1000 .4
i1 3 1 400 10 .4
i1 5 .1 10000 .001 .7
i1 + .1 10000 1 .7
i1 + .5 100 0.0001 .7
i1 + .8 10 10000 .7
i1 + .4 10000 0.02 .7
i1 + 20 1000 0.01 .5

e






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"

thanks, looks very useful. can you commit to the udo repository?
cheers -
	joachim


Am 01.12.2011 00:26, schrieb peiman khosravi:
> Here is a UDO that sort of emulates the GaussTrig Ugen of supercollider.
> 
> Best,
> 
> Peiman
> 
> 
> 
> 
> 
> -o dac
> 
> 
> 
> sr     = 96000
> ksmps  = 16
> nchnls = 2
> 0dbfs  = 1
> 
> 
> 	opcode GaussTrig,a, aaa
> 		adev, afreq, aamp	xin
> setksmps 1
> kdev 	downsamp	adev
> kfreq 	downsamp	afreq
> kamp	downsamp	aamp
> krange = kfreq*kdev
> kgauss  gauss   krange
> kgauss = (kfreq+kgauss)
> kgauss	limit	kgauss, 1, sr/2
> kintrvl	= 1/kgauss
> ares	mpulse	kamp, kintrvl
> 	xout	ares	
> 	endop
> 
> 	instr 1
> aenv	expseg 1, p3, 0.001
> afreq   expseg p4, p3, p5
> aresL	GaussTrig	aenv, afreq, aenv*p6
> aresR	GaussTrig	aenv, afreq, aenv*p6	
> outs	aresL, aresR
> 	endin
> 
> 
> 
> 
> 
> 
> i1 0 .5 40 1000 .4
> i1 0 2 40 1000 .4
> i1 3 1 400 10 .4
> i1 5 .1 10000 .001 .7
> i1 + .1 10000 1 .7
> i1 + .5 100 0.0001 .7
> i1 + .8 10 10000 .7
> i1 + .4 10000 0.02 .7
> i1 + 20 1000 0.01 .5
> 
> e
> 
> 
> 
> 
> 
> 
> 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"
> 
> 


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"

Sure thing.

P

On 1 December 2011 05:44, joachim heintz  wrote:
> thanks, looks very useful. can you commit to the udo repository?
> cheers -
>        joachim
>
>
> Am 01.12.2011 00:26, schrieb peiman khosravi:
>> Here is a UDO that sort of emulates the GaussTrig Ugen of supercollider.
>>
>> Best,
>>
>> Peiman
>>
>>
>> 
>>
>> 
>> -o dac
>> 
>>
>> 
>> sr     = 96000
>> ksmps  = 16
>> nchnls = 2
>> 0dbfs  = 1
>>
>>
>>       opcode GaussTrig,a, aaa
>>               adev, afreq, aamp       xin
>> setksmps 1
>> kdev  downsamp        adev
>> kfreq         downsamp        afreq
>> kamp  downsamp        aamp
>> krange = kfreq*kdev
>> kgauss  gauss   krange
>> kgauss = (kfreq+kgauss)
>> kgauss        limit   kgauss, 1, sr/2
>> kintrvl       = 1/kgauss
>> ares  mpulse  kamp, kintrvl
>>       xout    ares
>>       endop
>>
>>       instr 1
>> aenv  expseg 1, p3, 0.001
>> afreq   expseg p4, p3, p5
>> aresL GaussTrig       aenv, afreq, aenv*p6
>> aresR GaussTrig       aenv, afreq, aenv*p6
>> outs  aresL, aresR
>>       endin
>>
>>
>>
>> 
>>
>> 
>> i1 0 .5 40 1000 .4
>> i1 0 2 40 1000 .4
>> i1 3 1 400 10 .4
>> i1 5 .1 10000 .001 .7
>> i1 + .1 10000 1 .7
>> i1 + .5 100 0.0001 .7
>> i1 + .8 10 10000 .7
>> i1 + .4 10000 0.02 .7
>> i1 + 20 1000 0.01 .5
>>
>> e
>>
>> 
>>
>> 
>>
>>
>> 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"
>>
>>
>
>
> 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"
>


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"

It's in the repository.

P

On 1 December 2011 09:05, peiman khosravi  wrote:
> Sure thing.
>
> P
>
> On 1 December 2011 05:44, joachim heintz  wrote:
>> thanks, looks very useful. can you commit to the udo repository?
>> cheers -
>>        joachim
>>
>>
>> Am 01.12.2011 00:26, schrieb peiman khosravi:
>>> Here is a UDO that sort of emulates the GaussTrig Ugen of supercollider.
>>>
>>> Best,
>>>
>>> Peiman
>>>
>>>
>>> 
>>>
>>> 
>>> -o dac
>>> 
>>>
>>> 
>>> sr     = 96000
>>> ksmps  = 16
>>> nchnls = 2
>>> 0dbfs  = 1
>>>
>>>
>>>       opcode GaussTrig,a, aaa
>>>               adev, afreq, aamp       xin
>>> setksmps 1
>>> kdev  downsamp        adev
>>> kfreq         downsamp        afreq
>>> kamp  downsamp        aamp
>>> krange = kfreq*kdev
>>> kgauss  gauss   krange
>>> kgauss = (kfreq+kgauss)
>>> kgauss        limit   kgauss, 1, sr/2
>>> kintrvl       = 1/kgauss
>>> ares  mpulse  kamp, kintrvl
>>>       xout    ares
>>>       endop
>>>
>>>       instr 1
>>> aenv  expseg 1, p3, 0.001
>>> afreq   expseg p4, p3, p5
>>> aresL GaussTrig       aenv, afreq, aenv*p6
>>> aresR GaussTrig       aenv, afreq, aenv*p6
>>> outs  aresL, aresR
>>>       endin
>>>
>>>
>>>
>>> 
>>>
>>> 
>>> i1 0 .5 40 1000 .4
>>> i1 0 2 40 1000 .4
>>> i1 3 1 400 10 .4
>>> i1 5 .1 10000 .001 .7
>>> i1 + .1 10000 1 .7
>>> i1 + .5 100 0.0001 .7
>>> i1 + .8 10 10000 .7
>>> i1 + .4 10000 0.02 .7
>>> i1 + 20 1000 0.01 .5
>>>
>>> e
>>>
>>> 
>>>
>>> 
>>>
>>>
>>> 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"
>>>
>>>
>>
>>
>> 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"
>>


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"