Csound Csound-dev Csound-tekno Search About

[Csnd] autecher instrument

Date2013-10-10 21:57
Frompeiman khosravi
Subject[Csnd] autecher instrument
I felt like making a crazy autecher instrument tonight!

P


<CsoundSynthesizer>
<CsOptions>
-odac -d
;-o test.aif -d -A -3
</CsOptions>
; ==============================================
<CsInstruments>

sr = 96000
ksmps = 10
nchnls = 1
0dbfs = 1

gaInput init 0

instr 1
kcps = 2000
kdev = .2

aenv expon 1, p3, .0000001 
kenv downsamp aenv
ares gausstrig .5, kcps*kenv, kdev
gaInput = ares*aenv

endin

instr 2
kdur  gaussi .5, 1, 5
kdur = (kdur+.2)*2

ktrig metro 15000
      schedkwhen ktrig, 0.001, 100, 1, 0, kdur

kfreq randomi 100, 20000, 8
kres  randomi .1, .9, .1
asig moogladder gaInput, kfreq, kres
out asig
endin



</CsInstruments>
; ==============================================
<CsScore>

i2 0 100

</CsScore>
</CsoundSynthesizer>


Date2013-10-10 22:06
FromRichard Boulanger
SubjectRe: [Csnd] autecher instrument
cool…. 









On Oct 10, 2013, at 4:57 PM, peiman khosravi <peimankhosravi@gmail.com> wrote:

<CsoundSynthesizer>
<CsOptions>
-odac -d
;-o test.aif -d -A -3
</CsOptions>
; ==============================================
<CsInstruments>

sr = 96000
ksmps = 10
nchnls = 1
0dbfs = 1

gaInput init 0

instr 1
kcps = 2000
kdev = .2

aenv expon 1, p3, .0000001 
kenv downsamp aenv
ares gausstrig .5, kcps*kenv, kdev
gaInput = ares*aenv

endin

instr 2
kdur  gaussi .5, 1, 5
kdur = (kdur+.2)*2

ktrig metro 15000
      schedkwhen ktrig, 0.001, 100, 1, 0, kdur

kfreq randomi 100, 20000, 8
kres  randomi .1, .9, .1
asig moogladder gaInput, kfreq, kres
out asig
endin



</CsInstruments>
; ==============================================
<CsScore>

i2 0 100

</CsScore>
</CsoundSynthesizer>