Sequence A026272 no. 9 - 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 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 pan1 # 0.09567 # #define pan2 # 0.14517 # #define pan3 # 0.18957 # #define pan4 # 0.22938 # #define pan5 # 0.26508 # #define pan6 # 0.29709 # #define pan7 # 0.32588 # #define pan8 # 0.3518 # #define pan9 # 0.37512 # #define pan10 # 0.39612 # #define pan11 # 0.41502 # #define pan12 # 0.43204 # #define pan13 # 0.44737 # #define pan14 # 0.46122 # #define pan15 # 0.47374 # #define pan16 # 0.48505 # #define pan17 # 0.49527 # #define pan18 # 0.50471 # #define pan19 # 0.51481 # #define pan20 # 0.52588 # #define pan21 # 0.53801 # #define pan22 # 0.55131 # #define pan23 # 0.5659 # #define pan24 # 0.58188 # #define pan25 # 0.5994 # #define pan26 # 0.61861 # #define pan27 # 0.63967 # #define pan28 # 0.66275 # #define pan29 # 0.68805 # #define pan30 # 0.71579 # #define pan31 # 0.74619 # #define pan32 # 0.77952 # #define pan33 # 0.81606 # #define pan34 # 0.85611 # #define pan10001 # 0.90012 # #define pan10002 # 0.87722 # #define pan10003 # 0.82932 # #define pan10004 # 0.7799 # #define pan10005 # 0.73118 # #define pan10006 # 0.69944 # #define pan10007 # 0.67109 # #define pan10008 # 0.64571 # #define pan10009 # 0.62286 # #define pan10010 # 0.6023 # #define pan10011 # 0.58379 # #define pan10012 # 0.56713 # #define pan10013 # 0.5521 # #define pan10014 # 0.53847 # #define pan10015 # 0.52611 # #define pan10016 # 0.5149 # #define pan10017 # 0.50473 # #define pan10018 # 0.49528 # #define pan10019 # 0.48512 # #define pan10020 # 0.47393 # #define pan10021 # 0.46161 # #define pan10022 # 0.44803 # #define pan10023 # 0.43308 # #define pan10024 # 0.41661 # #define pan10025 # 0.39847 # #define pan10026 # 0.37849 # #define pan10027 # 0.35649 # #define pan10028 # 0.33225 # #define pan10029 # 0.30555 # #define pan10030 # 0.27614 # #define pan10031 # 0.24375 # #define pan10032 # 0.20808 # #define pan10033 # 0.16878 # #define pan10034 # 0.1255 # #define d1 # 2119.67 # #define d2 # 2238.31 # #define d3 # 2366.29 # #define d4 # 2510.25 # #define d5 # 2669.57 # #define d6 # 2844.14 # #define d7 # 3025.16 # #define d8 # 3236.68 # #define d9 # 3439.68 # #define d10 # 3619.45 # #define d11 # 3808.76 # #define d12 # 4000.71 # #define d13 # 4181.19 # #define d14 # 4371.23 # #define d15 # 4555.85 # #define d16 # 4733.26 # #define d17 # 4922.97 # #define d18 # 5511.62 # #define d19 # 6089.19 # #define d20 # 6668.19 # #define d21 # 7261.49 # #define d22 # 8117.57 # #define d23 # 8991.72 # #define d24 # 9870.35 # #define d25 # 10795.17 # #define d26 # 13601.03 # #define d27 # 16434.55 # #define d28 # 19388.84 # #define d29 # 22475.35 # #define d30 # 25755.44 # #define d31 # 29077.72 # #define d32 # 32743.57 # #define d33 # 36214.48 # #define d34 # 38199.42 # i2 0 0.073 $d1 21.5 0.005 0.008 $pan10001 $pan1 0 0 1 0 0 0 0 1.00000 1 0 0 0 0 0 0 0.00000 i2 0.073 0.073 $d2 24.63680773 0.005 0.008 $pan10002 $pan2 0 0 1 0 0 0 0 0.96970 1 0 0 0 0 0 0 0.03030 i2 0.146 0.073 $d1 21.5 0.005 0.008 $pan10001 $pan1 0 0 1 0 0 0 0 1.00000 1 0 0 0 0 0 0 0.00000 i2 0.219 0.073 $d3 28.23126953 0.005 0.008 $pan10003 $pan3 0 0 1 0 0 0 0 0.93939 1 0 0 0 0 0 0 0.06061 i2 0.292 0.073 $d2 24.63680773 0.005 0.008 $pan10002 $pan2 0 0 1 0 0 0 0 0.96970 1 0 0 0 0 0 0 0.03030 i2 0.365 0.073 $d4 32.35015625 0.005 0.008 $pan10004 $pan4 0 0 1 0 0 0 0 0.90909 1 0 0 0 0 0 0 0.09091 i2 0.438 0.073 $d5 37.06998043 0.005 0.008 $pan10005 $pan5 0 0 1 0 0 0 0 0.87879 1 0 0 0 0 0 0 0.12121 i2 0.511 0.073 $d3 28.23126953 0.005 0.008 $pan10003 $pan3 0 0 1 0 0 0 0 0.93939 1 0 0 0 0 0 0 0.06061 i2 0.584 0.073 $d6 42.47841769 0.005 0.008 $pan10006 $pan6 0 0 1 0 0 0 0 0.84848 1 0 0 0 0 0 0 0.15152 i2 0.657 0.073 $d7 48.67593531 0.005 0.008 $pan10007 $pan7 0 0 1 0 0 0 0 0.81818 1 0 0 0 0 0 0 0.18182 i2 0.73 0.073 $d4 32.35015625 0.005 0.008 $pan10004 $pan4 0 0 1 0 0 0 0 0.90909 1 0 0 0 0 0 0 0.09091 i2 0.803 0.073 $d8 55.77765856 0.005 0.008 $pan10008 $pan8 0 0 1 0 0 0 0 0.78788 1 0 0 0 0 0 0 0.21212 i2 0.876 0.073 $d5 37.06998043 0.005 0.008 $pan10005 $pan5 0 0 1 0 0 0 0 0.87879 1 0 0 0 0 0 0 0.12121 i2 0.949 0.073 $d9 63.91550927 0.005 0.008 $pan10009 $pan9 0 0 1 0 0 0 0 0.75758 1 0 0 0 0 0 0 0.24242 i2 1.022 0.073 $d10 73.2406564 0.005 0.008 $pan10010 $pan10 0 0 1 0 0 0 0 0.72727 1 0 0 0 0 0 0 0.27273 i2 1.095 0.073 $d6 42.47841769 0.005 0.008 $pan10006 $pan6 0 0 1 0 0 0 0 0.84848 1 0 0 0 0 0 0 0.15152 i2 1.168 0.073 $d11 83.92632416 0.005 0.008 $pan10011 $pan11 0 0 1 0 0 0 0 0.69697 1 0 0 0 0 0 0 0.30303 i2 1.241 0.073 $d7 48.67593531 0.005 0.008 $pan10007 $pan7 0 0 1 0 0 0 0 0.81818 1 0 0 0 0 0 0 0.18182 i2 1.314 0.073 $d12 96.17100983 0.005 0.008 $pan10012 $pan12 0 0 1 0 0 0 0 0.66667 1 0 0 0 0 0 0 0.33333 i2 1.387 0.073 $d13 110.2021711 0.005 0.008 $pan10013 $pan13 0 0 1 0 0 0 0 0.63636 1 0 0 0 0 0 0 0.36364 i2 1.46 0.073 $d8 55.77765856 0.005 0.008 $pan10008 $pan8 0 0 1 0 0 0 0 0.78788 1 0 0 0 0 0 0 0.21212 i2 1.533 0.073 $d14 126.2804511 0.005 0.008 $pan10014 $pan14 0 0 1 0 0 0 0 0.60606 1 0 0 0 0 0 0 0.39394 i2 1.606 0.073 $d15 144.7045207 0.005 0.008 $pan10015 $pan15 0 0 1 0 0 0 0 0.57576 1 0 0 0 0 0 0 0.42424 i2 1.679 0.073 $d9 63.91550927 0.005 0.008 $pan10009 $pan9 0 0 1 0 0 0 0 0.75758 1 0 0 0 0 0 0 0.24242 i2 1.752 0.073 $d16 165.8166257 0.005 0.008 $pan10016 $pan16 0 0 1 0 0 0 0 0.54545 1 0 0 0 0 0 0 0.45455 i2 1.825 0.073 $d10 73.2406564 0.005 0.008 $pan10010 $pan10 0 0 1 0 0 0 0 0.72727 1 0 0 0 0 0 0 0.27273 i2 1.898 0.073 $d17 190.0089454 0.005 0.008 $pan10017 $pan17 0 0 1 0 0 0 0 0.51515 1 0 0 0 0 0 0 0.48485 i2 1.971 0.073 $d18 217.7308769 0.005 0.008 $pan10018 $pan18 0 0 1 0 0 0 0 0.48485 1 0 0 0 0 0 0 0.51515 i2 2.044 0.073 $d11 83.92632416 0.005 0.008 $pan10011 $pan11 0 0 1 0 0 0 0 0.69697 1 0 0 0 0 0 0 0.30303 i2 2.117 0.073 $d19 249.4973837 0.005 0.008 $pan10019 $pan19 0 0 1 0 0 0 0 0.45455 1 0 0 0 0 0 0 0.54545 i2 2.19 0.073 $d20 285.8985614 0.005 0.008 $pan10020 $pan20 0 0 1 0 0 0 0 0.42424 1 0 0 0 0 0 0 0.57576 i2 2.263 0.073 $d12 96.17100983 0.005 0.008 $pan10012 $pan12 0 0 1 0 0 0 0 0.66667 1 0 0 0 0 0 0 0.33333 i2 2.336 0.073 $d21 327.6105994 0.005 0.008 $pan10021 $pan21 0 0 1 0 0 0 0 0.39394 1 0 0 0 0 0 0 0.60606 i2 2.409 0.073 $d13 110.2021711 0.005 0.008 $pan10013 $pan13 0 0 1 0 0 0 0 0.63636 1 0 0 0 0 0 0 0.36364 i2 2.482 0.073 $d22 375.4083417 0.005 0.008 $pan10022 $pan22 0 0 1 0 0 0 0 0.36364 1 0 0 0 0 0 0 0.63636 i2 2.555 0.073 $d23 430.1796806 0.005 0.008 $pan10023 $pan23 0 0 1 0 0 0 0 0.33333 1 0 0 0 0 0 0 0.66667 i2 2.628 0.073 $d14 126.2804511 0.005 0.008 $pan10014 $pan14 0 0 1 0 0 0 0 0.60606 1 0 0 0 0 0 0 0.39394 i2 2.701 0.073 $d24 492.9420501 0.005 0.008 $pan10024 $pan24 0 0 1 0 0 0 0 0.30303 1 0 0 0 0 0 0 0.69697 i2 2.774 0.073 $d15 144.7045207 0.005 0.008 $pan10015 $pan15 0 0 1 0 0 0 0 0.57576 1 0 0 0 0 0 0 0.42424 i2 2.847 0.073 $d25 564.861326 0.005 0.008 $pan10025 $pan25 0 0 1 0 0 0 0 0.27273 1 0 0 0 0 0 0 0.72727 i2 2.92 0.073 $d26 647.2734828 0.005 0.008 $pan10026 $pan26 0 0 1 0 0 0 0 0.24242 1 0 0 0 0 0 0 0.75758 i2 2.993 0.073 $d16 165.8166257 0.005 0.008 $pan10016 $pan16 0 0 1 0 0 0 0 0.54545 1 0 0 0 0 0 0 0.45455 i2 3.066 0.073 $d27 741.7094112 0.005 0.008 $pan10027 $pan27 0 0 1 0 0 0 0 0.21212 1 0 0 0 0 0 0 0.78788 i2 3.139 0.073 $d28 849.923356 0.005 0.008 $pan10028 $pan28 0 0 1 0 0 0 0 0.18182 1 0 0 0 0 0 0 0.81818 i2 3.212 0.073 $d17 190.0089454 0.005 0.008 $pan10017 $pan17 0 0 1 0 0 0 0 0.51515 1 0 0 0 0 0 0 0.48485 i2 3.285 0.073 $d29 973.9255024 0.005 0.008 $pan10029 $pan29 0 0 1 0 0 0 0 0.15152 1 0 0 0 0 0 0 0.84848 i2 3.358 0.073 $d18 217.7308769 0.005 0.008 $pan10018 $pan18 0 0 1 0 0 0 0 0.48485 1 0 0 0 0 0 0 0.51515 i2 3.431 0.073 $d30 1116.019318 0.005 0.008 $pan10030 $pan30 0 0 1 0 0 0 0 0.12121 1 0 0 0 0 0 0 0.87879 i2 3.504 0.073 $d31 1278.844342 0.005 0.008 $pan10031 $pan31 0 0 1 0 0 0 0 0.09091 1 0 0 0 0 0 0 0.90909 i2 3.577 0.073 $d19 249.4973837 0.005 0.008 $pan10019 $pan19 0 0 1 0 0 0 0 0.45455 1 0 0 0 0 0 0 0.54545 i2 3.65 0.073 $d32 1465.425217 0.005 0.008 $pan10032 $pan32 0 0 1 0 0 0 0 0.06061 1 0 0 0 0 0 0 0.93939 i2 3.723 0.073 $d20 285.8985614 0.005 0.008 $pan10020 $pan20 0 0 1 0 0 0 0 0.42424 1 0 0 0 0 0 0 0.57576 i2 3.796 0.073 $d33 1679.227875 0.005 0.008 $pan10033 $pan33 0 0 1 0 0 0 0 0.03030 1 0 0 0 0 0 0 0.96970 i2 3.869 0.073 $d34 1924.22392 0.005 0.008 $pan10034 $pan34 0 0 1 0 0 0 0 0.00000 1 0 0 0 0 0 0 1.00000 i2 3.942 0.073 $d21 327.6105994 0.005 0.008 $pan10021 $pan21 0 0 1 0 0 0 0 0.39394 1 0 0 0 0 0 0 0.60606