{
   "name" : "Stockmarket Sonification",
   "author" : "telephon",
   "ancestor_list" : [],
   "description" : "",
   "labels" : [
      "mood music",
      "money"
   ],
   "id" : "1-m",
   "is_private" : null,
   "code" : "(\r\nSynthDef(\\dollar, { |out, freq = 440, amp = 0.1, pan = 0, sustain = 1.0|\r\n\tvar env = EnvGen.kr(Env([amp, amp, 0], [sustain, 0.01]), doneAction: 2);\r\n\tvar decay = freq ** -0.5 * 100;\r\n\tvar string = CombL.ar(Decay2.ar(Impulse.ar(0), 0.0001, 0.001), 1/freq, 1/freq, decay);\r\n\tvar damped = string; //LPF.ar(string, Line.kr(11000, 3000, decay));\r\n\tOffsetOut.ar(out, Pan2.ar(damped * env, pan));\r\n}).add;\r\n);\r\n\r\n(\r\nSynthDef(\\euro, { |out, freq = 440, amp = 0.1, pan = 0, sustain = 1.0|\r\n\tvar env = EnvGen.kr(Env.perc(0.001, sustain), doneAction: 2);\r\n\tvar decay = freq ** -0.5 * 100;\r\n\tvar thing;\r\n\tfreq = freq * (1..7).nthPrime;\r\n\tthing = SinOsc.ar(freq , 0, amp * AmpComp.kr(freq)).mean;\r\n\tOffsetOut.ar(out, Pan2.ar(thing * env, pan));\r\n}).add;\r\n);\r\n\r\n\r\n(\r\nPdef(\\stock, { |note = 0, sustain = 1|\r\n\tPbind(\r\n\t\t\\instrument, [\\dollar, \\euro].choose,\r\n\t\t\\note, note.value + Pseq((12..0).curdle(0.1).scramble.flat * 3), \r\n\t\t\\dur, sustain.value / 12\r\n\t)\r\n})\r\n);\r\n\r\n(\r\nPdef(\\ett, \r\n\tPbind(\r\n\t\t\\type, \\phrase,\r\n\t\t\\instrument, \\stock,\r\n\t\t\\dur, 4,\r\n\t\t\\legato, Prand((1..5), inf),\r\n\t\t\\note, Prand((0..12), inf) + Prand([[0, 2], [0, 6], [0, 7], 0, 0], inf)\r\n\t)\r\n).play\r\n)"
}