Fibonacci Stolarsky Vertical no. 1 - 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 #634# #define d2 #710# #define d3 #811# #define d4 #910# #define d5 #1036# #define d6 #1172# #define d7 #1343# #define d8 #1501# #define d9 #1694# #define d10 #2000# #define d11 #2323# #define d12 #2605# #define d13 #2917# #define d14 #3368# #define d15 #3867# #define d16 #4410# #define d17 #4994# #define d18 #5745# #define d19 #6576# #define d20 #7432# #define d21 #8416# #define d22 #9631# #define d23 #10967# #define d24 #12095# #define d25 #13424# #define d26 #14936# #define d27 #16523# #define d28 #17998# #define d29 #19567# #define d30 #21410# #define d31 #23453# #define d32 #26009# #define d33 #28645# #define d34 #31514# i2 0 0.061 $d1 311.2 0.002 0.003 0.88372 0.11628 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 i2 0.061 0.061 $d1 311.2 0.002 0.003 0.88372 0.11628 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 i2 0.122 0.061 $d1 311.2 0.002 0.003 0.88372 0.11628 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 i2 0.183 0.061 $d2 315.2940282 0.002 0.003 0.86047 0.13953 0 1 0 0 0 0 0 0.9697 0 0 0 1 0 0 0 0.0303 i2 0.244 0.061 $d1 311.2 0.002 0.003 0.88372 0.11628 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 i2 0.305 0.061 $d2 315.2940282 0.002 0.003 0.86047 0.13953 0 1 0 0 0 0 0 0.9697 0 0 0 1 0 0 0 0.0303 i2 0.366 0.061 $d3 319.4419158 0.002 0.003 0.83721 0.16279 0 1 0 0 0 0 0 0.93939 0 0 0 1 0 0 0 0.06061 i2 0.427 0.061 $d1 311.2 0.002 0.003 0.88372 0.11628 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 i2 0.488 0.061 $d4 323.6443715 0.002 0.003 0.81395 0.18605 0 1 0 0 0 0 0 0.90909 0 0 0 1 0 0 0 0.09091 i2 0.549 0.061 $d2 315.2940282 0.002 0.003 0.86047 0.13953 0 1 0 0 0 0 0 0.9697 0 0 0 1 0 0 0 0.0303 i2 0.61 0.061 $d3 319.4419158 0.002 0.003 0.83721 0.16279 0 1 0 0 0 0 0 0.93939 0 0 0 1 0 0 0 0.06061 i2 0.671 0.061 $d5 327.902113 0.002 0.003 0.79070 0.20930 0 1 0 0 0 0 0 0.87879 0 0 0 1 0 0 0 0.12121 i2 0.732 0.061 $d1 311.2 0.002 0.003 0.88372 0.11628 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 i2 0.793 0.061 $d6 332.2158678 0.002 0.003 0.76744 0.23256 0 1 0 0 0 0 0 0.84848 0 0 0 1 0 0 0 0.15152 i2 0.854 0.061 $d4 323.6443715 0.002 0.003 0.81395 0.18605 0 1 0 0 0 0 0 0.90909 0 0 0 1 0 0 0 0.09091 i2 0.915 0.061 $d2 315.2940282 0.002 0.003 0.86047 0.13953 0 1 0 0 0 0 0 0.9697 0 0 0 1 0 0 0 0.0303 i2 0.976 0.061 $d7 336.5863727 0.002 0.003 0.74419 0.25581 0 1 0 0 0 0 0 0.81818 0 0 0 1 0 0 0 0.18182 i2 1.037 0.061 $d3 319.4419158 0.002 0.003 0.83721 0.16279 0 1 0 0 0 0 0 0.93939 0 0 0 1 0 0 0 0.06061 i2 1.098 0.061 $d5 327.902113 0.002 0.003 0.79070 0.20930 0 1 0 0 0 0 0 0.87879 0 0 0 1 0 0 0 0.12121 i2 1.159 0.061 $d8 341.0143742 0.002 0.003 0.72093 0.27907 0 1 0 0 0 0 0 0.78788 0 0 0 1 0 0 0 0.21212 i2 1.22 0.061 $d1 311.2 0.002 0.003 0.88372 0.11628 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 i2 1.281 0.061 $d9 345.5006289 0.002 0.003 0.69767 0.30233 0 1 0 0 0 0 0 0.75758 0 0 0 1 0 0 0 0.24242 i2 1.342 0.061 $d6 332.2158678 0.002 0.003 0.76744 0.23256 0 1 0 0 0 0 0 0.84848 0 0 0 1 0 0 0 0.15152 i2 1.403 0.061 $d4 323.6443715 0.002 0.003 0.81395 0.18605 0 1 0 0 0 0 0 0.90909 0 0 0 1 0 0 0 0.09091 i2 1.464 0.061 $d10 350.045903 0.002 0.003 0.67442 0.32558 0 1 0 0 0 0 0 0.72727 0 0 0 1 0 0 0 0.27273 i2 1.525 0.061 $d2 315.2940282 0.002 0.003 0.86047 0.13953 0 1 0 0 0 0 0 0.9697 0 0 0 1 0 0 0 0.0303 i2 1.586 0.061 $d11 354.650973 0.002 0.003 0.65116 0.34884 0 1 0 0 0 0 0 0.69697 0 0 0 1 0 0 0 0.30303 i2 1.647 0.061 $d7 336.5863727 0.002 0.003 0.74419 0.25581 0 1 0 0 0 0 0 0.81818 0 0 0 1 0 0 0 0.18182 i2 1.708 0.061 $d3 319.4419158 0.002 0.003 0.83721 0.16279 0 1 0 0 0 0 0 0.93939 0 0 0 1 0 0 0 0.06061 i2 1.769 0.061 $d12 359.3166256 0.002 0.003 0.62791 0.37209 0 1 0 0 0 0 0 0.66667 0 0 0 1 0 0 0 0.33333 i2 1.83 0.061 $d5 327.902113 0.002 0.003 0.79070 0.20930 0 1 0 0 0 0 0 0.87879 0 0 0 1 0 0 0 0.12121 i2 1.891 0.061 $d8 341.0143742 0.002 0.003 0.72093 0.27907 0 1 0 0 0 0 0 0.78788 0 0 0 1 0 0 0 0.21212 i2 1.952 0.061 $d13 364.0436577 0.002 0.003 0.60465 0.39535 0 1 0 0 0 0 0 0.63636 0 0 0 1 0 0 0 0.36364 i2 2.013 0.061 $d1 311.2 0.002 0.003 0.88372 0.11628 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 i2 2.074 0.061 $d14 368.8328768 0.002 0.003 0.58140 0.41860 0 1 0 0 0 0 0 0.60606 0 0 0 1 0 0 0 0.39394 i2 2.135 0.061 $d9 345.5006289 0.002 0.003 0.69767 0.30233 0 1 0 0 0 0 0 0.75758 0 0 0 1 0 0 0 0.24242 i2 2.196 0.061 $d6 332.2158678 0.002 0.003 0.76744 0.23256 0 1 0 0 0 0 0 0.84848 0 0 0 1 0 0 0 0.15152 i2 2.257 0.061 $d15 373.685101 0.002 0.003 0.55814 0.44186 0 1 0 0 0 0 0 0.57576 0 0 0 1 0 0 0 0.42424 i2 2.318 0.061 $d4 323.6443715 0.002 0.003 0.81395 0.18605 0 1 0 0 0 0 0 0.90909 0 0 0 1 0 0 0 0.09091 i2 2.379 0.061 $d10 350.045903 0.002 0.003 0.67442 0.32558 0 1 0 0 0 0 0 0.72727 0 0 0 1 0 0 0 0.27273 i2 2.44 0.061 $d16 378.6011593 0.002 0.003 0.53488 0.46512 0 1 0 0 0 0 0 0.54545 0 0 0 1 0 0 0 0.45455 i2 2.501 0.061 $d2 315.2940282 0.002 0.003 0.86047 0.13953 0 1 0 0 0 0 0 0.9697 0 0 0 1 0 0 0 0.0303 i2 2.562 0.061 $d17 383.5818913 0.002 0.003 0.51163 0.48837 0 1 0 0 0 0 0 0.51515 0 0 0 1 0 0 0 0.48485 i2 2.623 0.061 $d11 354.650973 0.002 0.003 0.65116 0.34884 0 1 0 0 0 0 0 0.69697 0 0 0 1 0 0 0 0.30303 i2 2.684 0.061 $d7 336.5863727 0.002 0.003 0.74419 0.25581 0 1 0 0 0 0 0 0.81818 0 0 0 1 0 0 0 0.18182 i2 2.745 0.061 $d18 388.628148 0.002 0.003 0.48837 0.51163 0 1 0 0 0 0 0 0.48485 0 0 0 1 0 0 0 0.51515 i2 2.806 0.061 $d3 319.4419158 0.002 0.003 0.83721 0.16279 0 1 0 0 0 0 0 0.93939 0 0 0 1 0 0 0 0.06061 i2 2.867 0.061 $d19 393.7407912 0.002 0.003 0.46512 0.53488 0 1 0 0 0 0 0 0.45455 0 0 0 1 0 0 0 0.54545 i2 2.928 0.061 $d12 359.3166256 0.002 0.003 0.62791 0.37209 0 1 0 0 0 0 0 0.66667 0 0 0 1 0 0 0 0.33333 i2 2.989 0.061 $d5 327.902113 0.002 0.003 0.79070 0.20930 0 1 0 0 0 0 0 0.87879 0 0 0 1 0 0 0 0.12121 i2 3.05 0.061 $d20 398.9206945 0.002 0.003 0.44186 0.55814 0 1 0 0 0 0 0 0.42424 0 0 0 1 0 0 0 0.57576 i2 3.111 0.061 $d8 341.0143742 0.002 0.003 0.72093 0.27907 0 1 0 0 0 0 0 0.78788 0 0 0 1 0 0 0 0.21212 i2 3.172 0.061 $d13 364.0436577 0.002 0.003 0.60465 0.39535 0 1 0 0 0 0 0 0.63636 0 0 0 1 0 0 0 0.36364 i2 3.233 0.061 $d21 404.1687425 0.002 0.003 0.41860 0.58140 0 1 0 0 0 0 0 0.39394 0 0 0 1 0 0 0 0.60606 i2 3.294 0.061 $d1 311.2 0.002 0.003 0.88372 0.11628 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 i2 3.355 0.061 $d22 409.4858319 0.002 0.003 0.39535 0.60465 0 1 0 0 0 0 0 0.36364 0 0 0 1 0 0 0 0.63636 i2 3.416 0.061 $d14 368.8328768 0.002 0.003 0.58140 0.41860 0 1 0 0 0 0 0 0.60606 0 0 0 1 0 0 0 0.39394 i2 3.477 0.061 $d9 345.5006289 0.002 0.003 0.69767 0.30233 0 1 0 0 0 0 0 0.75758 0 0 0 1 0 0 0 0.24242 i2 3.538 0.061 $d23 414.8728709 0.002 0.003 0.37209 0.62791 0 1 0 0 0 0 0 0.33333 0 0 0 1 0 0 0 0.66667 i2 3.599 0.061 $d6 332.2158678 0.002 0.003 0.76744 0.23256 0 1 0 0 0 0 0 0.84848 0 0 0 1 0 0 0 0.15152 i2 3.66 0.061 $d15 373.685101 0.002 0.003 0.55814 0.44186 0 1 0 0 0 0 0 0.57576 0 0 0 1 0 0 0 0.42424 i2 3.721 0.061 $d24 420.3307797 0.002 0.003 0.34884 0.65116 0 1 0 0 0 0 0 0.30303 0 0 0 1 0 0 0 0.69697 i2 3.782 0.061 $d4 323.6443715 0.002 0.003 0.81395 0.18605 0 1 0 0 0 0 0 0.90909 0 0 0 1 0 0 0 0.09091 i2 3.843 0.061 $d25 425.8604906 0.002 0.003 0.32558 0.67442 0 1 0 0 0 0 0 0.27273 0 0 0 1 0 0 0 0.72727 i2 3.904 0.061 $d10 350.045903 0.002 0.003 0.67442 0.32558 0 1 0 0 0 0 0 0.72727 0 0 0 1 0 0 0 0.27273 i2 3.965 0.061 $d16 378.6011593 0.002 0.003 0.53488 0.46512 0 1 0 0 0 0 0 0.54545 0 0 0 1 0 0 0 0.45455 i2 4.026 0.061 $d26 431.4629484 0.002 0.003 0.30233 0.69767 0 1 0 0 0 0 0 0.24242 0 0 0 1 0 0 0 0.75758 i2 4.087 0.061 $d2 315.2940282 0.002 0.003 0.86047 0.13953 0 1 0 0 0 0 0 0.9697 0 0 0 1 0 0 0 0.0303 i2 4.148 0.061 $d27 437.1391099 0.002 0.003 0.27907 0.72093 0 1 0 0 0 0 0 0.21212 0 0 0 1 0 0 0 0.78788 i2 4.209 0.061 $d17 383.5818913 0.002 0.003 0.51163 0.48837 0 1 0 0 0 0 0 0.51515 0 0 0 1 0 0 0 0.48485 i2 4.27 0.061 $d11 354.650973 0.002 0.003 0.65116 0.34884 0 1 0 0 0 0 0 0.69697 0 0 0 1 0 0 0 0.30303 i2 4.331 0.061 $d28 442.8899448 0.002 0.003 0.25581 0.74419 0 1 0 0 0 0 0 0.18182 0 0 0 1 0 0 0 0.81818 i2 4.392 0.061 $d7 336.5863727 0.002 0.003 0.74419 0.25581 0 1 0 0 0 0 0 0.81818 0 0 0 1 0 0 0 0.18182 i2 4.453 0.061 $d18 388.628148 0.002 0.003 0.48837 0.51163 0 1 0 0 0 0 0 0.48485 0 0 0 1 0 0 0 0.51515 i2 4.514 0.061 $d29 448.7164355 0.002 0.003 0.23256 0.76744 0 1 0 0 0 0 0 0.15152 0 0 0 1 0 0 0 0.84848 i2 4.575 0.061 $d3 319.4419158 0.002 0.003 0.83721 0.16279 0 1 0 0 0 0 0 0.93939 0 0 0 1 0 0 0 0.06061 i2 4.636 0.061 $d30 454.6195773 0.002 0.003 0.20930 0.79070 0 1 0 0 0 0 0 0.12121 0 0 0 1 0 0 0 0.87879 i2 4.697 0.061 $d19 393.7407912 0.002 0.003 0.46512 0.53488 0 1 0 0 0 0 0 0.45455 0 0 0 1 0 0 0 0.54545 i2 4.758 0.061 $d12 359.3166256 0.002 0.003 0.62791 0.37209 0 1 0 0 0 0 0 0.66667 0 0 0 1 0 0 0 0.33333 i2 4.819 0.061 $d31 460.6003786 0.002 0.003 0.18605 0.81395 0 1 0 0 0 0 0 0.09091 0 0 0 1 0 0 0 0.90909 i2 4.88 0.061 $d5 327.902113 0.002 0.003 0.79070 0.20930 0 1 0 0 0 0 0 0.87879 0 0 0 1 0 0 0 0.12121 i2 4.941 0.061 $d32 466.659861 0.002 0.003 0.16279 0.83721 0 1 0 0 0 0 0 0.06061 0 0 0 1 0 0 0 0.93939 i2 5.002 0.061 $d20 398.9206945 0.002 0.003 0.44186 0.55814 0 1 0 0 0 0 0 0.42424 0 0 0 1 0 0 0 0.57576 i2 5.063 0.061 $d8 341.0143742 0.002 0.003 0.72093 0.27907 0 1 0 0 0 0 0 0.78788 0 0 0 1 0 0 0 0.21212 i2 5.124 0.061 $d33 472.7990596 0.002 0.003 0.13953 0.86047 0 1 0 0 0 0 0 0.0303 0 0 0 1 0 0 0 0.9697 i2 5.185 0.061 $d13 364.0436577 0.002 0.003 0.60465 0.39535 0 1 0 0 0 0 0 0.63636 0 0 0 1 0 0 0 0.36364 i2 5.246 0.061 $d21 404.1687425 0.002 0.003 0.41860 0.58140 0 1 0 0 0 0 0 0.39394 0 0 0 1 0 0 0 0.60606 i2 5.307 0.061 $d34 479.0190232 0.002 0.003 0.11628 0.88372 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 1 i2 5.368 0.061 $d1 311.2 0.002 0.003 0.88372 0.11628 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0