René Nyffenegger's collection of things on the web
René Nyffenegger on Oracle - Most wanted - Feedback -
 

Filtered Noise [CSound effect]

sr     = 44100
kr     = 4410
nchnls = 2

instr 1
  ilen           =    p3
  iamp           =    p4
  i_nof_pulses   =    p5
  i_nof_pans     =    p6

  i_sweep_start  = 16000
  i_sweep_end    =   700
  i_band_width   =   100

  ksweep expseg i_sweep_start, ilen, i_sweep_end

  kenv_total    linseg 0, ilen/20, 1, 19/20*ilen, 0

  kenv          oscil  1,  i_nof_pulses/ilen, 10
  kpan          oscil  1,  i_nof_pans  /ilen, 11

  arand         rand   iamp
  afilt         reson  arand ,ksweep,i_band_width,2

  asig =        afilt*kenv*kenv_total
  outs          asig*kpan,asig*(1-kpan)
endin
f10 0 512 7 0 16 1 96 0 400 0                            ;PRECUSSIVE ENV 
f11 0 512 7 0 256 1 256 0                               ;L R L

;ins(3) start len  amp    nof_pulses  nof_pans
i1      0     10   16000  60          3
i1      7     10   16000  90          1
i1      14    10   16000  40          20