{
   "ancestor_list" : [],
   "description" : "",
   "author" : "grirgz",
   "name" : "Late morning",
   "id" : "1-575",
   "is_private" : null,
   "code" : "(\r\n~t = 185/4/60; TempoClock.default.tempo = ~t;\r\nSynthDef(\\blik, { arg out=0, amp=0.1, gate=1, pan=0, freq=200;\r\n\tvar sig;\r\n\tsig = LFSaw.ar(freq * XLine.kr(1,4,8) * ( 1 + ( SinOsc.kr(1/21 * (1..8)) * SinOsc.kr(2*~t).range(0,0.1) )));\r\n\tsig = RLPF.ar(sig, \\lpf.kr(5400) * SinOsc.kr((1..8)/8*0.1 * ( 1 + ( SinOsc.kr(1/9 * (1..8)/8) * 1 ))).range(4,1), \\rq.kr(0.5));\r\n\tsig = sig * EnvGen.ar(Env.adsr(0.01,0.1,0.8,0.1),gate,doneAction:2);\r\n\tpan = pan + SinOsc.ar((1..8) * ( 1 + ( SinOsc.kr(1/3) * 1 )), mul:0.3);\r\n\tsig = Pan2.ar(sig, pan, amp).mean;\r\n\tOut.ar(out, sig);\r\n}).add;\r\nSynthDef(\\blik2, { arg out=0, amp=0.1, gate=1, pan=0, freq=200;\r\n\tvar sig;\r\n\tsig = LFSaw.ar(freq * ( 1 + ( SinOsc.kr(1/21 * (1..8)) * SinOsc.kr(\\fmampfmf.kr(1)).range(0,\\fmampmax.kr(1)) * XLine.kr(0.001,1,\\clean.kr(1)) )));\r\n\tsig = RLPF.ar(sig, \\lpf.kr(5400) * SinOsc.kr((1..8)/8*0.1 * ( 1 + ( SinOsc.kr(1/9 * (1..8)/8) * 1 ))).range(4,1), \\rq.kr(0.5));\r\n\tsig = sig * EnvGen.ar(\\adsr.kr(Env.adsr(0.01,0.1,0.8,3.1)),gate,doneAction:2);\r\n\tpan = pan + SinOsc.ar((1..8) * ( 1 + ( SinOsc.kr(1/3) * 1 )), mul:0.3);\r\n\tsig = Pan2.ar(sig, pan, amp).mean;\r\n\tOut.ar(out, sig);\r\n}).add;\r\n);\r\n\r\n\r\n(\r\nPdef(\\blik, Pbind(\r\n\t\\instrument, \\blik,\r\n\t\\octave, 3,\r\n\t\\degree, 0,\r\n\t\\isRest, Pseq([\r\n\t\t1,0,0,0, 0,0,0,0,\r\n\t],inf).coin.not,\r\n\t\\legato, 8.59,\r\n\t\\dur, 1,\r\n\t\\amp, 0.1/2,\r\n));\r\nPdef(\\blikp1,\r\n\t\tPbind(\r\n\t\t\t\\instrument, \\blik2,\r\n\t\t\t\\clean, Pexprand(0.2,2),\r\n\t\t\t\\octave, Prand([3,4,5],inf),\r\n\t\t\t\\degree, Pseq([\r\n\t\t\t\t[0,2,4], [0,2,4],\r\n\t\t\t\t[5,7,9], [5,7,9],\r\n\t\t\t],inf),\r\n\t\t\t\\isRest, Pseq({[\r\n\t\t\t\t1,0,0,0, 0,0,0,0,\r\n\t\t\t\t1,0,0,1, 0,1,0,0,\r\n\t\t\t\t1,0,0,0, 0,0,0,0,\r\n\t\t\t\t0,0,0,0, 1,0,0,0,\r\n\t\t\t\t0,0,1,0, 0,0,1,0,\r\n\t\t\t\t0,0,0,0, 0,0,1,0,\r\n\t\t\t].clump(8).choose}.dup(8).flat,inf).coin.not,\r\n\t\t\t\\lpf, Pexprand(100,1000),\r\n\t\t\t\\fmampmax, Pwhite(0.01,0.8),\r\n\t\t\t\\fmampfmf, Pwhite(0.01,100),\r\n\t\t\t\\legato, Pwhite(1,9),\r\n\t\t\t\\dur, 1/4,\r\n\t\t\t\\amp, 0.1/2,\r\n\t\t)\r\n);\r\n\r\nPdef(\\blikp2,\r\n\tPbind(\r\n\t\t\\dur, 1/2,\r\n\t)\r\n\t<> Pdef(\\blikp1)\r\n);\r\n\r\nPdef(\\blikmain, \r\n\tPseq([\r\n\t\tPfindur(8,Pdef(\\blik)),\r\n\t\tPfindur(32,Ppar([\r\n\t\t\tPdef(\\blikp1),\r\n\t\t\tPdef(\\blikp2),\r\n\t\t].collect({ arg p; Pbind(\\dur, 1, \\clean, 8) <> p }))),\r\n\t\tPfindur(32,Ppar([\r\n\t\t\tPdef(\\blikp1),\r\n\t\t\tPdef(\\blikp2),\r\n\t\t].collect({ arg p; Pbind() <> p }))),\r\n\t\tPfindur(16,Ppar([\r\n\t\t\tPdef(\\blikp1),\r\n\t\t\tPdef(\\blikp2),\r\n\t\t].collect({ arg p; Pbind(\\dur, 1/8, \\legato, 00.1) <> p }))),\r\n\t\tPfindur(16,Ppar([\r\n\t\t\tPdef(\\blikp1),\r\n\t\t\tPdef(\\blikp2),\r\n\t\t].collect({ arg p; Pbind(\r\n\t\t\t\\octave, 4,\r\n\t\t\t\\adsr, [ Env.adsr(0.01,0.1,0.8,0.1) ],\r\n\t\t\t\\sustain, Pseq([\r\n\t\t\t\tPseq((1..64).reverse/128,1),\r\n\t\t\t\tPn(1/2,inf)\r\n\t\t\t],inf),\r\n\t\t\t\\dur, 1/8, \\isRest, Pseq([1,1,0,1],inf), \\clean, 8, \\legato, 00.1) <> p }))),\r\n\t\tPfindur(16,Ppar([\r\n\t\t\tPdef(\\blikp1),\r\n\t\t\tPdef(\\blikp2),\r\n\t\t].collect({ arg p; Pbind(\r\n\t\t\t\\octave, 4,\r\n\t\t\t\\note, Pseq((1..32),inf).stutter(4),\r\n\t\t\t\\adsr, [ Env.adsr(0.01,0.1,0.8,0.1) ],\r\n\t\t\t\\sustain, Pseq([\r\n\t\t\t\tPseq((1..64).mirror/62,1),\r\n\t\t\t\tPn(1/2,inf)\r\n\t\t\t],inf),\r\n\t\t\t\\dur, 1/8, \\isRest, Pseq([1,1,0,1],inf), \\clean, Pseq((1..12)/10,inf), \\legato, 00.1) <> p }))),\r\n\t\t\r\n\t],2)\r\n).play;\r\n);",
   "labels" : []
}