//base frequency for synth inst
~base_frequency = ~freqmap.at(21); //default 21
- ~synthdefnum = 12; //default 12
+ ~synthdefnum = 9; //default 9
//volume
//key codes for keyboard functions - either unicode or keycode. to find key codes, see below
- ~rightarrow_keycode = 114;
- ~leftarrow_keycode = 113;
- ~uparrow_keycode = 111;
- ~downarrow_keycode = 116;
+ ~rightarrow_keycode = 124;
+ ~leftarrow_keycode = 123;
+ ~uparrow_keycode = 126;
+ ~downarrow_keycode = 125;
~enter_unicode = 13;
~s_unicode = 115;
~m_unicode = 109;
if([~sg8g1,~sg8g2,~sg8g3,~sg8g4,~sg8g5,~sg8g6,~sg8g7,~sg8g8,~sg8g9,~sg8g10,~sg8g11,~sg8g12] == [nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil], {[~sg8g1=nil,~sg8g2=nil,~sg8g3=nil,~sg8g4=nil,~sg8g5=nil,~sg8g6=nil,~sg8g7=nil,~sg8g8=nil];});
if([~sg8h1,~sg8h2,~sg8h3,~sg8h4,~sg8h5,~sg8h6,~sg8h7,~sg8h8,~sg8h9,~sg8h10,~sg8h11,~sg8h12] == [nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil], {[~sg8h1=nil,~sg8h2=nil,~sg8h3=nil,~sg8h4=nil,~sg8h5=nil,~sg8h6=nil,~sg8h7=nil,~sg8h8=nil];});
*/
- ~gsine = {
+ ~gsine1 = {
+ SynthDef(\gsineicfld1, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = ~vol, rate = 20, tune = 0,dseqval,
+ a, b, c, d, e, f, pan=0, fc = 1;
+ var s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9;
+ #n1=[~gm];
+ dseq = Dseq([/*1*/ #a,b,c,d,e,f=[ ~a,~b,~c,~d,~e,~f ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ ++Array.fill((~gsinenum -1), {[/*1*/ [ a = a*n1, b = b*n1*~fth, c = c*n1, d = d*n1*~fth, e = e*n1, f = f*n1*~fth ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ }).flatten, inf);
+ /*env1 = EnvGen.kr(Env([0, 1, 1, 0], [0, dur, 0]), levelScale: amp, doneAction: 2);*/
+ s1 = GrainSin.ar(1, Impulse.ar(dur+tune), 1/(dur+tune),Demand.ar(Impulse.ar(dur+tune), 0, dseq)*fc);
+ OffsetOut.ar(0, s1.dup*vol);
+ }, [\ir]).add;
+
+ SynthDef(\gsineicrld1, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = ~vol, rate = 20, tune = 0,dseqval,
+ a, b, c, d, e, f, pan=0, fc = 1, id = -1;
+ var s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9,af;
+ #n1=[~gm];
+ dseq = Dseq([[/*1*/ #a,b,c,d,e,f=[ ~a,~b,~c,~d,~e,~f ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ ++Array.fill((~gsinenum -1), {[/*1*/ [ a = a*n1, b = b*n1*~fth, c = c*n1, d = d*n1*~fth, e = e*n1, f = f*n1*~fth ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ }).flatten].flatten.reverse, inf);
+ /*env1 = EnvGen.kr(Env([0, 1, 1, 0], [0, dur, 0]), levelScale: amp, doneAction: 2);*/
+ s1 = GrainSin.ar(1, Impulse.ar(dur+tune), 1/(dur+tune), Demand.ar(Impulse.ar(dur+tune), 0, dseq));
+ OffsetOut.ar(0, s1.dup*vol);
+ }, [\ir]).add;
+
+ SynthDef(\gsineicfld2, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = ~vol, rate = 20, tune = 0,dseqval,
+ a, b, c, d, e, f, pan=0, fc = 1;
+ var s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9;
+ #n1=[~gm2];
+ dseq = Dseq([/*1*/ #a,b,c,d,e,f=[ ~a,~b,~c,~d,~e,~f ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ ++Array.fill((~gsinenum*2 -1), {[/*1*/ [ a = a*n1, b = b*n1*~fth, c = c*n1, d = d*n1*~fth, e = e*n1, f = f*n1*~fth ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ }).flatten, inf);
+ /*env1 = EnvGen.kr(Env([0, 1, 1, 0], [0, dur, 0]), levelScale: amp, doneAction: 2);*/
+ s1 = GrainSin.ar(1, Impulse.ar(dur+tune), 1/(dur+tune),Demand.ar(Impulse.ar(dur+tune), 0, dseq)*fc);
+ OffsetOut.ar(0, s1.dup*vol);
+ }, [\ir]).add;
+
+ SynthDef(\gsineicrld2, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = ~vol, rate = 20, tune = 0,dseqval,
+ a, b, c, d, e, f, pan=0, fc = 1, id = -1;
+ var s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9,af;
+ #n1=[~gm2];
+ dseq = Dseq([[/*1*/ #a,b,c,d,e,f=[ ~a,~b,~c,~d,~e,~f ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ ++Array.fill((~gsinenum*2 -1), {[/*1*/ [ a = a*n1, b = b*n1*~fth, c = c*n1, d = d*n1*~fth, e = e*n1, f = f*n1*~fth ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ }).flatten].flatten.reverse, inf);
+ /*env1 = EnvGen.kr(Env([0, 1, 1, 0], [0, dur, 0]), levelScale: amp, doneAction: 2);*/
+ s1 = GrainSin.ar(1, Impulse.ar(dur+tune), 1/(dur+tune), Demand.ar(Impulse.ar(dur+tune), 0, dseq));
+ OffsetOut.ar(0, s1.dup*vol);
+ }, [\ir]).add;
+
+ SynthDef(\gsineicfld6, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = ~vol, rate = 20, tune = 0,dseqval,
+ a, b, c, d, e, f, pan=0, fc = 1;
+ var s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9;
+ #n1=[~gm6];
+ dseq = Dseq([/*1*/ #a,b,c,d,e,f=[ ~a,~b,~c,~d,~e,~f ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ ++Array.fill((~gsinenum*6 -1), {[/*1*/ [ a = a*n1, b = b*n1*~fth, c = c*n1, d = d*n1*~fth, e = e*n1, f = f*n1*~fth ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ }).flatten, inf);
+ /*env1 = EnvGen.kr(Env([0, 1, 1, 0], [0, dur, 0]), levelScale: amp, doneAction: 2);*/
+ s1 = GrainSin.ar(1, Impulse.ar(dur+tune), 1/(dur+tune),Demand.ar(Impulse.ar(dur+tune), 0, dseq)*fc);
+ OffsetOut.ar(0, s1.dup*vol);
+ }, [\ir]).add;
+
+ SynthDef(\gsineicrld6, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = ~vol, rate = 20, tune = 0,dseqval,
+ a, b, c, d, e, f, pan=0, fc = 1;
+ var s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9;
+ #n1=[~gm6];
+ dseq = Dseq([[/*1*/ #a,b,c,d,e,f=[ ~a,~b,~c,~d,~e,~f ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ ++Array.fill((~gsinenum*6 -1), {[/*1*/ [ a = a*n1, b = b*n1*~fth, c = c*n1, d = d*n1*~fth, e = e*n1, f = f*n1*~fth ],/*2*/ [ a = a/~fth, b = b/~fth, c = c/~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d/~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c/~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*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, b = b*~fth, c = c*~fth, d = d*~fth, e = e*~fth, f = f/~fth ],/*29*/ [ a = a, b = b, c = c/~fth, d = d/~fth, e = e, f = f ],/*30*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f*~fth ],/*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, b = b*~fth, c = c/~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*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, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f*~fth ],/*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, b = b/~fth, c = c*~fth, d = d*~fth, e = e/~fth, f = f/~fth ],/*63*/ [ a = a, b = b*~fth, c = c/~fth, d = d, e = e, f = f*~fth ],/*64*/ [ a = a*~fth, b = b/~fth, c = c*~fth, d = d/~fth, e = e*~fth, f = f/~fth ]]
+ }).flatten].flatten.reverse, inf);
+ /*env1 = EnvGen.kr(Env([0, 1, 1, 0], [0, dur, 0]), levelScale: amp, doneAction: 2);*/
+ s1 = GrainSin.ar(1, Impulse.ar(dur+tune), 1/(dur+tune),Demand.ar(Impulse.ar(dur+tune), 0, dseq)*fc);
+ OffsetOut.ar(0, s1.dup*vol);
+ }, [\ir]).add;
+
+
+ };
+
+ ~gsine2 = {
SynthDef(\gsineicfld1, {arg graindur = 0.04, dur = 2000, atk = 0.007, rel = 0.01, gate = 1, amp = 1, i = 1, vol = ~vol, rate = 20, tune = 0,dseqval,
a, b, c, d, e, f, pan=0, fc = 1;
var s1, out, env1, s2, dseq,n1,n2,n3,n4,n5,n6,n7,n8,n9;
~fth = 1.4142135623729;
~gm = 1.6180339887499;
+ ~gm2 = 1.2720196495141;
+ ~gm6 = 1.0835058821738;
~stepratio = 1.0594630943593;
~nval = 1.0355417528;
~n9s = 1.86;
~ngm6 = 1.0089511542031;
~nval = ~ngm6;
- ~synthdef = "gsineicld"; ~gsinenum = ~synthdefnum; ~gsine.value;
+ ~synthdef = "gsineicld"; ~gsinenum = ~synthdefnum;
+ case
+ {~gsine == nil}{~gsine1.value}
+ {~gsine == 0}{~gsine1.value;}
+ {~gsine == 1}{~gsine2.value;};
+
);
});
*/
~bfreqstart = ~basefreq;
- ~bfreq = PopUpMenu(w, Rect(20+60*2+16,Window.screenBounds.height-88+(30/1.6180339887499*0),180,60/1.6180339887499)).items_(~bfreqv = (-1); [~basefreq.asString++" hz"]++Array.fill(128, {~freqmap.at(~bfreqv=~bfreqv+1).asString++" hz"})).background_(Color.black).stringColor_(Color.white).action_({arg button;});
+ ~bfreq = PopUpMenu(w, Rect(20+60*2+16,Window.screenBounds.height-88+(30/1.6180339887499*0),120,60/1.6180339887499)).items_(~bfreqv = (-1); [~basefreq.asString++" hz"]++Array.fill(128, {~freqmap.at(~bfreqv=~bfreqv+1).asString++" hz"})).background_(Color.black).stringColor_(Color.white).action_({arg button;});
+
+ ~gsinemenu = PopUpMenu(w, Rect(20+60*2+16+120,Window.screenBounds.height-88+(30/1.6180339887499*0),60,60/1.6180339887499)).items_(["1","2"]).background_(Color.black).stringColor_(Color.white).action_({arg button;
+
+ if(~gsinemenu.value == 0, {~gsine = ~gsine1});
+ if(~gsinemenu.value == 1, {~gsine = ~gsine2});
+
+ });
+
+ case
+ {~gsine == nil}{~gsinemenu.value = 0;}
+ {~gsine == ~gsine1}{~gsinemenu.value = 0;}
+ {~gsine == ~gsine2}{~gsinemenu.value = 1;};
~startrecord = Button.new(w,Rect(Window.screenBounds.width-(Window.screenBounds.width/3)+39,Window.screenBounds.height-52+19.777087639995,28,28/1.6180339887499)).states_([["rc",Color.white,Color.black],["rc",Color.black,Color.red]]).action_({arg button; Server.default.record; ~numsynths.stop; if(button.value == 0, {button.value = 1});});
/*1*/ [ a = a, b = b*~fth, c = c, d = d*~fth, e = e, f = f*~fth ],...
*/
-
OSDN Git Service
