Max Binary Fibonacci Reps Density no. 2 - Casey Mongoven sr = 96000 kr = 96000 ksmps = 1 nchnls = 2 gisin ftgen 1,0,2048,10,1 gitri ftgen 2,0,2048,9,1,1,0,3,.111111,180,5,.04,0,7,.020408,180,9,.012346,0,11,.008264,180,13,.005917,0,15,.004444,180,17,.00346,0,19,.002770,180,21,.002268,0,23,.001890,180,25,.0016,0,27,.001372,180,29,.001189,0,31,.001041,180,33,.000918,0,35,.000816,180,37,.00073,0,39,.000657,180,41,.000595,0,43,.000541,180,45,.000494,0,47,.000453,180,49,.000416,0,51,.000384,180,53,.000356,0,55,.000331,180,57,.000308,0,59,.000287,180,61,.000269,0,63,.000252,180,65,.000237,0,67,.000223,180,69,.00021,0,71,.000198,180,73,.000188,0,75,.000178,180,77,.000169,0,79,.000160,180,81,.000152,0,83,.000145,180,85,.000138,0,87,.000132,180,89,.000126,0,91,.000121,180,93,.000116,0,95,.000111,180,97,.000106,0,99,.000102,180,101,.000098,0,103,.000094,180,105,.000091,0,107,.000087,180,109,.000084,0,111,.000081,180,113,.000078,0,115,.000076,180,117,.000073,0,119,.000071,180,121,.000068,0,123,.000066,180,125,.000064,0,127,.000062,180 gisqu ftgen 3,0,2048,10,1,0,.333333,0,.2,0,.142857,0,.111111,0,.090909,0,.076923,0,.066667,0,.058824,0,.052632,0,.047619,0,.043478,0,.04,0,.037037,0,.034483,0,.032258,0,.030303,0,.028571,0,.027027,0,.025641,0,.02439,0,.023256,0,.022222,0,.021277,0,.020408,0,.019608,0,.018868,0,.018182,0,.017544,0,.016949,0,.016393,0,.015873,0,.015385,0,.014925,0,.014493,0,.014085,0,.013699,0,.013333,0,.012987,0,.012658,0,.012346,0,.012048,0,.011765,0,.011494,0,.011236,0,.010989,0,.010753,0,.010526,0,.010309,0,.010101,0,.009901,0,.009709,0,.009524,0,.009346,0,.009174,0,.009009,0,.00885,0,.008696,0,.008547,0,.008403,0,.008264,0,.00813,0,.008,0,.007874 gisaw ftgen 4,0,2048,10,1,.5,.333333,.25,.2,.166667,.142857,.125,.111111,.1,.090909,.083333,.076923,.071429,.066667,.0625,.058824,.055556,.052632,.05,.047619,.045455,.043478,.041667,.04,.038462,.037037,.035714,.034483,.033333,.032258,.03125,.030303,.029412,.028571,.027778,.027027,.026316,.025641,.025,.02439,.02381,.023256,.022727,.022222,.021739,.021277,.020833,.020408,.02,.019608,.019231,.018868,.018519,.018182,.017857,.017544,.017241,.016949,.016667,.016393,.016129,.015873,.015625,.015385,.015152,.014925,.014706,.014493,.014286,.014085,.013889,.013699,.013514,.013333,.013158,.012987,.012821,.012658,.0125,.012346,.012195,.012048,.011905,.011765,.011628,.011494,.011364,.011236,.011111,.010989,.01087,.010753,.010638,.010526,.010417,.010309,.010204,.010101,.01,.009901,.009804,.009709,.009615,.009524,.009434,.009346,.009259,.009174,.009091,.009009,.008929,.00885,.008772,.008696,.008621,.008547,.008475,.008403,.008333,.008264,.008197,.00813,.008065,.008,.007937,.007874,.007813 instr 2 idur = p3 iamp = p4 icps = p5 irel = p6 iatt = p7 ipvall = p8 ipvalr = p9 iwav1str = p17 iwav2str = p25 if (p10 == 0) goto addtri if (p10 == 1) then ilastp = (sr/2)/p5-((sr/2)%p5)/p5 gitbl ftgen 5,0,2048,30,1,1,ilastp kenv linen iamp, iatt, idur, irel awav1 poscil3 kenv, icps, 5 else awav1 = 0 endif addtri: if (p11 == 0) goto addsqu if (p11 == 1) then ilastp = (sr/2)/p5-((sr/2)%p5)/p5 gitbl ftgen 6,0,2048,30,2,1,ilastp kenv linen iamp, iatt, idur, irel awav2 poscil3 kenv, icps, 6 else awav2 = 0 endif addsqu: if (p12 == 0) goto addsaw if (p12 == 1) then ilastp = (sr/2)/p5-((sr/2)%p5)/p5 gitbl ftgen 7,0,2048,30,3,1,ilastp kenv linen iamp, iatt, idur, irel awav3 poscil3 kenv, icps, 7 else awav3 = 0 endif addsaw: if (p13 == 0) goto addbrn if (p13 == 1) then ilastp = (sr/2)/p5-((sr/2)%p5)/p5 gitbl ftgen 8,0,2048,30,4,1,ilastp kenv linen iamp, iatt, idur, irel awav4 poscil3 kenv, icps, 8 else awav4 = 0 endif addbrn: if (p14 == 0) goto addpnk if (p14 == 1) then kenv linen iamp, iatt, idur, irel abrownl noise kenv, .995 abrownr noise kenv, .995 else abrownl = 0 abrownr = 0 endif addpnk: if (p15 == 0) goto addwht if (p15 == 1) then kenv linen iamp, iatt, idur, irel awhitelp noise kenv, 0 awhiterp noise kenv, 0 apinkl pinkish awhitelp, 1 apinkr pinkish awhiterp, 1 else apinkl = 0 apinkr = 0 endif addwht: if (p16 == 0) goto sum if (p16 == 1) then kenv linen iamp, iatt, idur, irel awhitel noise kenv, 0 awhiter noise kenv, 0 else awhitel = 0 awhiter = 0 endif sum: inumwav = (p10 + p11 + p12 + p13 + p14 + p15 + p16) asigwav1l = (awav1 + awav2 + awav3 + awav4 + abrownl + apinkl + awhitel)/inumwav asigwav1r = (awav1 + awav2 + awav3 + awav4 + abrownr + apinkr + awhiter)/inumwav if (p18 == 0) goto addtri2 if (p18 == 1) then ilastp = (sr/2)/p5-((sr/2)%p5)/p5 gitbl ftgen 9,0,2048,30,1,1,ilastp kenv linen iamp, iatt, idur, irel awav21 poscil3 kenv, icps, 9 else awav21 = 0 endif addtri2: if (p19 == 0) goto addsqu2 if (p19 == 1) then ilastp = (sr/2)/p5-((sr/2)%p5)/p5 gitbl ftgen 10,0,2048,30,2,1,ilastp kenv linen iamp, iatt, idur, irel awav22 poscil3 kenv, icps, 10 else awav22 = 0 endif addsqu2: if (p20 == 0) goto addsaw2 if (p20 == 1) then ilastp = (sr/2)/p5-((sr/2)%p5)/p5 gitbl ftgen 11,0,2048,30,3,1,ilastp kenv linen iamp, iatt, idur, irel awav23 poscil3 kenv, icps, 11 else awav23 = 0 endif addsaw2: if (p21 == 0) goto addbrn2 if (p21 == 1) then ilastp = (sr/2)/p5-((sr/2)%p5)/p5 gitbl ftgen 12,0,2048,30,4,1,ilastp kenv linen iamp, iatt, idur, irel awav24 poscil3 kenv, icps, 12 else awav24 = 0 endif addbrn2: if (p22 == 0) goto addpnk2 if (p22 == 1) then kenv linen iamp, iatt, idur, irel abrown2l noise kenv, .995 abrown2r noise kenv, .995 else abrown2l = 0 abrown2r = 0 endif addpnk2: if (p23 == 0) goto addwht2 if (p23 == 1) then kenv linen iamp, iatt, idur, irel awhite2lp noise kenv, 0 awhite2rp noise kenv, 0 apink2l pinkish awhite2lp, 1 apink2r pinkish awhite2rp, 1 else apink2l = 0 apink2r = 0 endif addwht2: if (p24 == 0) goto sum2 if (p24 == 1) then kenv linen iamp, iatt, idur, irel awhite2l noise kenv, 0 awhite2r noise kenv, 0 else awhite2l = 0 awhite2r = 0 endif sum2: inumwav2 = (p18 + p19 + p20 + p21 + p22 + p23 + p24) asigwav2l = (awav21 + awav22 + awav23 + awav24 + abrown2l + apink2l + awhite2l)/inumwav2 asigwav2r = (awav21 + awav22 + awav23 + awav24 + abrown2r + apink2r + awhite2r)/inumwav2 il gauss .005 il = il+1 ir gauss .005 ir = ir+1 asigl = ((iwav1str*asigwav1l)+(iwav2str*asigwav2l))*il*ipvall asigr = ((iwav1str*asigwav1r)+(iwav2str*asigwav2r))*ir*ipvalr if ((p10 + p11 + p12 + p13 + p18 + p19 + p20 + p21) == 0) then asigl = ((iwav1str*asigwav1l)+(iwav2str*asigwav2l))*ipvall asigr = ((iwav1str*asigwav1r)+(iwav2str*asigwav2r))*ipvalr endif outs asigl, asigr endin i2 0 .07 7331.0000 2442.000 .008 .005 .10182 .91380 0 0 1 0 0 0 0 1.0000 0 0 0 1 0 0 0 .00000 ;1 i2 .07 .07 7331.0000 2442.000 .008 .005 .10182 .91380 0 0 1 0 0 0 0 1.0000 0 0 0 1 0 0 0 .00000 ;1 i2 .14 .07 7305.0802 1509.239 .008 .005 .22961 .78102 0 0 1 0 0 0 0 .83333 0 0 0 1 0 0 0 .16667 ;2 i2 .21 .07 7305.0802 1509.239 .008 .005 .22961 .78102 0 0 1 0 0 0 0 .83333 0 0 0 1 0 0 0 .16667 ;2 i2 .28 .07 7305.0802 1509.239 .008 .005 .22961 .78102 0 0 1 0 0 0 0 .83333 0 0 0 1 0 0 0 .16667 ;2 i2 .35 .07 7728.0696 932.7610 .008 .005 .36351 .64124 0 0 1 0 0 0 0 .66667 0 0 0 1 0 0 0 .33333 ;3 i2 .42 .07 7305.0802 1509.239 .008 .005 .22961 .78102 0 0 1 0 0 0 0 .83333 0 0 0 1 0 0 0 .16667 ;2 i2 .49 .07 7728.0696 932.7610 .008 .005 .36351 .64124 0 0 1 0 0 0 0 .66667 0 0 0 1 0 0 0 .33333 ;3 i2 .56 .07 7728.0696 932.7610 .008 .005 .36351 .64124 0 0 1 0 0 0 0 .66667 0 0 0 1 0 0 0 .33333 ;3 i2 .63 .07 7728.0696 932.7610 .008 .005 .36351 .64124 0 0 1 0 0 0 0 .66667 0 0 0 1 0 0 0 .33333 ;3 i2 .70 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 .77 .07 7728.0696 932.7610 .008 .005 .36351 .64124 0 0 1 0 0 0 0 .66667 0 0 0 1 0 0 0 .33333 ;3 i2 .84 .07 7728.0696 932.7610 .008 .005 .36351 .64124 0 0 1 0 0 0 0 .66667 0 0 0 1 0 0 0 .33333 ;3 i2 .91 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 .98 .07 7728.0696 932.7610 .008 .005 .36351 .64124 0 0 1 0 0 0 0 .66667 0 0 0 1 0 0 0 .33333 ;3 i2 1.05 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 1.12 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 1.19 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 1.26 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 1.33 .07 7728.0696 932.7610 .008 .005 .36351 .64124 0 0 1 0 0 0 0 .66667 0 0 0 1 0 0 0 .33333 ;3 i2 1.40 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 1.47 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 1.54 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 1.61 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 1.68 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 1.75 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 1.82 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 1.89 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 1.96 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 2.03 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 2.10 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 2.17 .07 6063.6356 220.1950 .008 .005 .77465 .22556 0 0 1 0 0 0 0 .16667 0 0 0 1 0 0 0 .83333 ;6 i2 2.24 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 2.31 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 2.38 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 2.45 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 2.52 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 2.59 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 2.66 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 2.73 .07 6063.6356 220.1950 .008 .005 .77465 .22556 0 0 1 0 0 0 0 .16667 0 0 0 1 0 0 0 .83333 ;6 i2 2.80 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 2.87 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 2.94 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 3.01 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 3.08 .07 6063.6356 220.1950 .008 .005 .77465 .22556 0 0 1 0 0 0 0 .16667 0 0 0 1 0 0 0 .83333 ;6 i2 3.15 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 3.22 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 3.29 .07 6063.6356 220.1950 .008 .005 .77465 .22556 0 0 1 0 0 0 0 .16667 0 0 0 1 0 0 0 .83333 ;6 i2 3.36 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5 i2 3.43 .07 6063.6356 220.1950 .008 .005 .77465 .22556 0 0 1 0 0 0 0 .16667 0 0 0 1 0 0 0 .83333 ;6 i2 3.50 .07 6063.6356 220.1950 .008 .005 .77465 .22556 0 0 1 0 0 0 0 .16667 0 0 0 1 0 0 0 .83333 ;6 i2 3.57 .07 6063.6356 220.1950 .008 .005 .77465 .22556 0 0 1 0 0 0 0 .16667 0 0 0 1 0 0 0 .83333 ;6 i2 3.64 .07 5003.2857 136.0880 .008 .005 .93187 .06813 0 0 1 0 0 0 0 .00000 0 0 0 1 0 0 0 1.0000 ;7 i2 3.71 .07 7404.0000 576.4780 .008 .005 .50000 .50000 0 0 1 0 0 0 0 .50000 0 0 0 1 0 0 0 .50000 ;4 i2 3.78 .07 7091.8740 356.2830 .008 .005 .63187 .36767 0 0 1 0 0 0 0 .33333 0 0 0 1 0 0 0 .66667 ;5