Granularize true 2 2 setksmps 1 itblsz = 131072 itbfrq = sr / itblsz ; generate tables ifnA1 ftgentmp 0, 0, itblsz, -7, 0, itblsz, 0 ifnA2 ftgentmp 0, 0, itblsz, -7, 0, itblsz, 0 idclip ftgentmp 0, 0, itblsz, 7, 0, 36, 1, itblsz-72, 1, 36, 0 iwfn ftgentmp 0, 0, 4096, 20, 5 ; write signal to tables awp phasor itbfrq awin tablei awp, idclip, 1 tablew ain1*awin, awp, ifnA1, 1 tablew ain2*awin, awp, ifnA2, 1 ; set grain3 parameters ipitch = itbfrq * <freqMult> kphs = 0 kfmd = <fmdA> + <fmdB> kpmd = <pmd> kgdur = <gdur> kdens = <densA>+<densB> kmaxovr = kdens*kgdur imaxovr = (<densA>+<densB>)*<gdur>+1 kfrpow = <frpow> kprpow = <prpow> iseed = 0 imode = 0 kfn1 = ifnA1 kfn2 = ifnA2 ; granularize both channels agrain1 grain3 ipitch, kphs, kfmd, kpmd, kgdur, kdens, imaxovr, kfn1, iwfn, kfrpow, kprpow, iseed, imode agrain2 grain3 ipitch, kphs, kfmd, kpmd, kgdur, kdens, imaxovr, kfn2, iwfn, kfrpow, kprpow, iseed-1, imode ablk1 dcblock agrain1 ablk2 dcblock agrain2 ; balance signals cigoto (imaxovr > 1), bal iscal = 1 goto end bal: iscal = sqrt(imaxovr) * .666666 end: print iscal aout1 = ablk1/iscal aout2 = ablk2/iscal Granularize a signal using the grain3 opcode. fmdB 124 21 true 0.0 2000.0 1.0 0.0 320 126 55 Variation (in hz) of grain frq. pmd 23 104 true 0.0 1.0 0.1048207 60 14 185 Variation of phase gdur 125 93 true 0.0 2.0 0.43119407 120 147 234 Grain duration densB 14 296 true 0.0 2000.0 100.0 0.0 400 17 327 Num. of grains per second densA 14 261 true 0.0 100.0 1.0 20.0 400 256 199 Rnd. frq. distribution frpow 269 101 true -2.0 2.0 -0.3909154 80 prpow 392 101 true -2.0 2.0 -2.0 80 379 199 Rnd. phase distribution freqMult 508 17 true 0.0 4.0 1.0005438 120 520 160 Frequency Multiplier fmdA 50 5 true 0.0 1.0 0.03121192 60