sr = 44100 kr = 44100 nchnls = 2 seed 0 ; random values globally seeded from system clock itmp ftgen 1, 0, 0, 1, "b890_sng_cm_bck_rnd_to_nc_nb_vwl.wav", 0, 0, 0 itmp ftgen 2, 0, 0, 1, "b890_sng_close_back_rnd_vwl.wav", 0, 0, 0 instr 1 irnd gauss p6/250 ; random value scaled to amplitude idur = p3 iatt = p4 irel = p5 iamp = p6 + irnd icps = p7 iw1s = p8 ilft = p9 idel = p10 icut = p11 iwet = p12 kenv linen iamp, iatt, idur, irel aw1 lposcil3 kenv, icps/234.71882640587,0,410, 1 aw2 lposcil3 kenv, icps/338.02816901408,0,285, 2 asig sum aw1*iw1s, aw2*(1-iw1s) if (icut==0) goto skipfilt afilt butlp asig, icut asig sum afilt*(iwet), asig*(1-iwet) skipfilt: if (abs(0-idel)*2<1/sr) goto mid kenvd linseg 1, idur-abs(idel)-irel, 1, irel, 0 adel delay asig*kenvd, abs(idel) if (idel<0) goto left goto right left: outs asig*ilft, adel*(1-ilft) goto end mid: outs asig*ilft, asig*(1-ilft) goto end right: outs adel*ilft, asig*(1-ilft) end: endin ;i ent dur att rel amp cps w1 lft del cut wet i1 .25 .078 .0055 .0089 421.571943 118.5 .805 .6825 -.0014 0 1 ;mem:1 ind:0 i1 .328 .078 .00554 .00897 728.343921 125.103779 .788441 .639746 -.001145 0 1 ;mem:2 ind:1 i1 .406 .078 .0055 .0089 421.571943 118.5 .805 .6825 -.0014 0 1 ;mem:1 ind:2 i1 .484 .078 .00558 .00903 1279.636803 132.075573 .749158 .589957 -.000835 0 1 ;mem:3 ind:3 i1 .562 .078 .00554 .00897 728.343921 125.103779 .788441 .639746 -.001145 0 1 ;mem:2 ind:4 i1 .64 .078 .00562 .0091 2369.563383 139.435893 .69 .54875 -.00055 0 1 ;mem:4 ind:5 i1 .718 .078 .00567 .00917 3764.657532 147.206389 .629825 .522893 -.000325 0 1 ;mem:5 ind:6 i1 .796 .078 .00558 .00903 1279.636803 132.075573 .749158 .589957 -.000835 0 1 ;mem:3 ind:7 i1 .874 .078 .00571 .00923 5826.159869 155.40992 .570604 .508799 -.000149 0 1 ;mem:6 ind:8 i1 .952 .078 .00575 .0093 8420.239907 164.070618 .515 .5 0 0 1 ;mem:7 ind:9 i1 1.03 .078 .00562 .0091 2369.563383 139.435893 .69 .54875 -.00055 0 1 ;mem:4 ind:10 i1 1.108 .078 .00579 .00937 11069.193296 173.21396 .464342 .489587 .000149 0 1 ;mem:8 ind:11 i1 1.186 .078 .00567 .00917 3764.657532 147.206389 .629825 .522893 -.000325 0 1 ;mem:5 ind:12 i1 1.264 .078 .00583 .00943 13705.716854 182.866843 .415571 .470799 .000325 0 1 ;mem:9 ind:13 i1 1.342 .078 .00588 .0095 17324.260918 193.057663 .365 .4375 .00055 0 1 ;mem:10 ind:14 i1 1.42 .078 .00571 .00923 5826.159869 155.40992 .570604 .508799 -.000149 0 1 ;mem:6 ind:15 i1 1.498 .078 .00592 .00957 23761.701856 203.816398 .310735 .38669 .000835 0 1 ;mem:11 ind:16 i1 1.576 .078 .00575 .0093 8420.239907 164.070618 .515 .5 0 0 1 ;mem:7 ind:17 i1 1.654 .078 .00596 .00963 34109.67022 215.174696 .256919 .326399 .001145 0 1 ;mem:12 ind:18 i1 1.732 .078 .006 .0097 44951.471956 227.165971 .215 .275 .0014 0 1 ;mem:13 ind:19 i1 1.81 .078 .00579 .00937 11069.193296 173.21396 .464342 .489587 .000149 0 1 ;mem:8 ind:20 i1 + .1 0 0 0 0 0 0 0 0 0;