{
   "name" : "L'onde longtemps captive en s'écoulant murmure",
   "author" : "grirgz",
   "ancestor_list" : [],
   "description" : "",
   "labels" : [],
   "code" : "(\r\n\t// init\r\n~t = 158/4/60; TempoClock.default.tempo = ~t;\r\nSynthDef(\\star, { arg out=0, amp=0.1, gate=1, pan=0, spread=0.8, freq=200, doneAction=2;\r\n\tvar sig, sig1, sig2, sig3;\r\n\tvar env1;\r\n\tvar fspread;\r\n\tenv1 = EnvGen.kr(Env([1,2,1],[1.7,0.8]), 1);\r\n\tfspread = 0.0007 + Rand(0,0.007);\r\n\tsig = SinOsc.ar(freq * ((0..7)/7 - 0.5 * fspread + 1));\r\n\tsig = sig * ( sig/(sig+1.1)*50 * env1 ).clip(0.5);\r\n\tsig1 = sig * (sig.abs > Rand(0.1,0.7));\r\n\tsig = SelectX.ar( EnvGen.kr(Env([0,1,0],[0.1+Rand(0,2.0),0.1+Rand(0,2.0)]), 1), [sig, sig1]);\r\n\tsig = sig * 2;\r\n\tsig = sig * EnvGen.ar(\\adsr.kr(Env.adsr(1.01,0.1,1,1.1)),gate,doneAction:doneAction);\r\n\tsig = sig /10;\r\n\tsig = Splay.ar(sig, spread, amp, pan);\r\n\tOut.ar(out, sig);\r\n}).add;\r\nSynthDef(\\starlet, { arg out=0, amp=0.1, gate=1, pan=0, spread=0.8, freq=200, doneAction=2;\r\n\tvar sig, sig1, sig2, sig3;\r\n\tvar env1;\r\n\tvar fspread;\r\n\tenv1 = EnvGen.kr(Env([1,20,1],[1.7,0.8]), 1);\r\n\tfspread = 0.0007 + Rand(0,0.007)* env1;\r\n\tsig = SinOsc.ar(freq * ((0..7)/7 - 0.5 * fspread + 1) );\r\n\tsig1 = sig * ( sig/(sig+1.1)*50 * env1 ).clip(0.5);\r\n\tsig = SelectX.ar(\\mix.kr(0.5), [sig, sig1]);\r\n\tsig = sig * 2;\r\n\tsig = sig * EnvGen.ar(\\adsr.kr(Env.adsr(1.01,0.1,1,1.1)),gate,doneAction:doneAction);\r\n\tsig = sig /10;\r\n\tsig = Splay.ar(sig, spread, amp, pan);\r\n\tOut.ar(out, sig);\r\n}).add;\r\n)\r\n\r\n\r\n\r\n(\r\n\t// play\r\n\r\nPdef(\\murmure, Pbind(\r\n\t\\instrument, Pseq([\\starlet,\\star, Prand([\\starlet,\\star],2)],inf).stutter(1),\r\n\t\\degree, Pseq([\r\n\t\tPwalk(\r\n\t\t\t[\r\n\t\t\t\t[0,2,4, 7],\r\n\t\t\t\t[0,2,4, 9],\r\n\t\t\t\t0,2,4,\r\n\t\t\t\t[0,2+12],\r\n\t\t\t\t[0,4+12],\r\n\t\t\t\t0+12,2+12,4+12,\r\n\t\t\t\t[2,4],\r\n\t\t\t],\r\n\t\t\tPrand([\r\n\t\t\t\tPseq([\r\n\t\t\t\t\t1,-2,Pwhite(0,3,1), Pwhite(0,-3,5),\r\n\t\t\t\t],1),\r\n\t\t\t\tPseq([\r\n\t\t\t\t\t1,-2,Pwhite(0,3,1), Pwhite(0,-3,1),\r\n\t\t\t\t],1),\r\n\t\t\t\tPseq([\r\n\t\t\t\t\tPwhite(0,3,8),\r\n\t\t\t\t],1),\r\n\t\t\t],inf),\r\n\t\t),\r\n\t],inf),\r\n\t\\mtranspose, Pstep(Pseq([5,4,2,3],inf),4),\r\n\t\\scale, Scale.major,\r\n\t\\octave, 4,\r\n\t\\dur, 1/4,\r\n\t\\lag, \r\n\t\tPseq([\r\n\t\t\tPseq([0,0],8) / ~t,\r\n\t\t\tPseq([0,1/4 + Pwhite(0,0.01,1)],4) / ~t,\r\n\t\t\tPseq([0,0],4) / ~t,\r\n\t\t\tPseq([0,1/2 + Pwhite(0,0.01,1)],4) / ~t,\r\n\t\t\tPseq([0,0],4) / ~t,\r\n\t\t\tPseq([0,1/8 + Pwhite(0,0.01,1)],4) / ~t,\r\n\t\t\tPseq([0,0],Pwhite(4,8,1)) / ~t,\r\n\t\t\tPseq([0,1/8 + Pwhite(0,0.05,1)],Pwhite(4,8,1)) / ~t,\r\n\t\t],inf),\r\n\t\\adsr, Pseq([\r\n\t\tPrand([\r\n\t\t\t[ Env.adsr(0.005,0.1,1.0,1.8) ],\r\n\t\t\t[ Env.adsr(0.005,0.1,1.0,1.8) ],\r\n\t\t\t[ Env.adsr(0.005,0.1,1.0,1.8) ],\r\n\t\t\t[ Env.adsr(0.005,0.1,1.0,2.0) ],\r\n\t\t\t[ Env.adsr(0.005,0.1,1.8,1.0) ],\r\n\t\t\t[ Env.adsr(0.005,0.1,1.8,0.5) ],\r\n\t\t],1),\r\n\t],inf),\r\n\t\\legato, 0.2,\r\n\t\\isRest, false,\r\n)).play;\r\n)",
   "id" : "1-583",
   "is_private" : null
}