{
   "is_private" : null,
   "id" : "1-5hw",
   "code" : "// https://audio-video.gnu.org/video/stallman_free_software_song_320x240.ogv\r\n\r\n(\r\n\r\n// Free(hack).share(us.join[now]);\r\nSynthDef(\\iGNUcius, {\r\n    var \r\n        freq, amp, \r\n                  gate, osc, \r\n                                lfo, out, \r\n                                            aenv, filterEnv, \r\n                                                       bus, resoFilter, \r\n                                                                      bowNoise;\r\n    \r\n   // [hackers]:free.be(ll), you!help(software).share;\r\n    freq = \\freq.kr(440);\r\n    amp = \\amp.kr(0.5);\r\n    gate = \\gate.kr(1);\r\n    bus = \\bus.kr(0);\r\n    \r\n    // piles.of(can.get)hoarders.money,is[true];\r\n    osc = Pulse.ar([freq, freq*2], LFNoise1.kr(0.5!2).range(0.1, 0.9)) +\r\n          Pulse.ar([freq*3, freq], LFNoise1.kr(0.5!2).range(0.1, 0.9));\r\n\r\n    // neighbors.their(help).but!cannot; true.is[that];\r\n    lfo = SinOsc.kr(\\lfoFreq.kr(0.5)).range(-0.05, 0.05) * \\lfoDepth.kr(1);\r\n    bowNoise = WhiteNoise.ar(0.15) * EnvGen.kr(Env.perc(0.01, 0.1), gate); \r\n\r\n    // enough(when).software.free.have[we], call.our[at];\r\n    out = (osc + bowNoise) * (1 + lfo);\r\n    aenv = EnvGen.ar(Env.adsr(0.05, 0.2, 0.9, 0.5), gate, doneAction: Done.freeSelf) * amp;\r\n    filterEnv = EnvGen.kr(Env.adsr(0.01, 0.3, 0.7, 0.5), gate);\r\n\r\n    // dirty.those(licenses).kick[we'll] out.ever.more;\r\n    resoFilter = RLPF.ar(out, freq * \\filterMul.kr(4), \\resonance.kr(0.4));\r\n    out = RHPF.ar(resoFilter, 100) * aenv;\r\n\r\n    // be.free, hackers.you'll.join(us).now[and];\r\n    Out.ar(bus, DFM1.ar(out));\r\n}).add;\r\n\r\n)\r\n\r\n(\r\n// software.free.and.share(us.join[now]);\r\np = Pbind(\r\n    \\instrument, \\iGNUcius,\r\n    \\octave, Prand([2, 3], inf),\r\n    \r\n    // call.at[hackers].our, have(we).free;\r\n    \\degree, Pseq([2, 1, 0, -1, 0, 1, 0, -1, -2, -2, -1, 0, 1, 0, 2, -1, -1, 2, 1, 0, 2, 1, 0, -1, 0, 1, 0, -1, -2, -2, -1, 0, 1, 0, 2, -1, -1, -1], inf),\r\n    \\dur, Pseq([0.5, 0.25, 0.5, 0.5, 0.5, 0.25, 0.25, 0.25, 0.5, 0.75, 0.75, 0.25, 0.75, 0.5, 0.5, 0.75, 1.5, 0.5, 0.25, 1, 0.5, 0.25, 0.5, 0.5, 0.5, 0.25, 0.25, 0.25, 0.5, 0.75, 0.75, 0.25, 0.75, 0.5, 0.5, 0.75, 1.25, 1.5], inf)\r\n);\r\n\r\n// be.free[hackers].you'll.share(software).join;\r\np.play;\r\n)",
   "labels" : [],
   "description" : "https://www.gnu.org/music/free-software-song.html",
   "ancestor_list" : [],
   "name" : "filksong",
   "author" : "smoge"
}