{
   "name" : "Karlambience",
   "author" : "josecaos",
   "ancestor_list" : [],
   "description" : "LIttle acidAmbient piece made with Ndef.",
   "labels" : [
      "ambience",
      "acid",
      "trip"
   ],
   "id" : "1-4U6-Qw8BOViKtB",
   "is_private" : 1,
   "code" : "//written by @joseCao5 //julio2013\r\n//www.soundcloud.com/josecaos\r\n//\"Karlambience\"\r\n//supercollider\r\ns.boot;\r\ns.quit;\r\ns.scope;\r\n////\r\n//evalua out primero\r\n(\r\n~out=Ndef(\\fx,{\r\n\tvar sen1,sen2;\r\n    \t\tOut.ar(0,Compander.ar([sen1=In.ar(20),sen2=In.ar(22)],[sen1,sen2],\r\n\t\t\t\t0.5,0.47,0.11,clampTime:0.01,relaxTime:0.2))\r\n}\r\n);\r\n//\r\n~out.play  \r\n//\r\n)\r\n////despues koala+panda juntos\r\n(\r\n(\r\n~pand=Ndef(\\panda,{\r\n\tvar nota=TChoose.kr(Impulse.kr(0.5),[36,48,51,56,60,64,67,71,74]-1/* -1 para transponer tonalidad a B*/);\r\n    Out.ar(20,\r\n\tPan2.ar(\r\n\t  FreeVerb.ar(\r\n\t\tBPF.ar(\r\n\t\t\tLFTri.ar(nota.midicps,0,0.5)+Pulse.ar(nota.midicps+7,0,0.4)\r\n\t\t\t,Phasor.kr(Impulse.kr(0.0125),0.5,nota,nota*10,0.25),0.2)\r\n\t\t\t,0.98,0.75,0.01),\r\n\t\t[1, -0.9]))\r\n}\r\n).play.lag(0.050);\r\n);\r\n//\r\n(\r\n~koar=Ndef(\\koala,{\r\n\tvar nota=TChoose.kr(Impulse.kr(1),[36,48,51,56,60,64,67,71,74].scramble-1*1.16);\r\n    Out.ar(22,\r\n\tPan2.ar(\r\n\t  FreeVerb.ar(\r\n\t\tBPF.ar(\r\n\t\t\tLFTri.ar(nota.midicps-12,0,0.2)+Pulse.ar(nota.midicps+12,0,0.09)\r\n\t\t\t,Phasor.kr(Impulse.kr(0.5),0.5,nota,nota*12,0.25),0.2)\r\n\t\t\t,0.98,0.75,0.01),\r\n\t\t[1, -0.9]))\r\n}\r\n).play;\r\n);\r\n)\r\n////al final ritmos y atmosfera\r\n(\r\n//cabia las divisiones para modificar el tiempo del sinte\r\n//cambia los valores de: windowSize:pitchshift, modfreq del kick(rate/2,2,[[1.5,0.375],[1.5,0.375]])\r\n//cambiar los segundos del fade in/out \r\n~cielo=Ndef(\\noche,{\r\n\tvar krate=Demand.kr(Impulse.kr(1/16),0,Drand([0.5,1,2,3,4]*2,inf));\r\n\tvar brate=Demand.kr(Impulse.kr(1/8),0,Dxrand([0.125,0.125,0.25,0.5],inf));\r\n\tvar mult=Demand.kr(Impulse.kr(krate/12),0,Dxrand([100,200,300,400,500,600,700,800,1200,1400,1600],inf));\r\n\tvar rate=Demand.kr(Impulse.kr(1/8),0,Dxrand([0.5,1,1.75,2,2.35,3],inf));\r\n\tvar sig,sog,kick,sn,hh;\r\n\tsig=Blip.ar(Pulse.ar(Pulse.ar(brate,0.5,60,60),0.5,120,250),16,0.15)!2;\r\n\tsig=BPF.ar(sig,rate*mult,0.15);\r\n\tsig=Limiter.ar(GVerb.ar(sig,12,brate/0.9,0.1,mul:0.35),0.2);\r\n\tsog=PitchShift.ar(Limiter.ar(sig,0.5),0.9,rate,mul: 0.85);\r\n\tkick=HPF.ar(LFTri.ar(Pulse.ar([[1.5,0.375],[1.5,0.375]],0.5,60,68),0,1),120,0.55);\r\n\tsn=BPF.ar(LFNoise0.kr(krate*2)*PinkNoise.ar(Pulse.kr(rate*2,0.5,0.001,0.015)),8000,0.25,mul:0.5);\r\n\thh=GVerb.ar(BPF.ar(LFNoise0.kr(4)*WhiteNoise.ar(0.015),12000,0.5),1,4,0.1,mul:0.35);\r\n\tOut.ar(0,\r\n\t\tLimiter.ar(\r\n                     Compander.ar([sig,sog]+kick+sn+hh,[sig,sog],\r\n\t\t\t0.7,0.69,0.5,clampTime:0.52,relaxTime:0.05),\r\n\t\tLine.kr(0,0.05,60/*0.001*/))); //fade out/in;time 60<->0.001//cambios rapidos\r\n})\r\n);\r\n////libera las variables\r\n~cielo.clear;   \r\n~cielo.free;\r\n~koar.free;\r\n~pand.free;\r\n//record \r\ns.record;\r\ns.stopRecording; \r\n//      \r\ns.makeWindow;"
}