breath (CSound instrument)

sr        =    44100
kr        =    4410
nchnls    =    2

instr 1
  ilen      =         p3
  ienvamp   =         p4
  ifreq     =         p5
                                          
  krnd_amp  linseg   0,ilen*.6, ienvamp*2, ilen*.4, 0
  krnd_frq  linen    ienvamp, 0.05*ilen, ilen, ilen*.3
  anoise    randi    krnd_amp, krnd_frq
  aosc      oscil    anoise, ifreq, 1
  aosc2     reson    aosc,ifreq/30,100,2
            outs     aosc2,aosc2
endin

f1  0 2048 10 1

t0 24

i1    0    1    3500     500
i1    1    1    3500    1500
i1    2    1    3500     500
i1    3    1    3500    1500

i1    4    1    1700     200
i1    5    1    1700     800
i1    6    1    1700     200
i1    7    1    1700     800

i1    8    1     800     100
i1    9    1     800     750
i1   10    1     800     100
i1   11    1     800     750