View source for TOOT 10

The following instrument uses the Csound rand unit to produce noise, and a reson unit to filter it. The bandwidth of reson will be set at i-time, but its center frequency will be swept via a line unit through a wide range of frequencies during each note. We add reverb as in Toot 9.

== orchestra ==


{{ Box File | Toot10.orc | 2=<pre>
sr        =         44100

kr        =         4410

ksmps     =         10

nchnls    =         2



garvbsig init       0



          instr 10

iattack   =         .01

irelease  =         .2

iwhite    =         22050

idur      =         p3

iamp      =         p4

iswpstart =         p5

isweepend =         p6

ibndwidth =         p7

ibalance  =         p8                  ; 1 = left, .5 = center, 0 = right

irvbgain  =         p9

kamp      linen     iamp, iattack, idur, irelease

ksweep    line      iswpstart, idur, isweepend

asig      rand      iwhite

afilt     reson     asig, ksweep, ibndwidth

arampsig  =         kamp * afilt

          outs      arampsig * ibalance, arampsig * (1 - ibalance)

garvbsig  =         garvbsig + arampsig * p9

          endin



          instr     100

irvbtime  =         p4

asig      reverb    garvbsig,  irvbtime

          outs      asig, asig

garvbsig  =         0

          endin

</pre>
}}

== score ==

{{ Box File | Toot10.sco | 2=<pre>
;ins strt dur  rvbtime

i100 0    15   1.1

i100 15   10   5



;ins strt dur  amp   stsw   ndsw   bdw  bal(0-1)  rvsnd

i10  0    2    .01   5000   500    20   .15        .1

i10  3    1    .01   1500   5000   30   .95        .1

i10  5    2    .01   850    1100   40   .45        .1

i10  8    2    .01   1100   8000   50   .05        .1

i10  8    .5   .01   5000   1000   30   .35        .2

i10  9    .5   .01   1000   8000   40   .75        .1

i10  11   .5   .01   500    2100   50   .14        .2

i10  12   .5   .01   2100   1220   75   .96        .1

i10  13   .5   .01   1700   3500   100  .45        .2

i10  15   5    .005  8000   800    60   .85        .1

</pre>	

}}