Sequence A026272 no. 3 - Casey Mongoven sr = 44100 kr = 44100 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 iatt = p6 irel = p7 ipvall = p8 ipvalr = p9 iwav1str = p17 iwav2str = p25 if (p10 == 0) goto addtri if (p10 == 1) then kenv linen iamp, iatt, idur, irel awav1 poscil3 kenv, icps, 1 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 sum 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 sum: inumwav = (p10 + p11 + p12 + p13 + p14 + p15 + p16) asigwav1l = (awav1 + awav2 + awav3 + awav4)/inumwav asigwav1r = (awav1 + awav2 + awav3 + awav4)/inumwav if (p18 == 0) goto addtri2 if (p18 == 1) then kenv linen iamp, iatt, idur, irel awav21 poscil3 kenv, icps, 1 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 sum2 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 sum2: inumwav2 = (p18 + p19 + p20 + p21 + p22 + p23 + p24) asigwav2l = (awav21 + awav22 + awav23 + awav24)/inumwav2 asigwav2r = (awav21 + awav22 + awav23 + awav24)/inumwav2 il gauss 0.005 il = il+1 ir gauss 0.005 ir = ir+1 asigl = ((iwav1str*asigwav1l)+(iwav2str*asigwav2l))*il*ipvall asigr = ((iwav1str*asigwav1r)+(iwav2str*asigwav2r))*ir*ipvalr outs asigl, asigr endin #define d1 #345# #define d2 #372# #define d3 #412# #define d4 #470# #define d5 #537# #define d6 #630# #define d7 #735# #define d8 #849# #define d9 #984# #define d10 #1140# #define d11 #1321# #define d12 #1470# #define d13 #1675# #define d14 #1870# #define d15 #2100# #define d16 #2338# #define d17 #2634# #define d18 #2878# #define d19 #3214# #define d20 #3550# #define d21 #3987# #define d22 #4228# #define d23 #4587# #define d24 #4950# #define d25 #5374# #define d26 #5613# #define d27 #6012# #define d28 #6600# #define d29 #7287# #define d30 #7629# #define d31 #8012# #define d32 #8355# #define d33 #8758# #define d34 #9111# #define d35 #9541# #define d36 #10004# #define d37 #10541# #define d38 #10902# #define d39 #11345# #define d40 #11950# #define d41 #12587# #define d42 #13200# #define d43 #13897# #define d44 #14690# #define d45 #15674# #define d46 #16402# #define d47 #17234# #define d48 #18301# #define d49 #19456# #define d50 #20410# #define d51 #21587# #define d52 #23025# #define d53 #24663# #define d54 #26571# #define d55 #28564# i2 0 0.084 $d1 601 .003 .005 0.13514 0.86486 0 0 0 1 0 0 0 1.00000 0 0 1 0 0 0 0 0.00000 i2 0.084 0.084 $d2 569.2753709 .003 .005 0.14865 0.85135 0 0 0 1 0 0 0 0.98148 0 0 1 0 0 0 0 0.01852 i2 0.168 0.084 $d1 601 .003 .005 0.13514 0.86486 0 0 0 1 0 0 0 1.00000 0 0 1 0 0 0 0 0.00000 i2 0.252 0.084 $d3 539.2253709 .003 .005 0.16216 0.83784 0 0 0 1 0 0 0 0.96296 0 0 1 0 0 0 0 0.03704 i2 0.336 0.084 $d2 569.2753709 .003 .005 0.14865 0.85135 0 0 0 1 0 0 0 0.98148 0 0 1 0 0 0 0 0.01852 i2 0.42 0.084 $d4 510.7616024 .003 .005 0.17568 0.82432 0 0 0 1 0 0 0 0.94444 0 0 1 0 0 0 0 0.05556 i2 0.504 0.084 $d5 483.8003338 .003 .005 0.18919 0.81081 0 0 0 1 0 0 0 0.92593 0 0 1 0 0 0 0 0.07407 i2 0.588 0.084 $d3 539.2253709 .003 .005 0.16216 0.83784 0 0 0 1 0 0 0 0.96296 0 0 1 0 0 0 0 0.03704 i2 0.672 0.084 $d6 458.2622537 .003 .005 0.20270 0.79730 0 0 0 1 0 0 0 0.90741 0 0 1 0 0 0 0 0.09259 i2 0.756 0.084 $d7 434.072237 .003 .005 0.21622 0.78378 0 0 0 1 0 0 0 0.88889 0 0 1 0 0 0 0 0.11111 i2 0.84 0.084 $d4 510.7616024 .003 .005 0.17568 0.82432 0 0 0 1 0 0 0 0.94444 0 0 1 0 0 0 0 0.05556 i2 0.924 0.084 $d8 411.1591243 .003 .005 0.22973 0.77027 0 0 0 1 0 0 0 0.87037 0 0 1 0 0 0 0 0.12963 i2 1.008 0.084 $d5 483.8003338 .003 .005 0.18919 0.81081 0 0 0 1 0 0 0 0.92593 0 0 1 0 0 0 0 0.07407 i2 1.092 0.084 $d9 389.4555125 .003 .005 0.24324 0.75676 0 0 0 1 0 0 0 0.85185 0 0 1 0 0 0 0 0.14815 i2 1.176 0.084 $d10 368.8975562 .003 .005 0.25676 0.74324 0 0 0 1 0 0 0 0.83333 0 0 1 0 0 0 0 0.16667 i2 1.26 0.084 $d6 458.2622537 .003 .005 0.20270 0.79730 0 0 0 1 0 0 0 0.90741 0 0 1 0 0 0 0 0.09259 i2 1.344 0.084 $d11 349.4247806 .003 .005 0.27027 0.72973 0 0 0 1 0 0 0 0.81481 0 0 1 0 0 0 0 0.18519 i2 1.428 0.084 $d7 434.072237 .003 .005 0.21622 0.78378 0 0 0 1 0 0 0 0.88889 0 0 1 0 0 0 0 0.11111 i2 1.512 0.084 $d12 330.9799028 .003 .005 0.28378 0.71622 0 0 0 1 0 0 0 0.79630 0 0 1 0 0 0 0 0.20370 i2 1.596 0.084 $d13 313.5086638 .003 .005 0.29730 0.70270 0 0 0 1 0 0 0 0.77778 0 0 1 0 0 0 0 0.22222 i2 1.68 0.084 $d8 411.1591243 .003 .005 0.22973 0.77027 0 0 0 1 0 0 0 0.87037 0 0 1 0 0 0 0 0.12963 i2 1.764 0.084 $d14 296.9596686 .003 .005 0.31081 0.68919 0 0 0 1 0 0 0 0.75926 0 0 1 0 0 0 0 0.24074 i2 1.848 0.084 $d15 281.2842355 .003 .005 0.32432 0.67568 0 0 0 1 0 0 0 0.74074 0 0 1 0 0 0 0 0.25926 i2 1.932 0.084 $d9 389.4555125 .003 .005 0.24324 0.75676 0 0 0 1 0 0 0 0.85185 0 0 1 0 0 0 0 0.14815 i2 2.016 0.084 $d16 266.436252 .003 .005 0.33784 0.66216 0 0 0 1 0 0 0 0.72222 0 0 1 0 0 0 0 0.27778 i2 2.1 0.084 $d10 368.8975562 .003 .005 0.25676 0.74324 0 0 0 1 0 0 0 0.83333 0 0 1 0 0 0 0 0.16667 i2 2.184 0.084 $d17 252.3720402 .003 .005 0.35135 0.64865 0 0 0 1 0 0 0 0.70370 0 0 1 0 0 0 0 0.29630 i2 2.268 0.084 $d18 239.0502276 .003 .005 0.36486 0.63514 0 0 0 1 0 0 0 0.68519 0 0 1 0 0 0 0 0.31481 i2 2.352 0.084 $d11 349.4247806 .003 .005 0.27027 0.72973 0 0 0 1 0 0 0 0.81481 0 0 1 0 0 0 0 0.18519 i2 2.436 0.084 $d19 226.4316256 .003 .005 0.37838 0.62162 0 0 0 1 0 0 0 0.66667 0 0 1 0 0 0 0 0.33333 i2 2.52 0.084 $d20 214.4791143 .003 .005 0.39189 0.60811 0 0 0 1 0 0 0 0.64815 0 0 1 0 0 0 0 0.35185 i2 2.604 0.084 $d12 330.9799028 .003 .005 0.28378 0.71622 0 0 0 1 0 0 0 0.79630 0 0 1 0 0 0 0 0.20370 i2 2.688 0.084 $d21 203.157533 .003 .005 0.40541 0.59459 0 0 0 1 0 0 0 0.62963 0 0 1 0 0 0 0 0.37037 i2 2.772 0.084 $d13 313.5086638 .003 .005 0.29730 0.70270 0 0 0 1 0 0 0 0.77778 0 0 1 0 0 0 0 0.22222 i2 2.856 0.084 $d22 192.4335773 .003 .005 0.41892 0.58108 0 0 0 1 0 0 0 0.61111 0 0 1 0 0 0 0 0.38889 i2 2.94 0.084 $d23 182.2757006 .003 .005 0.43243 0.56757 0 0 0 1 0 0 0 0.59259 0 0 1 0 0 0 0 0.40741 i2 3.024 0.084 $d14 296.9596686 .003 .005 0.31081 0.68919 0 0 0 1 0 0 0 0.75926 0 0 1 0 0 0 0 0.24074 i2 3.108 0.084 $d24 172.6540217 .003 .005 0.44595 0.55405 0 0 0 1 0 0 0 0.57407 0 0 1 0 0 0 0 0.42593 i2 3.192 0.084 $d15 281.2842355 .003 .005 0.32432 0.67568 0 0 0 1 0 0 0 0.74074 0 0 1 0 0 0 0 0.25926 i2 3.276 0.084 $d25 163.5402367 .003 .005 0.45946 0.54054 0 0 0 1 0 0 0 0.55556 0 0 1 0 0 0 0 0.44444 i2 3.36 0.084 $d26 154.9075356 .003 .005 0.47297 0.52703 0 0 0 1 0 0 0 0.53704 0 0 1 0 0 0 0 0.46296 i2 3.444 0.084 $d16 266.436252 .003 .005 0.33784 0.66216 0 0 0 1 0 0 0 0.72222 0 0 1 0 0 0 0 0.27778 i2 3.528 0.084 $d27 146.7305238 .003 .005 0.48649 0.51351 0 0 0 1 0 0 0 0.51852 0 0 1 0 0 0 0 0.48148 i2 3.612 0.084 $d28 138.985147 .003 .005 0.50000 0.50000 0 0 0 1 0 0 0 0.50000 0 0 1 0 0 0 0 0.50000 i2 3.696 0.084 $d17 252.3720402 .003 .005 0.35135 0.64865 0 0 0 1 0 0 0 0.70370 0 0 1 0 0 0 0 0.29630 i2 3.78 0.084 $d29 131.6486208 .003 .005 0.51351 0.48649 0 0 0 1 0 0 0 0.48148 0 0 1 0 0 0 0 0.51852 i2 3.864 0.084 $d18 239.0502276 .003 .005 0.36486 0.63514 0 0 0 1 0 0 0 0.68519 0 0 1 0 0 0 0 0.31481 i2 3.948 0.084 $d30 124.6993635 .003 .005 0.52703 0.47297 0 0 0 1 0 0 0 0.46296 0 0 1 0 0 0 0 0.53704 i2 4.032 0.084 $d31 118.1169324 .003 .005 0.54054 0.45946 0 0 0 1 0 0 0 0.44444 0 0 1 0 0 0 0 0.55556 i2 4.116 0.084 $d19 226.4316256 .003 .005 0.37838 0.62162 0 0 0 1 0 0 0 0.66667 0 0 1 0 0 0 0 0.33333 i2 4.2 0.084 $d32 111.8819643 .003 .005 0.55405 0.44595 0 0 0 1 0 0 0 0.42593 0 0 1 0 0 0 0 0.57407 i2 4.284 0.084 $d20 214.4791143 .003 .005 0.39189 0.60811 0 0 0 1 0 0 0 0.64815 0 0 1 0 0 0 0 0.35185 i2 4.368 0.084 $d33 105.9761176 .003 .005 0.56757 0.43243 0 0 0 1 0 0 0 0.40741 0 0 1 0 0 0 0 0.59259 i2 4.452 0.084 $d34 100.3820194 .003 .005 0.58108 0.41892 0 0 0 1 0 0 0 0.38889 0 0 1 0 0 0 0 0.61111 i2 4.536 0.084 $d21 203.157533 .003 .005 0.40541 0.59459 0 0 0 1 0 0 0 0.62963 0 0 1 0 0 0 0 0.37037 i2 4.62 0.084 $d35 95.08321354 .003 .005 0.59459 0.40541 0 0 0 1 0 0 0 0.37037 0 0 1 0 0 0 0 0.62963 i2 4.704 0.084 $d36 90.06411257 .003 .005 0.60811 0.39189 0 0 0 1 0 0 0 0.35185 0 0 1 0 0 0 0 0.64815 i2 4.788 0.084 $d22 192.4335773 .003 .005 0.41892 0.58108 0 0 0 1 0 0 0 0.61111 0 0 1 0 0 0 0 0.38889 i2 4.872 0.084 $d37 85.30995189 .003 .005 0.62162 0.37838 0 0 0 1 0 0 0 0.33333 0 0 1 0 0 0 0 0.66667 i2 4.956 0.084 $d23 182.2757006 .003 .005 0.43243 0.56757 0 0 0 1 0 0 0 0.59259 0 0 1 0 0 0 0 0.40741 i2 5.04 0.084 $d38 80.80674626 .003 .005 0.63514 0.36486 0 0 0 1 0 0 0 0.31481 0 0 1 0 0 0 0 0.68519 i2 5.124 0.084 $d39 76.54124867 .003 .005 0.64865 0.35135 0 0 0 1 0 0 0 0.29630 0 0 1 0 0 0 0 0.70370 i2 5.208 0.084 $d24 172.6540217 .003 .005 0.44595 0.55405 0 0 0 1 0 0 0 0.57407 0 0 1 0 0 0 0 0.42593 i2 5.292 0.084 $d40 72.50091136 .003 .005 0.66216 0.33784 0 0 0 1 0 0 0 0.27778 0 0 1 0 0 0 0 0.72222 i2 5.376 0.084 $d41 68.67384892 .003 .005 0.67568 0.32432 0 0 0 1 0 0 0 0.25926 0 0 1 0 0 0 0 0.74074 i2 5.46 0.084 $d25 163.5402367 .003 .005 0.45946 0.54054 0 0 0 1 0 0 0 0.55556 0 0 1 0 0 0 0 0.44444 i2 5.544 0.084 $d42 65.04880335 .003 .005 0.68919 0.31081 0 0 0 1 0 0 0 0.24074 0 0 1 0 0 0 0 0.75926 i2 5.628 0.084 $d26 154.9075356 .003 .005 0.47297 0.52703 0 0 0 1 0 0 0 0.53704 0 0 1 0 0 0 0 0.46296 i2 5.712 0.084 $d43 61.61511091 .003 .005 0.70270 0.29730 0 0 0 1 0 0 0 0.22222 0 0 1 0 0 0 0 0.77778 i2 5.796 0.084 $d44 58.36267074 .003 .005 0.71622 0.28378 0 0 0 1 0 0 0 0.20370 0 0 1 0 0 0 0 0.79630 i2 5.88 0.084 $d27 146.7305238 .003 .005 0.48649 0.51351 0 0 0 1 0 0 0 0.51852 0 0 1 0 0 0 0 0.48148 i2 5.964 0.084 $d45 55.2819152 .003 .005 0.72973 0.27027 0 0 0 1 0 0 0 0.18519 0 0 1 0 0 0 0 0.81481 i2 6.048 0.084 $d28 138.985147 .003 .005 0.50000 0.50000 0 0 0 1 0 0 0 0.50000 0 0 1 0 0 0 0 0.50000 i2 6.132 0.084 $d46 52.36378166 .003 .005 0.74324 0.25676 0 0 0 1 0 0 0 0.16667 0 0 1 0 0 0 0 0.83333 i2 6.216 0.084 $d47 49.5996859 .003 .005 0.75676 0.24324 0 0 0 1 0 0 0 0.14815 0 0 1 0 0 0 0 0.85185 i2 6.3 0.084 $d29 131.6486208 .003 .005 0.51351 0.48649 0 0 0 1 0 0 0 0.48148 0 0 1 0 0 0 0 0.51852 i2 6.384 0.084 $d48 46.98149682 .003 .005 0.77027 0.22973 0 0 0 1 0 0 0 0.12963 0 0 1 0 0 0 0 0.87037 i2 6.468 0.084 $d49 44.50151252 .003 .005 0.78378 0.21622 0 0 0 1 0 0 0 0.11111 0 0 1 0 0 0 0 0.88889 i2 6.552 0.084 $d30 124.6993635 .003 .005 0.52703 0.47297 0 0 0 1 0 0 0 0.46296 0 0 1 0 0 0 0 0.53704 i2 6.636 0.084 $d50 42.15243768 .003 .005 0.79730 0.20270 0 0 0 1 0 0 0 0.09259 0 0 1 0 0 0 0 0.90741 i2 6.72 0.084 $d31 118.1169324 .003 .005 0.54054 0.45946 0 0 0 1 0 0 0 0.44444 0 0 1 0 0 0 0 0.55556 i2 6.804 0.084 $d51 39.92736205 .003 .005 0.81081 0.18919 0 0 0 1 0 0 0 0.07407 0 0 1 0 0 0 0 0.92593 i2 6.888 0.084 $d52 37.81974017 .003 .005 0.82432 0.17568 0 0 0 1 0 0 0 0.05556 0 0 1 0 0 0 0 0.94444 i2 6.972 0.084 $d32 111.8819643 .003 .005 0.55405 0.44595 0 0 0 1 0 0 0 0.42593 0 0 1 0 0 0 0 0.57407 i2 7.056 0.084 $d53 35.82337207 .003 .005 0.83784 0.16216 0 0 0 1 0 0 0 0.03704 0 0 1 0 0 0 0 0.96296 i2 7.14 0.084 $d54 33.93238506 .003 .005 0.85135 0.14865 0 0 0 1 0 0 0 0.01852 0 0 1 0 0 0 0 0.98148 i2 7.224 0.084 $d33 105.9761176 .003 .005 0.56757 0.43243 0 0 0 1 0 0 0 0.40741 0 0 1 0 0 0 0 0.59259 i2 7.308 0.084 $d55 32.14121646 .003 .005 0.86486 0.13514 0 0 0 1 0 0 0 0.00000 0 0 1 0 0 0 0 1.00000 i2 7.392 0.084 $d34 100.3820194 .003 .005 0.58108 0.41892 0 0 0 1 0 0 0 0.38889 0 0 1 0 0 0 0 0.61111