{
   "code" : "(//evaluate to play\r\n(\r\n\r\n//run each at same time in tandem using synth set below\r\n\r\n~fth = 1.4142135623729;\r\n\r\n~n9 = 1.080059789899; //1 octave range\r\n~nval = ~n9; \r\n\r\nSynthDef(\\gsineicf, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = 0.7, rate = 20,\r\n\ta, b, c, d, e, f, g, u, v, w, x, y, z;\r\n\tvar s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9;\r\n\t#n1,n2,n3,n4,n5,n6,n7,n8,n9=[~nval,~nval,~nval,~nval,~nval,~nval,~nval,~nval,~nval];\r\n\tdseq = Dseq([\r\n\t/*1*/\t[ a , b , c , d , e , f],\r\n\t/*2*/\t[ a = a/~fth*n1, b = b/~fth*n1, c = c/~fth*n1, d = d/~fth*n1, e = e/~fth*n1, f = f/~fth*n1 ],\r\n\t/*3*/\t[ a = a,      b = b*~fth, c = c,      d = d,      e = e,      f = f*~fth  ],\r\n\t/*4*/\t[ a = a*~fth, b = b/~fth, c = c,      d = d,      e = e*~fth, f = f/~fth  ],\r\n\t/*5*/\t[ a = a/~fth, b = b*~fth, c = c,      d = d*~fth, e = e,      f = f*~fth ],\r\n\t/*6*/\t[ a = a*~fth, b = b,      c = c*~fth, d = d/~fth, e = e,      f = f/~fth  ],\r\n\t/*7*/\t[ a = a/~fth, b = b/~fth, c = c/~fth, d = d,      e = e,      f = f ],\r\n\t/*8*/\t[ a = a,      b = b*~fth, c = c,      d = d,      e = e/~fth, f = f ],\r\n\t/*9*/\t[ a = a*~fth, b = b,      c = c,      d = d*~fth, e = e*~fth, f = f*~fth ],\r\n\t/*10*/\t[ a = a,      b = b,      c = c*~fth, d = d/~fth, e = e,      f = f ],\r\n\t/*11*/\t[ a = a/~fth, b = b/~fth, c = c/~fth, d = d*~fth, e = e,      f = f ],\r\n\t/*12*/\t[ a = a*~fth*n2, b = b*~fth*n2, c = c*~fth*n2, d = d/~fth*n2, e = e/~fth*n2, f = f/~fth*n2 ],\r\n\t/*13*/\t[ a = a,      b = b,      c = c,      d = d*~fth, e = e,      f = f*~fth ],\r\n\t/*14*/\t[ a = a,      b = b/~fth, c = c,      d = d,      e = e*~fth, f = f],\r\n\t/*15*/\t[ a = a/~fth, b = b,      c = c/~fth, d = d,      e = e/~fth, f = f/~fth ],\r\n\t/*16*/\t[ a = a,      b = b,      c = c*~fth, d = d/~fth, e = e,      f = f ],\r\n\t/*17*/\t[ a = a,      b = b*~fth, c = c,      d = d,      e = e,      f = f*~fth],\r\n\t/*18*/\t[ a = a*~fth*n3, b = b/~fth*n3, c = c/~fth*n3, d = d*~fth*n3, e = e*~fth*n3, f = f/~fth*n3 ],\r\n\t/*19*/\t[ a = a/~fth, b = b,      c = c,      d = d/~fth, e = e,      f = f*~fth ],\r\n\t/*20*/\t[ a = a*~fth, b = b*~fth, c = c,      d = d,      e = e/~fth, f = f/~fth ],\r\n\t/*21*/\t[ a = a,      b = b/~fth, c = c*~fth, d = d,      e = e,      f = f*~fth ],\r\n\t/*22*/\t[ a = a,      b = b,      c = c/~fth, d = d*~fth, e = e,      f = f ],\r\n\t/*23*/\t[ a = a,      b = b,      c = c,      d = d/~fth, e = e,      f = f/~fth ],\r\n\t/*24*/\t[ a = a/~fth, b = b,      c = c,      d = d,      e = e,      f = f*~fth ],\r\n\t/*25*/\t[ a = a*~fth, b = b*~fth, c = c*~fth, d = d,      e = e,      f = f ],\r\n\t/*26*/\t[ a = a,      b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f ],\r\n\t/*27*/\t[ a = a,      b = b,      c = c,      d = d/~fth, e = e/~fth, f = f ],\r\n\t/*28*/\t[ a = a/~fth*n4, b = b*~fth*n4, c = c*~fth*n4, d = d*~fth*n4, e = e*~fth*n4, f = f/~fth*n4 ],\r\n\t/*29*/\t[ a = a,      b = b,      c = c/~fth, d = d/~fth, e = e,      f = f ],\r\n\t/*30*/\t[ a = a*~fth*n5, b = b/~fth*n5, c = c*~fth*n5, d = d*~fth*n5, e = e/~fth*n5, f = f*~fth*n5 ],\r\n\t/*31*/\t[ a = a/~fth, b = b*~fth, c = c,      d = d,      e = e,      f = f/~fth ],\r\n\t/*32*/\t[ a = a,      b = b/~fth, c = c,      d = d,      e = e*~fth, f = f ],\r\n\t/*33*/\t[ a = a*~fth, b = b*~fth, c = c,      d = d,      e = e/~fth, f = f ],\r\n\t/*34*/\t[ a = a/~fth, b = b/~fth, c = c,      d = d,      e = e*~fth, f = f*~fth ],\r\n\t/*35*/\t[ a = a*~fth, b = b,      c = c,      d = d/~fth, e = e/~fth, f = f/~fth ],\r\n\t/*36*/\t[ a = a/~fth, b = b,      c = c/~fth, d = d*~fth, e = e,      f = f*~fth ],\r\n\t/*37*/\t[ a = a*~fth, b = b*~fth, c = c,      d = d,      e = e,      f = f ],\r\n\t/*38*/\t[ a = a,      b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f ],\r\n\t/*39*/\t[ a = a/~fth*n6, b = b*~fth*n6, c = c/~fth*n6, d = d*~fth*n6, e = e/~fth*n6, f = f/~fth*n6 ],\r\n\t/*40*/\t[ a = a,      b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f ],\r\n\t/*41*/\t[ a = a*~fth, b = b,      c = c/~fth, d = d,      e = e,      f = f*~fth ],\r\n\t/*42*/\t[ a = a,      b = b*~fth, c = c,      d = d,      e = e/~fth, f = f ],\r\n\t/*43*/\t[ a = a/~fth, b = b,      c = c*~fth, d = d*~fth, e = e*~fth, f = f ],\r\n\t/*44*/\t[ a = a*~fth, b = b,      c = c,      d = d,      e = e,      f = f/~fth ],\r\n\t/*45*/\t[ a = a/~fth, b = b,      c = c,      d = d/~fth, e = e/~fth, f = f ],\r\n\t/*46*/\t[ a = a,      b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f ],\r\n\t/*47*/\t[ a = a,      b = b*~fth, c = c*~fth, d = d/~fth, e = e,      f = f ],\r\n\t/*48*/\t[ a = a,      b = b,      c = c/~fth, d = d*~fth, e = e,      f = f ],\r\n\t/*49*/\t[ a = a,      b = b,      c = c*~fth, d = d,      e = e/~fth, f = f*~fth ],\r\n\t/*50*/\t[ a = a*~fth, b = b/~fth, c = c,      d = d,      e = e*~fth, f = f/~fth ],\r\n\t/*51*/\t[ a = a/~fth, b = b,      c = c,      d = d/~fth, e = e/~fth, f = f*~fth ],\r\n\t/*52*/\t[ a = a*~fth, b = b,      c = c/~fth, d = d*~fth, e = e,      f = f/~fth ],\r\n\t/*53*/\t[ a = a,      b = b*~fth, c = c,      d = d,      e = e,      f = f ],\r\n\t/*54*/\t[ a = a/~fth*n7, b = b/~fth*n7, c = c*~fth*n7, d = d/~fth*n7, e = e*~fth*n7, f = f*~fth*n7 ],\r\n\t/*55*/\t[ a = a,      b = b,      c = c,      d = d*~fth, e = e/~fth, f = f ],\r\n\t/*56*/\t[ a = a*~fth, b = b,      c = c,      d = d,      e = e,      f = f/~fth ],\r\n\t/*57*/\t[ a = a,      b = b*~fth, c = c/~fth, d = d,      e = e*~fth, f = f ],\r\n\t/*58*/\t[ a = a/~fth, b = b,      c = c*~fth, d = d/~fth, e = e,      f = f*~fth ],\r\n\t/*59*/\t[ a = a*~fth, b = b,      c = c/~fth, d = d,      e = e,      f = f/~fth ],\r\n\t/*60*/\t[ a = a/~fth, b = b,      c = c,      d = d,      e = e,      f = f*~fth ],\r\n\t/*61*/\t[ a = a*~fth, b = b,      c = c,      d = d,      e = e,      f = f ],\r\n\t/*62*/\t[ a = a/~fth*n8, b = b/~fth*n8, c = c*~fth*n8, d = d*~fth*n8, e = e/~fth*n8, f = f/~fth*n8 ],\r\n\t/*63*/\t[ a = a,      b = b*~fth, c = c/~fth, d = d,      e = e,      f = f*~fth ],\r\n\t/*64*/\t[ a = a*~fth*n9, b = b/~fth*n9, c = c*~fth*n9, d = d/~fth*n9, e = e*~fth*n9, f = f/~fth*n9 ]\r\n], inf);\r\n\ts1 = GrainSin.ar(2, LFPulse.kr(dur), 1/dur, Demand.ar(LFPulse.ar(dur), 0, dseq));\r\n\ts1 = (s1.dup);\r\n\ts1 = s1*vol;\r\n\tOut.ar(0, s1);\r\n}).load(s);\r\n\r\nSynthDef(\\gsineicr, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = 0.7, rate = 20,\r\n\ta, b, c, d, e, f, g, u, v, w, x, y, z;\r\n\tvar s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9;\r\n\t#n1,n2,n3,n4,n5,n6,n7,n8,n9=[~nval,~nval,~nval,~nval,~nval,~nval,~nval,~nval,~nval];\r\n\tdseq = Dseq([\r\n\t/*1*/\t[ a , b , c , d , e , f],\r\n\t/*2*/\t[ a = a/~fth*n1, b = b/~fth*n1, c = c/~fth*n1, d = d/~fth*n1, e = e/~fth*n1, f = f/~fth*n1 ],\r\n\t/*3*/\t[ a = a,      b = b*~fth, c = c,      d = d,      e = e,      f = f*~fth  ],\r\n\t/*4*/\t[ a = a*~fth, b = b/~fth, c = c,      d = d,      e = e*~fth, f = f/~fth  ],\r\n\t/*5*/\t[ a = a/~fth, b = b*~fth, c = c,      d = d*~fth, e = e,      f = f*~fth ],\r\n\t/*6*/\t[ a = a*~fth, b = b,      c = c*~fth, d = d/~fth, e = e,      f = f/~fth  ],\r\n\t/*7*/\t[ a = a/~fth, b = b/~fth, c = c/~fth, d = d,      e = e,      f = f ],\r\n\t/*8*/\t[ a = a,      b = b*~fth, c = c,      d = d,      e = e/~fth, f = f ],\r\n\t/*9*/\t[ a = a*~fth, b = b,      c = c,      d = d*~fth, e = e*~fth, f = f*~fth ],\r\n\t/*10*/\t[ a = a,      b = b,      c = c*~fth, d = d/~fth, e = e,      f = f ],\r\n\t/*11*/\t[ a = a/~fth, b = b/~fth, c = c/~fth, d = d*~fth, e = e,      f = f ],\r\n\t/*12*/\t[ a = a*~fth*n2, b = b*~fth*n2, c = c*~fth*n2, d = d/~fth*n2, e = e/~fth*n2, f = f/~fth*n2 ],\r\n\t/*13*/\t[ a = a,      b = b,      c = c,      d = d*~fth, e = e,      f = f*~fth ],\r\n\t/*14*/\t[ a = a,      b = b/~fth, c = c,      d = d,      e = e*~fth, f = f],\r\n\t/*15*/\t[ a = a/~fth, b = b,      c = c/~fth, d = d,      e = e/~fth, f = f/~fth ],\r\n\t/*16*/\t[ a = a,      b = b,      c = c*~fth, d = d/~fth, e = e,      f = f ],\r\n\t/*17*/\t[ a = a,      b = b*~fth, c = c,      d = d,      e = e,      f = f*~fth],\r\n\t/*18*/\t[ a = a*~fth*n3, b = b/~fth*n3, c = c/~fth*n3, d = d*~fth*n3, e = e*~fth*n3, f = f/~fth*n3 ],\r\n\t/*19*/\t[ a = a/~fth, b = b,      c = c,      d = d/~fth, e = e,      f = f*~fth ],\r\n\t/*20*/\t[ a = a*~fth, b = b*~fth, c = c,      d = d,      e = e/~fth, f = f/~fth ],\r\n\t/*21*/\t[ a = a,      b = b/~fth, c = c*~fth, d = d,      e = e,      f = f*~fth ],\r\n\t/*22*/\t[ a = a,      b = b,      c = c/~fth, d = d*~fth, e = e,      f = f ],\r\n\t/*23*/\t[ a = a,      b = b,      c = c,      d = d/~fth, e = e,      f = f/~fth ],\r\n\t/*24*/\t[ a = a/~fth, b = b,      c = c,      d = d,      e = e,      f = f*~fth ],\r\n\t/*25*/\t[ a = a*~fth, b = b*~fth, c = c*~fth, d = d,      e = e,      f = f ],\r\n\t/*26*/\t[ a = a,      b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f ],\r\n\t/*27*/\t[ a = a,      b = b,      c = c,      d = d/~fth, e = e/~fth, f = f ],\r\n\t/*28*/\t[ a = a/~fth*n4, b = b*~fth*n4, c = c*~fth*n4, d = d*~fth*n4, e = e*~fth*n4, f = f/~fth*n4 ],\r\n\t/*29*/\t[ a = a,      b = b,      c = c/~fth, d = d/~fth, e = e,      f = f ],\r\n\t/*30*/\t[ a = a*~fth*n5, b = b/~fth*n5, c = c*~fth*n5, d = d*~fth*n5, e = e/~fth*n5, f = f*~fth*n5 ],\r\n\t/*31*/\t[ a = a/~fth, b = b*~fth, c = c,      d = d,      e = e,      f = f/~fth ],\r\n\t/*32*/\t[ a = a,      b = b/~fth, c = c,      d = d,      e = e*~fth, f = f ],\r\n\t/*33*/\t[ a = a*~fth, b = b*~fth, c = c,      d = d,      e = e/~fth, f = f ],\r\n\t/*34*/\t[ a = a/~fth, b = b/~fth, c = c,      d = d,      e = e*~fth, f = f*~fth ],\r\n\t/*35*/\t[ a = a*~fth, b = b,      c = c,      d = d/~fth, e = e/~fth, f = f/~fth ],\r\n\t/*36*/\t[ a = a/~fth, b = b,      c = c/~fth, d = d*~fth, e = e,      f = f*~fth ],\r\n\t/*37*/\t[ a = a*~fth, b = b*~fth, c = c,      d = d,      e = e,      f = f ],\r\n\t/*38*/\t[ a = a,      b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f ],\r\n\t/*39*/\t[ a = a/~fth*n6, b = b*~fth*n6, c = c/~fth*n6, d = d*~fth*n6, e = e/~fth*n6, f = f/~fth*n6 ],\r\n\t/*40*/\t[ a = a,      b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f ],\r\n\t/*41*/\t[ a = a*~fth, b = b,      c = c/~fth, d = d,      e = e,      f = f*~fth ],\r\n\t/*42*/\t[ a = a,      b = b*~fth, c = c,      d = d,      e = e/~fth, f = f ],\r\n\t/*43*/\t[ a = a/~fth, b = b,      c = c*~fth, d = d*~fth, e = e*~fth, f = f ],\r\n\t/*44*/\t[ a = a*~fth, b = b,      c = c,      d = d,      e = e,      f = f/~fth ],\r\n\t/*45*/\t[ a = a/~fth, b = b,      c = c,      d = d/~fth, e = e/~fth, f = f ],\r\n\t/*46*/\t[ a = a,      b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f ],\r\n\t/*47*/\t[ a = a,      b = b*~fth, c = c*~fth, d = d/~fth, e = e,      f = f ],\r\n\t/*48*/\t[ a = a,      b = b,      c = c/~fth, d = d*~fth, e = e,      f = f ],\r\n\t/*49*/\t[ a = a,      b = b,      c = c*~fth, d = d,      e = e/~fth, f = f*~fth ],\r\n\t/*50*/\t[ a = a*~fth, b = b/~fth, c = c,      d = d,      e = e*~fth, f = f/~fth ],\r\n\t/*51*/\t[ a = a/~fth, b = b,      c = c,      d = d/~fth, e = e/~fth, f = f*~fth ],\r\n\t/*52*/\t[ a = a*~fth, b = b,      c = c/~fth, d = d*~fth, e = e,      f = f/~fth ],\r\n\t/*53*/\t[ a = a,      b = b*~fth, c = c,      d = d,      e = e,      f = f ],\r\n\t/*54*/\t[ a = a/~fth*n7, b = b/~fth*n7, c = c*~fth*n7, d = d/~fth*n7, e = e*~fth*n7, f = f*~fth*n7 ],\r\n\t/*55*/\t[ a = a,      b = b,      c = c,      d = d*~fth, e = e/~fth, f = f ],\r\n\t/*56*/\t[ a = a*~fth, b = b,      c = c,      d = d,      e = e,      f = f/~fth ],\r\n\t/*57*/\t[ a = a,      b = b*~fth, c = c/~fth, d = d,      e = e*~fth, f = f ],\r\n\t/*58*/\t[ a = a/~fth, b = b,      c = c*~fth, d = d/~fth, e = e,      f = f*~fth ],\r\n\t/*59*/\t[ a = a*~fth, b = b,      c = c/~fth, d = d,      e = e,      f = f/~fth ],\r\n\t/*60*/\t[ a = a/~fth, b = b,      c = c,      d = d,      e = e,      f = f*~fth ],\r\n\t/*61*/\t[ a = a*~fth, b = b,      c = c,      d = d,      e = e,      f = f ],\r\n\t/*62*/\t[ a = a/~fth*n8, b = b/~fth*n8, c = c*~fth*n8, d = d*~fth*n8, e = e/~fth*n8, f = f/~fth*n8 ],\r\n\t/*63*/\t[ a = a,      b = b*~fth, c = c/~fth, d = d,      e = e,      f = f*~fth ],\r\n\t/*64*/\t[ a = a*~fth*n9, b = b/~fth*n9, c = c*~fth*n9, d = d/~fth*n9, e = e*~fth*n9, f = f/~fth*n9 ]].reverse, inf);\r\n\ts1 = GrainSin.ar(2, LFPulse.kr(dur), 1/dur, Demand.ar(LFPulse.ar(dur), 0, dseq));\r\n\ts1 = (s1.dup);\r\n\ts1 = s1*vol;\r\n\tOut.ar(0, s1);\r\n}).load(s);\r\n);\r\n\r\n(\r\n#a,b,c,d,e,f = [234,345,456,567,678,879];\r\n#g = [432]; //rate\r\n\r\nSynth(\\gsineicf, [\\dur, g,    \\a, a, \\b,  b, \\c, c, \\d, d, \\e, e, \\f, f, \\vol, 0.007]);\r\nSynth(\\gsineicr, [\\dur, g,    \\a, a, \\b,  b, \\c, c, \\d, d, \\e, e, \\f, f, \\vol, 0.007]);\r\n\r\nSynth(\\gsineicf, [\\dur, g/3,  \\a, a, \\b,  b, \\c, c, \\d, d, \\e, e, \\f, f, \\vol, 0.007]);\r\nSynth(\\gsineicr, [\\dur, g/3,  \\a, a, \\b,  b, \\c, c, \\d, d, \\e, e, \\f, f, \\vol, 0.007]);\r\n\r\nSynth(\\gsineicf, [\\dur, g/6,  \\a, a, \\b,  b, \\c, c, \\d, d, \\e, e, \\f, f, \\vol, 0.007]);\r\nSynth(\\gsineicr, [\\dur, g/6,  \\a, a, \\b,  b, \\c, c, \\d, d, \\e, e, \\f, f, \\vol, 0.007]);\r\n);\r\n);",
   "id" : "1-4Xp",
   "is_private" : null,
   "labels" : [
      "time",
      "iching",
      "i ching",
      "mckenna",
      "terence mckenna",
      "complexwave",
      "complex wave",
      "king wen sequence",
      "king wen"
   ],
   "ancestor_list" : [],
   "description" : "Sequencer/synthesizer using the complex wave-form of time; formulated from the King Wen sequence of the I-Ching using the model proposed in the Time-Wave Zero theory by Terence McKenna.",
   "name" : "I-Ching Sequencer/Synth (King Wen Sequence) - 1",
   "author" : "ken_brant"
}