Granular Saw Granular synthesis of a morphing saw waveform. gitbatk_<INSTR_ID> ftgen 0, 0, 513, 5, .01, 512, 1 gitbwin_<INSTR_ID> ftgen 0, 0, 2048, 20, 5 ;grain amplitude curve gitbsin_<INSTR_ID> ftgen 0, 0, 8192, 10, 1.0 gitbcplx1_<INSTR_ID> ftgen <INSTR_ID>*100+1, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1, .0909, .0833, .0769, .0714, .0667, 0.0625, .0588, .0556, .0526, .05 gitbcplx2_<INSTR_ID> ftgen <INSTR_ID>*100+2, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1, .0909, .0833, .0769, .0714, .0667, 0.0625, .0588, .0556, .0526 gitbcplx3_<INSTR_ID> ftgen <INSTR_ID>*100+3, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1, .0909, .0833, .0769, .0714, .0667, 0.0625, .0588, .0556 gitbcplx4_<INSTR_ID> ftgen <INSTR_ID>*100+4, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1, .0909, .0833, .0769, .0714, .0667, 0.0625, .0588 gitbcplx5_<INSTR_ID> ftgen <INSTR_ID>*100+5, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1, .0909, .0833, .0769, .0714, .0667, 0.0625 gitbcplx6_<INSTR_ID> ftgen <INSTR_ID>*100+6, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1, .0909, .0833, .0769, .0714, .0667 gitbcplx7_<INSTR_ID> ftgen <INSTR_ID>*100+7, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1, .0909, .0833, .0769, .0714 gitbcplx8_<INSTR_ID> ftgen <INSTR_ID>*100+8, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1, .0909, .0833, .0769 gitbcplx9_<INSTR_ID> ftgen <INSTR_ID>*100+9, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1, .0909, .0833 gitbcplx10_<INSTR_ID> ftgen <INSTR_ID>*100+10, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1, .0909 gitbcplx11_<INSTR_ID> ftgen <INSTR_ID>*100+11, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111, .1 gitbcplx12_<INSTR_ID> ftgen <INSTR_ID>*100+12, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125, .1111 gitbcplx13_<INSTR_ID> ftgen <INSTR_ID>*100+13, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429, .125 gitbcplx14_<INSTR_ID> ftgen <INSTR_ID>*100+14, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666, .1429 gitbcplx15_<INSTR_ID> ftgen <INSTR_ID>*100+15, 0, 1024, 10, 1, .5, .3333, .25, .2, .1666 ; p3 - duration ; p4 - frequency (pch) ; p5 - amplitude ; p6 - attack time ; p7 - decay time ; p8 - begin pitch multiplier ;;; Begin Boilerplate ;;; iamp = p5 iphs = 0 itie tieStatus ipitch getFrequency p4 idur = abs(p3) ipchmlt = p8 ;;; Envelope variables iatk = p6 idecdur = p7 ;How much of note is decay iatnfct = .95 ;Attenuation factor idecfct = .001 ;Decay factor iexpmod = 0 ;exponential curve modifier tigoto skipInit ioldpch init ipitch skipInit: ;amplitude if (itie == -1) then aamp1 envlpx iamp, iatk, idur, idecdur, gitbatk_<INSTR_ID>, iatnfct, idecfct, iexpmod elseif (itie == 0) then aamp1 envlpx iamp, iatk, idur, 0, gitbatk_<INSTR_ID>, iatnfct, idecfct, iexpmod elseif (itie == 1) then aamp1 = iamp*iatnfct iphs = 1 elseif (itie == 2) then aamp1 expseg iamp*iatnfct, idur-idecdur, iamp*iatnfct, idecdur, iamp*idecfct iphs = 1 endif ;;; Pitch transition envelope kpitch expseg ioldpch, .1, ipitch, idur-.1, ipitch ioldpch = ipitch kpmod line ipchmlt, idur, 1 kpitch = kpitch * kpmod ;;; End Boilerplate ;;; ;setup table changes itblrng = 15 ktbfrq = <tbFrq1>+<tbFrq2> ktmod1 oscili (itblrng*.5)-.5, ktbfrq, gitbsin_<INSTR_ID>, iphs ktmod2 oscili (itblrng*.5)-.5, ktbfrq*1.222, gitbsin_<INSTR_ID>, iphs ktmod1 = ktmod1+(itblrng*.5)+.5 ktmod2 = ktmod2+(itblrng*.5)+.5 kfn1 = int(ktmod1+(<INSTR_ID>*100)) kfn2 = int(ktmod2+(<INSTR_ID>*100)) ;setup granular synthesis iwfn = gitbwin_<INSTR_ID> kphs = 0 kfmd = (kpitch*<fmd>)+<fmd2> kpmd = <pmd> kgdur = <gdur> kdens = <densA>+<densB> kmaxovr = kdens*kgdur imaxovr = (<densA>+<densB>)*<gdur>+1 kfrpow = <frpow> kprpow = <prpow> iseed = 100 imode = 0 + iphs ; granularize both channels agrain1 grain3 kpitch, kphs, kfmd, kpmd, kgdur, kdens, imaxovr, kfn1, iwfn, kfrpow, kprpow, iseed, imode agrain2 grain3 kpitch, kphs, kfmd, kpmd, kgdur, kdens, imaxovr, kfn2, iwfn, kfrpow, kprpow, iseed, imode ;ablk1 dcblock agrain1*aamp1 ;ablk2 dcblock agrain2*aamp1 ablk1 = agrain1*aamp1 ablk2 = agrain2*aamp1 ; balance signals cigoto (imaxovr > 1), bal iscal = 1 goto end bal: iscal = sqrt(imaxovr) * .666666 end: aout1 = ablk1/iscal aout2 = ablk2/iscal blueMixerOut aout1, aout2 321 408 Variation (multiple of pitch) of grain frq. pmd 26 29 0.0 1.0 1.0 60 12 112 Variation of phase gdur 134 21 0.0 2.0 0.18470252 120 157 165 Grain duration frpow 316 3 -2.0 2.0 -2.0 80 296 105 Rnd. frq. distribution prpow 449 4 -2.0 2.0 1.148881 80 425 103 Rnd. phase distribution densA 10 187 0.0 100.0 1.0 40.0 400 densB 9 221 0.0 2000.0 100.0 0.0 400 146 257 Num. of grains per second tbFrq1 9 280 0.0 1.0 0.21014585 80 tbFrq2 99 304 0.0 200.0 1.0 0.0 200 135 346 Table change frequency fmd 365 265 0.0 0.5 0.017024606 120 fmd2 334 434 0.0 20.0 1.0 0.0 150 352 466 Variation (in hz) of grain frq. getFrequency i i ipch xin iout = (ipch < 15 ? cpspch(ipch) : ipch) xout iout tieStatus i 0 itie tival if (itie == 0 && p3 < 0) ithen ; this is an initial note within a group of tied notes itiestatus = 0 elseif (p3 < 0 && itie == 1) ithen ; this is a middle note within a group of tied notes itiestatus = 1 elseif (p3 > 0 && itie == 1) ithen ; this is an end note out of a group of tied notes itiestatus = 2 elseif (p3 > 0 && itie == 0) ithen ; this note is a standalone note itiestatus = -1 endif xout itiestatus