{
   "labels" : [
      "chromatic",
      "spiral",
      "espiral",
      "nautilus"
   ],
   "is_private" : null,
   "id" : "1-4Rx",
   "code" : "///////////////// written for hackpact mx. II artgen 1-nov-11\r\n////audio @ http://soundcloud.com/josecaos/el-espiral\r\n/////// melodias cromaticas en espiral\r\n//\r\ns.boot;\r\ns.quit;\r\ns.scope;\r\n(////timbres\r\n(\r\nSynthDef(\\master,{|gate=1,nota|\r\n\tvar in,env;\r\n\t\tin=In.ar([20,22]);\r\n\t\tin=GVerb.ar(in,8,2,0.02);\r\n\t\tin=Limiter.ar(in,0.35);\r\n\t\tenv=EnvGen.ar(Env.asr(0.01,0.98,0.01),gate,doneAction:2);\r\n\tOut.ar(0,Pan2.ar(in*env,[1,-0.9]))\r\n}).add;\r\n);\r\n(\r\nSynthDef(\\timbreuno,{|gate=1,nota|\r\n\tvar tim,env;\r\n\t\ttim=LFTri.ar(nota.midicps,0,0.15);\r\n\t\tenv=EnvGen.ar(Env.perc(0.01,0.25),gate,doneAction:2);\r\n\tOut.ar(20,Pan2.ar(tim*env,[1,-0.9]))\r\n}).add;\r\n);\r\n(\r\nSynthDef(\\timbredos,{|gate=1,nota|\r\n\tvar tom,env;\r\n\t\ttom=LFTri.ar(nota.midicps,mul:0.1);\r\n\t\tenv=EnvGen.ar(Env.perc(0.01,0.25),gate,doneAction:2);\r\n\tOut.ar(22,Pan2.ar(tom*env,[-0.9,1]))\r\n}).add;\r\n);\r\n);\r\n(//////contador\r\n(\r\nTdef(\\espiral,{\r\n\tvar c=0,espiralillo,n=48;\r\n\tvar tiempo=Prand([Pseq([0.125,0.25,0.5,0.75,1].mirror2/2,inf),\r\n\t\t\t\tPseq([0.125,0.25,0.5,0.75,1].scramble/2,inf),\r\n\t\t\t\tPseq([0.125,0.25,0.5,0.75,1].pyramid/2,inf),\r\n\t\t\t\tPseq([0.125,0.25,0.5,0.75,1].stutter/2,inf)\r\n\t\t\t].pyramid).asStream;\r\n\t~master=Synth(\\master);\r\n\t\tinf.do{\r\n\t\t\tc=c+1;\r\n\t\t\tm=12;//modulo//12 para una octava, 24 para 2 octavas\r\n\t\t\tespiralillo=c%m+(n);\r\n\t\t\tespiralillo.postln;//notas en espiral de graves a agudos\r\n\t\t\tif(espiralillo==n,{n=n+1},{n=n});\r\n\t\t\tif(n==96,{n=48},{n=n});//regresa a la primer nota cuando llega a 96.midicps\r\n\t\t        ~sinteuno=Synth(\\timbreuno);\r\n\t\t\t~sinteuno.set(\\nota,espiralillo);\r\n\t\t\ttiempo.next.wait;\r\n};\r\n});\r\n);\r\n(\r\nTdef(\\espiral2,{\r\n\tvar c=0,espiralillo,n=48;\r\n\t\tinf.do{\r\n\t\t\tc=c+1;\r\n\t\t\tm=12;\r\n\t\t\tespiralillo=c%m+(n);\r\n\t\t\tespiralillo.postln;\r\n\t\t\tif(espiralillo==n,{n=n+1},{n=n});\r\n\t\t\tif(n==96,{n=48},{n=n});\r\n\t\t        ~sinteuno=Synth(\\timbredos);\r\n\t\t\t~sinteuno.set(\\nota,espiralillo);\r\n\t\t\t0.125.wait;\r\n};\r\n});\r\n);\r\n);\r\n///*\r\n(\r\nTdef(\\espiral).play;\r\nTdef(\\espiral2).play;\r\n);\r\n(\r\nTdef(\\espiral).stop;\r\nTdef(\\espiral2).stop;\r\n)\r\ns.record\r\ns.stopRecording",
   "name" : "Nautilus",
   "author" : "josecaos",
   "ancestor_list" : [],
   "description" : "Nautilus, melodias cromaticas en espiral"
}