René Nyffenegger's collection of things on the web | |
René Nyffenegger on Oracle - Most wanted - Feedback
- Follow @renenyffenegger
|
FM Experimental 01 [CSound] | ||
fm_experimental_01.orc
sr = 44100 kr = 44100 nchnls = 2 instr 1 ilen = p3 iamp = ampdb (p4) ifrq = cpspch(p5) ibla = 350 ifoo = 1/7 kamp0 expseg 1, ilen, 1/256 kamp0 = kamp0 * kamp0 afm0 foscili ifrq*kamp0, ifrq*ifoo, 1, 4.9, 7, 1 afm0_ butterlp afm0, ifrq/6 afm0 balance afm0_, afm0 kfm0 downsamp afm0 afm1 foscili ifrq/30, ifrq/ibla, 1, 3, 2, 1 kfm1 downsamp afm1 kindx2 expseg 4, ilen, 2 afm2 foscili 1, ifrq+kfm0, 1, 2+kfm1, kindx2, 1 kband expseg 140, ilen, 50 afm2_ butterbp afm2, ifrq, kband afm2 balance afm2_, afm2 kenv linseg 0, 0.02, iamp, ilen-0.02, 0 outs afm2*kenv, afm2 *kenv endin fm_experimental_01.sco
t0 35 f1 0 8192 10 1 ;t0 280 i1 0 1 70 9.03 i1 1 1 70 9.00 i1 2 1 70 8.07 i1 3 1 70 8.03 i1 + 0.25 70 9.10 i1 + 0.25 70 9.07 i1 + 0.25 70 9.03 i1 + 0.25 70 10.00 i1 + 0.25 70 6.00 i1 + 0.25 70 6.03 i1 + 0.25 70 6.05 i1 + 0.25 70 6.03 i1 + 0.25 70 6.00 |