René Nyffenegger's collection of things on the web | |
René Nyffenegger on Oracle - Most wanted - Feedback
- Follow @renenyffenegger
|
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 |