{
   "name" : "Melody",
   "author" : "unknown",
   "description" : "",
   "ancestor_list" : [],
   "labels" : [],
   "code" : "(\r\nSynthDef(\\kick, {\r\n    |out = 0, pan = 0, amp = 0.3|\r\n    var body, bodyFreq, bodyAmp;\r\n    var pop, popFreq, popAmp;\r\n    var click, clickAmp;\r\n    var snd;\r\n\r\n    bodyFreq = EnvGen.ar(Env([261, 120, 51], [0.035, 0.08], curve: \\exp));\r\n    bodyAmp = EnvGen.ar(Env.linen(0.005, 0.1, 0.3), doneAction: 2);\r\n    body = SinOsc.ar(bodyFreq) * bodyAmp;\r\n    popFreq = XLine.kr(750, 261, 0.02);\r\n    popAmp = EnvGen.ar(Env.linen(0.001, 0.02, 0.001)) * 0.15;\r\n    pop = SinOsc.ar(popFreq) * popAmp;\r\n    clickAmp = EnvGen.ar(Env.perc(0.001, 0.01)) * 0.15;\r\n    click = LPF.ar(Formant.ar(910, 4760, 2110), 3140) * clickAmp;\r\n\r\n    snd = body + pop + click;\r\n    snd = snd.tanh;\r\n\r\n    Out.ar(out, Pan2.ar(snd, pan, amp));\r\n}).add;\r\n)\r\n\r\n(\r\nSynthDef(\\hihat, {\r\n    |out = 0, pan = 0, amp = 0.3|\r\n    var click, clickAmp;\r\n    var noise, noiseAmp;\r\n    var snd;\r\n\r\n    noiseAmp = EnvGen.ar(Env.perc(0.001, 0.3, curve: -8), doneAction: 2);\r\n    noise = Mix(BPF.ar(ClipNoise.ar, [4010, 4151], [0.15, 0.56], [1.0, 0.6])) * 0.7 * noiseAmp;\r\n\r\n    snd = noise;\r\n\r\n    Out.ar(out, Pan2.ar(snd, pan, amp));\r\n}).add;\r\n)\r\n\r\n(\r\nSynthDef(\\snare, {\r\n    |out = 0, pan = 0, amp = 0.3|\r\n    var pop, popAmp, popFreq;\r\n    var noise, noiseAmp;\r\n    var snd;\r\n\r\n    popFreq = EnvGen.ar(Env([3261, 410, 160], [0.005, 0.01], curve: \\exp));\r\n    popAmp = EnvGen.ar(Env.perc(0.001, 0.11)) * 0.7;\r\n    pop = SinOsc.ar(popFreq) * popAmp;\r\n    noiseAmp = EnvGen.ar(Env.perc(0.001, 0.15), doneAction: 2);\r\n    noise = BPF.ar(WhiteNoise.ar, 810, 1.6) * noiseAmp;\r\n\r\n    snd = (pop + noise) * 1.3;\r\n\r\n    Out.ar(out, Pan2.ar(snd, pan, amp));\r\n}).add;\r\n)\r\n\r\n(\r\nSynthDef(\"nespulse2\", {arg att = 0.001, sus = 0.1, rel = 0.03, vibspeed = 0, vibdepth = 0, benddepth = 0, freq = 440, benddur = 0.1, wdt = 0.5, amp = 0.3, gate = 1;\r\n\tvar env, vib, freqbend, snd;\r\n\tenv = Env.adsr(att, 0, 1, rel).kr(doneAction: 2, gate: gate);\r\n\tvib = SinOsc.kr(freq: vibspeed, mul: vibdepth);\r\n\tfreqbend = Line.kr(freq - benddepth, freq, benddur);\r\n\tsnd = LFPulse.ar(freqbend + vib, 0, wdt, env * amp)!2;\r\n\tOut.ar(0, snd );\r\n}).add;\r\n)\r\n\r\n//play here\r\n\r\n(\r\n\r\n{\r\n\r\nt = TempoClock(128/60);\r\n\t\r\nPbind(\r\n\t\\instrument, \\kick,\r\n\t\\freq, 60,\r\n\t\\dur, Pseq([2, 2, 2, 2, 1, 1, 1, 1, 0.5, 0.5, 0.5, 0.5, 0.25, 0.25, 0.25, 0.25, 0.125, 0.125, 0.125, 0.125, 0.125, 0.125, 0.125, 0.125, 0.0625, 0.0625, 0.0625, 0.0625, 0.0625, 0.0625, 0.0625, 0.0625]),\r\n\t\\legato, 0.25,\r\n\t\\amp, 0.6\r\n).play(t);\r\n\r\n\t7.75.wait;\r\n\r\nPbind(\r\n\t\\instrument, \\snare,\r\n\t\\degree, 0,\r\n\t\\dur, Pseq([ 1]),\r\n\t\\legato, 0.25,\r\n\t\\amp, 1,\r\n).play(t);\r\n\r\n\tPbind(\r\n\t\\instrument, \\snare,\r\n\t\\degree, 0,\r\n\t\\dur, 2,\r\n\t\\legato, 0.2,\r\n\t\\amp, 0.60\r\n).play(t);\r\n\r\nPbind(\r\n\t\\instrument, \\kick,\r\n\t\\freq, 60,\r\n\t\\dur, 1,\r\n\t\\legato, 0.25,\r\n\t\\amp, 0.50\r\n).play(t);\r\n\r\nPbind(\r\n\t\\instrument, \\kick,\r\n\t\\freq, 40,\r\n\t\\dur, 1,\r\n\t\\legato, 0.25,\r\n\t\\amp, 0.50\r\n).play(t);\r\n\r\nPbind(\r\n\t\\instrument, \\hihat,\r\n\t\\degree, 0,\r\n\t\\dur, 0.25,\r\n\t\\legato, 0.1,\r\n\t\\amp, 0.25\r\n).play(t);\r\n\r\nPbind(\r\n\t\\instrument, \"nespulse2\",\r\n\t\\midinote, Pseq([ 65, 65, 65, 70, 69, 69, 69, 70, 69, 67, 67, 67, 67, 65, 62, 63, 63, 65, 67], inf),\r\n\t\\dur, Pseq([ 0.75, 0.75, 0.50, 0.50, 0.75, 0.75, 0.75, 0.50, 0.50, 0.75, 0.75, 0.75, 0.50, 0.50, 0.75, 0.75, 0.50, 0.50, 0.50], inf),\r\n\t\\legato, 0.75,\r\n\t\\amp, 0.2,\r\n\t\\ctranspose, 0,\r\n).play(t);\r\n\r\nPbind(\r\n\t\\instrument, \"nespulse2\",\r\n\t\\midinote, Pseq([ 65, 65, 65, 70, 69, 69, 69, 70, 69, 67, 67, 67, 67, 65, 62, 63, 63, 65, 67], inf),\r\n\t\\dur, Pseq([ 0.75, 0.75, 0.50, 0.50, 0.75, 0.75, 0.75, 0.50, 0.50, 0.75, 0.75, 0.75, 0.50, 0.50, 0.75, 0.75, 0.50, 0.50, 0.50], inf),\r\n\t\\legato, 0.75,\r\n\t\\amp, 0.05,\r\n\t\\ctranspose, -12,\r\n).play(t);\r\n\r\nPbind(\r\n\t\\midinote, Pseq([ [58, 62, 65], [58, 62, 65], [58, 62, 65], [58, 62, 70], [60, 65, 69], [60, 65, 69], [60, 65, 69], [60, 65, 70], [60, 65, 69], [58, 63, 67], [58, 63, 67], [58, 63, 67], [58, 63, 67], [58, 62, 65], [55, 58, 62],[55, 58, 63], [55, 58, 63], [55, 58, 65], [55, 58, 67]], inf),\r\n\t\\dur, Pseq([ 0.75, 0.75, 0.50, 0.50, 0.75, 0.75, 0.75, 0.50, 0.50, 0.75, 0.75, 0.75, 0.50, 0.50, 0.75, 0.75, 0.50, 0.50, 0.50], inf),\r\n\t\\legato, 0.5,\r\n\t\\amp, 0.6\r\n).play(t);\r\n}.fork;\r\n)",
   "id" : "1-52L",
   "is_private" : null
}