// title: I-Ching Sequencer/Synth (King Wen Sequence) - 1 // author: ken_brant // 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. // code: (//evaluate to play ( //run each at same time in tandem using synth set below ~fth = 1.4142135623729; ~n9 = 1.080059789899; //1 octave range ~nval = ~n9; SynthDef(\gsineicf, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = 0.7, rate = 20, a, b, c, d, e, f, g, u, v, w, x, y, z; var s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9; #n1,n2,n3,n4,n5,n6,n7,n8,n9=[~nval,~nval,~nval,~nval,~nval,~nval,~nval,~nval,~nval]; dseq = Dseq([ /*1*/ [ a , b , c , d , e , f], /*2*/ [ a = a/~fth*n1, b = b/~fth*n1, c = c/~fth*n1, d = d/~fth*n1, e = e/~fth*n1, f = f/~fth*n1 ], /*3*/ [ a = a, b = b*~fth, c = c, d = d, e = e, f = f*~fth ], /*4*/ [ a = a*~fth, b = b/~fth, c = c, d = d, e = e*~fth, f = f/~fth ], /*5*/ [ a = a/~fth, b = b*~fth, c = c, d = d*~fth, e = e, f = f*~fth ], /*6*/ [ a = a*~fth, b = b, c = c*~fth, d = d/~fth, e = e, f = f/~fth ], /*7*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d, e = e, f = f ], /*8*/ [ a = a, b = b*~fth, c = c, d = d, e = e/~fth, f = f ], /*9*/ [ a = a*~fth, b = b, c = c, d = d*~fth, e = e*~fth, f = f*~fth ], /*10*/ [ a = a, b = b, c = c*~fth, d = d/~fth, e = e, f = f ], /*11*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d*~fth, e = e, f = f ], /*12*/ [ a = a*~fth*n2, b = b*~fth*n2, c = c*~fth*n2, d = d/~fth*n2, e = e/~fth*n2, f = f/~fth*n2 ], /*13*/ [ a = a, b = b, c = c, d = d*~fth, e = e, f = f*~fth ], /*14*/ [ a = a, b = b/~fth, c = c, d = d, e = e*~fth, f = f], /*15*/ [ a = a/~fth, b = b, c = c/~fth, d = d, e = e/~fth, f = f/~fth ], /*16*/ [ a = a, b = b, c = c*~fth, d = d/~fth, e = e, f = f ], /*17*/ [ a = a, b = b*~fth, c = c, d = d, e = e, f = f*~fth], /*18*/ [ a = a*~fth*n3, b = b/~fth*n3, c = c/~fth*n3, d = d*~fth*n3, e = e*~fth*n3, f = f/~fth*n3 ], /*19*/ [ a = a/~fth, b = b, c = c, d = d/~fth, e = e, f = f*~fth ], /*20*/ [ a = a*~fth, b = b*~fth, c = c, d = d, e = e/~fth, f = f/~fth ], /*21*/ [ a = a, b = b/~fth, c = c*~fth, d = d, e = e, f = f*~fth ], /*22*/ [ a = a, b = b, c = c/~fth, d = d*~fth, e = e, f = f ], /*23*/ [ a = a, b = b, c = c, d = d/~fth, e = e, f = f/~fth ], /*24*/ [ a = a/~fth, b = b, c = c, d = d, e = e, f = f*~fth ], /*25*/ [ a = a*~fth, b = b*~fth, c = c*~fth, d = d, e = e, f = f ], /*26*/ [ a = a, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f ], /*27*/ [ a = a, b = b, c = c, d = d/~fth, e = e/~fth, f = f ], /*28*/ [ a = a/~fth*n4, b = b*~fth*n4, c = c*~fth*n4, d = d*~fth*n4, e = e*~fth*n4, f = f/~fth*n4 ], /*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ], /*30*/ [ a = a*~fth*n5, b = b/~fth*n5, c = c*~fth*n5, d = d*~fth*n5, e = e/~fth*n5, f = f*~fth*n5 ], /*31*/ [ a = a/~fth, b = b*~fth, c = c, d = d, e = e, f = f/~fth ], /*32*/ [ a = a, b = b/~fth, c = c, d = d, e = e*~fth, f = f ], /*33*/ [ a = a*~fth, b = b*~fth, c = c, d = d, e = e/~fth, f = f ], /*34*/ [ a = a/~fth, b = b/~fth, c = c, d = d, e = e*~fth, f = f*~fth ], /*35*/ [ a = a*~fth, b = b, c = c, d = d/~fth, e = e/~fth, f = f/~fth ], /*36*/ [ a = a/~fth, b = b, c = c/~fth, d = d*~fth, e = e, f = f*~fth ], /*37*/ [ a = a*~fth, b = b*~fth, c = c, d = d, e = e, f = f ], /*38*/ [ a = a, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f ], /*39*/ [ a = a/~fth*n6, b = b*~fth*n6, c = c/~fth*n6, d = d*~fth*n6, e = e/~fth*n6, f = f/~fth*n6 ], /*40*/ [ a = a, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f ], /*41*/ [ a = a*~fth, b = b, c = c/~fth, d = d, e = e, f = f*~fth ], /*42*/ [ a = a, b = b*~fth, c = c, d = d, e = e/~fth, f = f ], /*43*/ [ a = a/~fth, b = b, c = c*~fth, d = d*~fth, e = e*~fth, f = f ], /*44*/ [ a = a*~fth, b = b, c = c, d = d, e = e, f = f/~fth ], /*45*/ [ a = a/~fth, b = b, c = c, d = d/~fth, e = e/~fth, f = f ], /*46*/ [ a = a, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f ], /*47*/ [ a = a, b = b*~fth, c = c*~fth, d = d/~fth, e = e, f = f ], /*48*/ [ a = a, b = b, c = c/~fth, d = d*~fth, e = e, f = f ], /*49*/ [ a = a, b = b, c = c*~fth, d = d, e = e/~fth, f = f*~fth ], /*50*/ [ a = a*~fth, b = b/~fth, c = c, d = d, e = e*~fth, f = f/~fth ], /*51*/ [ a = a/~fth, b = b, c = c, d = d/~fth, e = e/~fth, f = f*~fth ], /*52*/ [ a = a*~fth, b = b, c = c/~fth, d = d*~fth, e = e, f = f/~fth ], /*53*/ [ a = a, b = b*~fth, c = c, d = d, e = e, f = f ], /*54*/ [ a = a/~fth*n7, b = b/~fth*n7, c = c*~fth*n7, d = d/~fth*n7, e = e*~fth*n7, f = f*~fth*n7 ], /*55*/ [ a = a, b = b, c = c, d = d*~fth, e = e/~fth, f = f ], /*56*/ [ a = a*~fth, b = b, c = c, d = d, e = e, f = f/~fth ], /*57*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e*~fth, f = f ], /*58*/ [ a = a/~fth, b = b, c = c*~fth, d = d/~fth, e = e, f = f*~fth ], /*59*/ [ a = a*~fth, b = b, c = c/~fth, d = d, e = e, f = f/~fth ], /*60*/ [ a = a/~fth, b = b, c = c, d = d, e = e, f = f*~fth ], /*61*/ [ a = a*~fth, b = b, c = c, d = d, e = e, f = f ], /*62*/ [ a = a/~fth*n8, b = b/~fth*n8, c = c*~fth*n8, d = d*~fth*n8, e = e/~fth*n8, f = f/~fth*n8 ], /*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ], /*64*/ [ a = a*~fth*n9, b = b/~fth*n9, c = c*~fth*n9, d = d/~fth*n9, e = e*~fth*n9, f = f/~fth*n9 ] ], inf); s1 = GrainSin.ar(2, LFPulse.kr(dur), 1/dur, Demand.ar(LFPulse.ar(dur), 0, dseq)); s1 = (s1.dup); s1 = s1*vol; Out.ar(0, s1); }).load(s); SynthDef(\gsineicr, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = 0.7, rate = 20, a, b, c, d, e, f, g, u, v, w, x, y, z; var s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9; #n1,n2,n3,n4,n5,n6,n7,n8,n9=[~nval,~nval,~nval,~nval,~nval,~nval,~nval,~nval,~nval]; dseq = Dseq([ /*1*/ [ a , b , c , d , e , f], /*2*/ [ a = a/~fth*n1, b = b/~fth*n1, c = c/~fth*n1, d = d/~fth*n1, e = e/~fth*n1, f = f/~fth*n1 ], /*3*/ [ a = a, b = b*~fth, c = c, d = d, e = e, f = f*~fth ], /*4*/ [ a = a*~fth, b = b/~fth, c = c, d = d, e = e*~fth, f = f/~fth ], /*5*/ [ a = a/~fth, b = b*~fth, c = c, d = d*~fth, e = e, f = f*~fth ], /*6*/ [ a = a*~fth, b = b, c = c*~fth, d = d/~fth, e = e, f = f/~fth ], /*7*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d, e = e, f = f ], /*8*/ [ a = a, b = b*~fth, c = c, d = d, e = e/~fth, f = f ], /*9*/ [ a = a*~fth, b = b, c = c, d = d*~fth, e = e*~fth, f = f*~fth ], /*10*/ [ a = a, b = b, c = c*~fth, d = d/~fth, e = e, f = f ], /*11*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d*~fth, e = e, f = f ], /*12*/ [ a = a*~fth*n2, b = b*~fth*n2, c = c*~fth*n2, d = d/~fth*n2, e = e/~fth*n2, f = f/~fth*n2 ], /*13*/ [ a = a, b = b, c = c, d = d*~fth, e = e, f = f*~fth ], /*14*/ [ a = a, b = b/~fth, c = c, d = d, e = e*~fth, f = f], /*15*/ [ a = a/~fth, b = b, c = c/~fth, d = d, e = e/~fth, f = f/~fth ], /*16*/ [ a = a, b = b, c = c*~fth, d = d/~fth, e = e, f = f ], /*17*/ [ a = a, b = b*~fth, c = c, d = d, e = e, f = f*~fth], /*18*/ [ a = a*~fth*n3, b = b/~fth*n3, c = c/~fth*n3, d = d*~fth*n3, e = e*~fth*n3, f = f/~fth*n3 ], /*19*/ [ a = a/~fth, b = b, c = c, d = d/~fth, e = e, f = f*~fth ], /*20*/ [ a = a*~fth, b = b*~fth, c = c, d = d, e = e/~fth, f = f/~fth ], /*21*/ [ a = a, b = b/~fth, c = c*~fth, d = d, e = e, f = f*~fth ], /*22*/ [ a = a, b = b, c = c/~fth, d = d*~fth, e = e, f = f ], /*23*/ [ a = a, b = b, c = c, d = d/~fth, e = e, f = f/~fth ], /*24*/ [ a = a/~fth, b = b, c = c, d = d, e = e, f = f*~fth ], /*25*/ [ a = a*~fth, b = b*~fth, c = c*~fth, d = d, e = e, f = f ], /*26*/ [ a = a, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f ], /*27*/ [ a = a, b = b, c = c, d = d/~fth, e = e/~fth, f = f ], /*28*/ [ a = a/~fth*n4, b = b*~fth*n4, c = c*~fth*n4, d = d*~fth*n4, e = e*~fth*n4, f = f/~fth*n4 ], /*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ], /*30*/ [ a = a*~fth*n5, b = b/~fth*n5, c = c*~fth*n5, d = d*~fth*n5, e = e/~fth*n5, f = f*~fth*n5 ], /*31*/ [ a = a/~fth, b = b*~fth, c = c, d = d, e = e, f = f/~fth ], /*32*/ [ a = a, b = b/~fth, c = c, d = d, e = e*~fth, f = f ], /*33*/ [ a = a*~fth, b = b*~fth, c = c, d = d, e = e/~fth, f = f ], /*34*/ [ a = a/~fth, b = b/~fth, c = c, d = d, e = e*~fth, f = f*~fth ], /*35*/ [ a = a*~fth, b = b, c = c, d = d/~fth, e = e/~fth, f = f/~fth ], /*36*/ [ a = a/~fth, b = b, c = c/~fth, d = d*~fth, e = e, f = f*~fth ], /*37*/ [ a = a*~fth, b = b*~fth, c = c, d = d, e = e, f = f ], /*38*/ [ a = a, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f ], /*39*/ [ a = a/~fth*n6, b = b*~fth*n6, c = c/~fth*n6, d = d*~fth*n6, e = e/~fth*n6, f = f/~fth*n6 ], /*40*/ [ a = a, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f ], /*41*/ [ a = a*~fth, b = b, c = c/~fth, d = d, e = e, f = f*~fth ], /*42*/ [ a = a, b = b*~fth, c = c, d = d, e = e/~fth, f = f ], /*43*/ [ a = a/~fth, b = b, c = c*~fth, d = d*~fth, e = e*~fth, f = f ], /*44*/ [ a = a*~fth, b = b, c = c, d = d, e = e, f = f/~fth ], /*45*/ [ a = a/~fth, b = b, c = c, d = d/~fth, e = e/~fth, f = f ], /*46*/ [ a = a, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f ], /*47*/ [ a = a, b = b*~fth, c = c*~fth, d = d/~fth, e = e, f = f ], /*48*/ [ a = a, b = b, c = c/~fth, d = d*~fth, e = e, f = f ], /*49*/ [ a = a, b = b, c = c*~fth, d = d, e = e/~fth, f = f*~fth ], /*50*/ [ a = a*~fth, b = b/~fth, c = c, d = d, e = e*~fth, f = f/~fth ], /*51*/ [ a = a/~fth, b = b, c = c, d = d/~fth, e = e/~fth, f = f*~fth ], /*52*/ [ a = a*~fth, b = b, c = c/~fth, d = d*~fth, e = e, f = f/~fth ], /*53*/ [ a = a, b = b*~fth, c = c, d = d, e = e, f = f ], /*54*/ [ a = a/~fth*n7, b = b/~fth*n7, c = c*~fth*n7, d = d/~fth*n7, e = e*~fth*n7, f = f*~fth*n7 ], /*55*/ [ a = a, b = b, c = c, d = d*~fth, e = e/~fth, f = f ], /*56*/ [ a = a*~fth, b = b, c = c, d = d, e = e, f = f/~fth ], /*57*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e*~fth, f = f ], /*58*/ [ a = a/~fth, b = b, c = c*~fth, d = d/~fth, e = e, f = f*~fth ], /*59*/ [ a = a*~fth, b = b, c = c/~fth, d = d, e = e, f = f/~fth ], /*60*/ [ a = a/~fth, b = b, c = c, d = d, e = e, f = f*~fth ], /*61*/ [ a = a*~fth, b = b, c = c, d = d, e = e, f = f ], /*62*/ [ a = a/~fth*n8, b = b/~fth*n8, c = c*~fth*n8, d = d*~fth*n8, e = e/~fth*n8, f = f/~fth*n8 ], /*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ], /*64*/ [ 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); s1 = GrainSin.ar(2, LFPulse.kr(dur), 1/dur, Demand.ar(LFPulse.ar(dur), 0, dseq)); s1 = (s1.dup); s1 = s1*vol; Out.ar(0, s1); }).load(s); ); ( #a,b,c,d,e,f = [234,345,456,567,678,879]; #g = [432]; //rate Synth(\gsineicf, [\dur, g, \a, a, \b, b, \c, c, \d, d, \e, e, \f, f, \vol, 0.007]); Synth(\gsineicr, [\dur, g, \a, a, \b, b, \c, c, \d, d, \e, e, \f, f, \vol, 0.007]); Synth(\gsineicf, [\dur, g/3, \a, a, \b, b, \c, c, \d, d, \e, e, \f, f, \vol, 0.007]); Synth(\gsineicr, [\dur, g/3, \a, a, \b, b, \c, c, \d, d, \e, e, \f, f, \vol, 0.007]); Synth(\gsineicf, [\dur, g/6, \a, a, \b, b, \c, c, \d, d, \e, e, \f, f, \vol, 0.007]); Synth(\gsineicr, [\dur, g/6, \a, a, \b, b, \c, c, \d, d, \e, e, \f, f, \vol, 0.007]); ); );