{
   "labels" : [
      "fm",
      "am"
   ],
   "is_private" : null,
   "id" : "1-5aS",
   "code" : "/*\r\nIdea:\r\n- Remixed Coldplay's \"The Scientist\"\r\n- Used an AM for intro\r\n- Used FMs as bass complements & to increase/decrease tempo of composition\r\n- Modified same FM to produce different bass sounds\r\n*/\r\n\r\n\r\n/////////////////\r\n/// SYNTHDEFS ///\r\n/////////////////\r\n\r\n(\r\n//plugin: MdaPiano\r\nSynthDef(\"chords\", { |out=0, freq=440, gate=1, amp=0.5, att=0.1, rel=0.01|\r\n    var son = MdaPiano.ar(freq, gate, release: 0, stereo: 0.3, sustain: 0, mul: amp);\r\n    DetectSilence.ar(son, 0.01, doneAction:2);\r\n    Out.ar(out, son * 0.1);\r\n}).add;\r\n\r\nSynthDef(\"am1\", {arg freq = 440, modfreq = 2, amp = 0.2, att = 0.01, rel = 3;\r\n    var carrier, modulator, env;\r\n    env = Env.perc(\r\n        attackTime: att,\r\n        releaseTime: rel,\r\n        level: amp\r\n    ).kr(2);\r\n    modulator = SinOsc.ar(modfreq).range(0, 1);\r\n    carrier = SinOsc.ar(freq: freq, mul: env * modulator);\r\n    Out.ar(0, carrier ! 2);\r\n}).add;\r\n\r\nSynthDef(\"fm2\", {arg freq = 440, modindex = 10, amp = 0.1, pos = 0, gate = 1, att = 0.01, rel = 0.3;\r\n\tvar carrier, modulator, freqdev, env, modfreq;\r\n\t// i = d/m, so d = m*i\r\n\tmodindex = Line.kr(modindex, 1, att);\r\n\tmodfreq = freq / 2;\r\n\tfreqdev = modfreq * modindex;\r\n\tmodulator = SinOsc.ar(freq: modfreq, mul: freqdev);\r\n\tcarrier = LFTri.ar(freq: freq + modulator); //changed to LFTri\r\n\tenv = Env.asr(\r\n\t\tattackTime: att,\r\n\t\tsustainLevel: amp,\r\n\t\treleaseTime: rel\r\n\t).kr(doneAction: 2, gate: gate);\r\n\tcarrier = Pan2.ar(in: carrier, pos: pos, level: env);\r\n\tOut.ar(0, carrier * 0.5 ! 2);\r\n}).add;\r\n\r\nSynthDef(\"hihat\", {arg out = 0, amp = 0.5, att = 0.01, rel = 0.2, ffreq = 6000, pan = 0;\r\n\tvar env, snd;\r\n\tenv = Env.perc(att, rel, amp).kr(doneAction: 2);\r\n\tsnd = WhiteNoise.ar;\r\n\tsnd = HPF.ar(in: snd, freq: ffreq, mul: env);\r\n\tOut.ar(out, Pan2.ar(snd, pan));\r\n}).add;\r\n\r\n)\r\n\r\n\r\n/////////////////\r\n/// PBINDS ///\r\n/////////////////\r\n(\r\n\r\n~intro = Pbind(\r\n\t\\instrument, \"am1\",\r\n\t\\midinote, Pseq([\r\n\t\tPn([38, 53, 57], 4),\r\n\t\tPn([34, 53, 58], 3),\r\n\t\t[34, 53, 58, 60],\r\n\t\t60,\r\n\t\tPn([41, 53, 57], 4),\r\n\t\tPn([36, 53, 55], 4)\r\n\t], 2),\r\n\t\\dur, Pseq([Pn(1/2,4), Pn(1/2,3), 0.25, 0.25, Pn(1/2,4), Pn(1/2,4)], 2) * 1.5, //slowed down compared to chords\r\n\t\\ctranspose, 12,\r\n\t\\modindex, Pseq([1, 5, 6, 7, 10], inf),\r\n\t\\att, 0.01,\r\n\t\\rel, 0.1,\r\n\t\\amp, 0.5,\r\n\t\\pos, 0\r\n);\r\n\r\n~hihat = Pbind(\r\n\t\\instrument, \"hihat\",\r\n\t\\dur, Pn(1,1),\r\n\t\\att, 0.01,\r\n\t\\rel, 5,\r\n\t\\ffreq, 11000,\r\n\t\\pan, 0,\r\n\t\\amp, 0.3\r\n);\r\n\r\n~chords = Pbind(\r\n\t\\instrument, \"chords\",\r\n\t\\midinote, Pseq([\r\n\t\tPn([38, 53, 57], 4),\r\n\t\tPn([34, 53, 58], 3),\r\n\t\t[34, 53, 58, 60],\r\n\t\t60,\r\n\t\tPn([41, 53, 57], 4),\r\n\t\tPn([36, 53, 55], 4)\r\n\t], 2),\r\n\t\\dur, Pseq([Pn(1,4), Pn(1,3), 0.5, 0.5, Pn(1,4), Pn(1,4)], 2),\r\n\t\\ctranspose, 12,\r\n\t\\att, 0.01,\r\n\t\\rel, 0.1,\r\n\t\\amp, 0.8,\r\n);\r\n\r\n~bass1 = Pbind(\r\n\t\\instrument, \"fm2\",\r\n\t\\midinote, Pseq([\r\n\t\tPn([38, 53, 57], 4),\r\n\t\tPn([34, 53, 58], 3),\r\n\t\t[34, 53, 58, 60],\r\n\t\t60,\r\n\t\tPn([41, 53, 57], 4),\r\n\t\tPn([36, 53, 55], 4)\r\n\t], 2),\r\n\t\\dur, Pseq([Pn(1,4), Pn(1,3), 0.5, 0.5, Pn(1,4), Pn(1,4)], 2),\r\n\t\\ctranspose, 12,\r\n\t\\att, 0.01,\r\n\t\\rel, 0.1,\r\n\t\\amp, 0.05\r\n);\r\n\r\n\r\n~middle = Pbind(\r\n\t\\instrument, \"chords\",\r\n\t\\midinote, Pseq([\r\n\t\t[38, 53, 57],\r\n\t\t62,\r\n\t\tPn([36, 43, 45, 57], 3),\r\n\t\t[36, 43, 45, 57],\r\n\t\t[36, 43, 45, 55],\r\n\t\t[36, 43, 45, 53],\r\n\t\t[36, 40, 43, 52],\r\n\t\tPn([36, 40, 43, 58], 6),\r\n\t\t[36, 40, 43, 58],\r\n\t\t[38, 57],\r\n\t\t[38, 53]\r\n\t], 1),\r\n\t\\dur, Pseq([\r\n\t\t2,\r\n\t\t1,\r\n\t\tPn(1/3, 3),\r\n\t\t1/2,\r\n\t\t1/2,\r\n\t\t1/2,\r\n\t\t4,\r\n\t\tPn(1/2, 6),\r\n\t\t1/2,\r\n\t\t1/2,\r\n\t\t0.75\r\n\t], 1),\r\n\t\\ctranspose, 12,\r\n\t\\att, 0.01,\r\n\t\\rel, 0.1,\r\n\t\\amp, 0.8,\r\n);\r\n\r\n~bass2 = Pbind(\r\n\t\\instrument, \"fm2\",\r\n\t\\midinote, Pseq([\r\n\t\tPn([38, 53, 57], 4),\r\n\t\tPn([34, 53, 58], 3),\r\n\t\t[34, 53, 58, 60],\r\n\t\t60,\r\n\t\tPn([41, 53, 57], 4),\r\n\t\tPn([36, 53, 55], 4)\r\n\t], 3),\r\n\t\\dur, Pseq([Pn(1,4), Pn(1,3), 0.5, 0.5, Pn(1,4), Pn(1,4)], 3) * 1/2,\r\n\t\\ctranspose, 12,\r\n\t\\att, 0.1,\r\n\t\\rel, 0.05,\r\n\t\\amp, 0.05\r\n);\r\n\r\n(\r\n~end = Pbind(\r\n\t\\instrument, \"chords\",\r\n\t\\midinote, Pseq([\r\n\t\tPn([38, 53, 57], 4),\r\n\t\tPn([34, 53, 58], 3),\r\n\t\t[34, 53, 58, 60],\r\n\t\t60,\r\n\t\tPn([41, 53, 57], 4),\r\n\t\tPn([36, 53, 55], 4)\r\n\t], 1),\r\n\t\\dur, Pseq([Pn(1,4), Pn(1,3), 0.5, 0.5, Pn(1,4), Pn(1,4)], 1),\r\n\t\\ctranspose, 12,\r\n\t\\att, 0.01,\r\n\t\\rel, 0.1,\r\n\t\\amp, 0.8,\r\n)\r\n);\r\n\r\n~bass3 = Pbind(\r\n\t\\instrument, \"fm2\",\r\n\t\\midinote, Pseq([\r\n\t\tPn([38, 53, 57], 4),\r\n\t\tPn([34, 53, 58], 3),\r\n\t\t[34, 53, 58, 60],\r\n\t\t60,\r\n\t\tPn([41, 53, 57], 1),\r\n\t], 1),\r\n\t\\dur, Pseq([Pn(1,4), Pn(1,3), 0.5, 0.5, Pn(1,1)], 1) * 2,\r\n\t\\ctranspose, 12,\r\n\t\\att, 0.1,\r\n\t\\rel, 0.05,\r\n\t\\amp, 0.05\r\n);\r\n\r\n)\r\n\r\n\r\n/////////////////\r\n/// SEQUENCE  ///\r\n/////////////////\r\n(\r\nt = TempoClock(76/60);\r\n{\r\n\r\n\t~clock.play(t);\r\n\t18.wait(t);\r\n\t~hihat.play(t);\r\n\t2.wait(t);\r\n\t~chords1.play(t);\r\n\t~bass1.play(t);\r\n\t12.wait(t);\r\n\t~bass2.play(t);\r\n    13.wait(t);\r\n\t~middle.play(t);\r\n\t11.wait(t);\r\n\t~end.play(t);\r\n\t1.wait(t);\r\n\t~bass3.play(t);\r\n\r\n}.fork;\r\n)",
   "author" : "tsonker",
   "name" : "\"The Scientist\" - Coldplay  [MUSC 115: Modulations]",
   "ancestor_list" : [],
   "description" : "Remixed Coldplay's \"The Scientist\" mainly through amplitude modulation and frequency modulation for a sound design class assignment.\r\n\r\nSoundCloud: https://soundcloud.com/tanya-sonker/the-scientist-coldplay\r\n\r\nOriginal: https://www.youtube.com/watch?v=RB-RcX5DS5A"
}