«I-Ching Sequencer/Synth (King Wen Sequence) - 1» by ken_brant

on 01 Apr'15 07:14 in timeichingi chingmckennaterence mckennacomplexwavecomplex waveking wen sequenceking wen

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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
(//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]);
);
);
raw 12593 chars (focus & ctrl+a+c to copy)
reception
comments