Image source: Csound Home › Blog Csound Csound What’s Csound. Csound Project . The Code I wrote you can try copy this Csound Filtered Amplitude-modified Spectrally-rich unit generators Granular synthesis of 3 different sound files ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー -o/Users/TATSUYA/Desktop/Grain.aif sr = 44100 kr = 4410 ksmps = 10 nchnls = 2 instr 1 kamp linen ampdb(p4), p3/3, p3, p3*2/2 kcps line cpspch(p5), p3, cpspch(p6) iwave = 3 kpw line p7, p3, p8 kcf line p9, p3, p10 kbw line p11, p3, p12 ;kbw = p11 ;kpw — determines either the pulse width (if iwave is 2) or the saw/ramp character (if iwave is 3) The value of kpw should be greater than 0 and less than 1. A value of 0.5 will generate either a square wave (if iwave is 2) or a triangle wave (if iwave is 3). ;kcf — the center frequency of the filter, or frequency position of the peak response. ;kbw — bandwidth of the filter (the Hz difference between the upper and lower half-power points). kxp line p13, p3, p14 aoriginal vco kamp, kcps, iwave, kpw afilter reson aoriginal, kcf, kbw asig balance afilter, aoriginal ;out asig a1, a2 pan2 asig, kxp outs a1, a2 endin instr 2 ;grain- iamp ipitch idens kampoff kpitchoff kgdur igfn iwfn imgdur iamp = ampdb(p4) kpitch line p18, p3, p19 ;kpitch linen p4, p18, p3, p19 idens = p5 kampoff line p6, p3, p7 kpitchoff linen p4, p8, p3, p9 kgdur line p10, p3, p11 igfn = p12 iwfn = p13 imgdur = .5 kcf line p14, p3, p15 kbw line p16, p3, p17 kxp line p20, p3, p21 iwidth = p22 ispeed = p23 klfo lfo iwidth, ispeed, p24 ;xdens — Density of grains measured in grains per second. If this is constant then the output is synchronous granular synthesis, very similar to fof. If xdens has a random element (like added noise), then the result is more like asynchronous granular synthesis ;kampoff — Maximum amplitude deviation from xamp. This means that the maximum amplitude a grain can have is xamp + kampoff and the minimum is xamp. If kampoff is set to zero then there is no random amplitude for each grain. ;kpitchoff — Maximum pitch deviation from xpitch in Hz. Similar to kampoff. ;kgdur — Grain duration in seconds. The maximum value for this should be declared in imgdur. If kgdur at any point becomes greater than imgdur, it will be truncated to imgdur. aorigi grain iamp, kpitch, idens, kampoff, kpitchoff, kgdur, igfn, iwfn, imgdur afilter reson aorigi, kcf, kbw asig balance afilter, aorigi ;out asig a1, a2 pan2 asig, kxp+klfo outs a1, a2 endin f1 0 8192 10 1 f2 0 32768 1 “Attention.aif” 0 0 0 f3 0 131072 1 “JapaneseDrum.aif” 0 0 0 f4 0 262144 1 “TubularBell.aif” 0 0 0 f5 0 1024 20 1 ;1 2 3 4 5 6 7 8 9 10 11 12 13 14 i1 0 10 80 8.01 9.01 0 1 0 1 100 1000 0 1 ;instr start dur iamp ipitch idens kampoff kpitchoff kgdur igfn iwfn imgdur kcf kbw ;1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 22 24 i2 10 15 75 10 .5 0 10 100 10 15 2 1 0 1 100 1000 7.08 9.01 0 1 10 4 3 i2 + . 75 100 .5 0 10 100 15 20 3 1 0 1 100 1000 8.01 9.01 1 0 100 1 2 i2 . . 75 100 .5 0 10 100 20 25 4 1 0 1 100 1000 9.04 8.01 0 1 200 2 1 i2 . . 75 10 .5 0 10 100 25 30 2 1 0 1 100 1000 9.01 8.01 1 0 250 3 4 EndFragment Csound