{
   "id" : "1-5dg",
   "is_private" : null,
   "code" : "// Rhythm-Experiment for sambalike patterns. The goal are cyclic patterns that accelerate in asymetrical way inside one cycle.\r\n\r\n// Masterclock is a LFSaw that's bent via lincurve with the \"swing\"-argument.\r\n// Speed is in Hz.\r\n\r\n// Behaves asymetrial.\r\n// swing = 0 is linear. Negative values shift things towards start, positive values towards end of cycle.\r\n\r\n// The masterclock is chopped with the \"div\"-argument in shorter parts for each instrument.\r\n// Negative values and zero for \"div\" should be avoided.\r\n\r\n// The raw clock-signals control the instruments. More organic than classic triggers and envelopes, but strange sometimes.\r\n\r\n// Default volumes of intruments are high for saturation and distortion.\r\n\r\ny=Synth(\\polyswingasym)\r\ny.free\r\n\r\ny.set(\\swing,0.5);\r\n\r\n\r\ny.set(\\speed,1);\r\n\r\ny.set(\\kickv,86);\r\ny.set(\\snrv,72);\r\ny.set(\\hhv,111);\r\ny.set(\\tmv,64);\r\ny.set(\\clvv,30);\r\ny.set(\\wdv,20);\r\n\r\ny.set(\\deckick,6);\r\ny.set(\\decsnr,4);\r\n\r\n\r\ny.set(\\div1,2);\r\ny.set(\\div2,3);\r\ny.set(\\div3,5);\r\ny.set(\\div4,6);\r\ny.set(\\div5,7);\r\ny.set(\\div6,4);\r\n\r\ny.set(\\frqkick,65);\r\ny.set(\\frqtm,195);\r\n\r\n\r\n(\r\nSynthDef(\\polyswingasym,{\r\n\r\n\targ frqkick=45, frqtm=135, reskick=0.05, deckick=4, decsnr=4, speed=1, swing=0.5, div1=2, div2=3, div3=4, div4=6, div5=8, div6=3, out=0, kickv=86, snrv=74, hhv=110, tmv=70, clvv=30, wdv=100;\r\n\r\n\tvar sig, master, master2, trig1, trig2, trig21, trig3, trig4, trig5, trig6,\r\n\tkick,envkick,snr,envsnr,hh,tm,clv,wd;\r\n\r\n\tmaster = LFSaw.ar(speed,pi,0.5,0.5).lincurve(0,1,0,1,swing);\r\n\r\n\ttrig1 = (master%(1/div1))*div1;\r\n\ttrig2 = (master%(1/div2))*div2;\r\n\ttrig3 = (master%(1/div3))*div3;\r\n\ttrig4 = (master%(1/div4))*div4;\r\n\ttrig5 = (master%(1/div5))*div5;\r\n\ttrig6 = (master%(1/div6))*div6;\r\n\r\n\tenvkick = (((trig1.neg+1).lincurve(0,1,0,1,deckick).cubed*2)+1).lag(0.001);\r\n\r\n\tenvsnr = ((trig2.neg+1).lincurve(0,1,0,1,decsnr).cubed).lag(0.001);\r\n\r\n\tkick= Resonz.ar(trig1,frqkick*envkick,0.005,kickv);\r\n\tsnr=  (Resonz.ar(trig2,222,0.02,4)+WhiteNoise.ar(0.01)+Dust2.ar(123,0.01))*envsnr.tanh*snrv;\r\n\thh= RHPF.ar(Mix.new(Resonz.ar(trig3,Array.linrand(11,4000,6500),0.0005)),2400,0.4,hhv);\r\n\ttm= Resonz.ar(trig4,frqtm,0.03,tmv);\r\n\tclv= HPF.ar(Mix.new(Resonz.ar(trig5,Array.linrand(9,500,3500),0.01,clvv)),700);\r\n\twd= Resonz.ar(trig6,850,0.04,wdv);\r\n\r\n\tsig = kick+snr+hh+tm+clv+wd;\r\n\r\n\tOut.ar(out,LeakDC.ar(sig!2).tanh);\r\n}).add;\r\n)",
   "labels" : [
      "drums",
      "samba",
      "swing",
      "groove",
      "drummachine"
   ],
   "description" : "Rhythm-Experiment for sambalike patterns. The goal are cyclic patterns that accelerate in asymetrical way inside one cycle.",
   "ancestor_list" : [],
   "name" : "Polyswing_asym",
   "author" : "bernhard"
}