{
   "labels" : [],
   "is_private" : null,
   "id" : "1-5gI",
   "code" : "(\r\n~divisors = {\r\n\targ n;\r\n\t~divs = List.newClear(0);\r\n\tfor( 1, floor(sqrt(n)), {arg i; if(n%i==0,{\r\n\t\t\ti.postln;\r\n\t\t\t~divs.add(i);\r\n\t\t\t(i==n.div(i)).postln;\r\n\t\t\tif(i==n.div(i),{},{~divs.add(n.div(i))});\r\n\t\t   },{});\r\n\t\t});\r\n\t~divs.sort;\r\n\t~divs;\r\n};\r\n\r\nSynthDef(\\divsynth, { |out=0,divs = #[1],amp=1,sustain=1|\r\n    var l,sig,env,n,sortedDivs;\r\n    l = divs;\r\n\tn = divs.at(divs.size-1);\r\n\tsig = SinOsc.ar(1, 0, 0);\r\n\tl.do({ arg item, i;\r\n        d = item;\r\n\t\tsig = sig+SinOsc.ar(d, 0, amp );\r\n\t});\r\n\tsig = sig*EnvGen.kr(Env.linen(0.001, sustain, 0.1), doneAction: Done.freeSelf);\r\n    Out.ar(out, sig ! 2)\r\n}).add;\r\n\r\nr =Ppar([\r\n\t     Pbind(\\instrument,\\divsynth,\r\n\t      \\amp,0.065,\r\n\t      \\dur,Pseq(all{:1/log(x),x<-(1000..1002)},inf),\r\n\t     \\divs,Pseq(all{:~divisors.value(x),x<-(1000..1002)},3*5),\r\n\t\t\t\\sustain,Pseq(all{:log(x)/sqrt(x),x<-(1000..1002)},3*5)\r\n         ),\r\n\t   Pbind(\\instrument,\\divsynth,\r\n\t      \\amp,0.065,\r\n\t      \\dur,Pseq(all{:1/log(x),x<-(1000..1003)},inf),\r\n\t     \\divs,Pseq(all{:~divisors.value(x),x<-(1000..1003)},2*5),\r\n\t    \\sustain,Pseq(all{:log(x)/sqrt(x),x<-(1000..1003)},2*5)\r\n         ),\r\n\t   Pbind(\\instrument,\\divsynth,\r\n\t      \\amp,0.065,\r\n\t      \\dur,Pseq(all{:1/log(x),x<-(1000..1005)},inf),\r\n\t     \\divs,Pseq(all{:~divisors.value(x),x<-(1000..1005)},2*3),\r\n\t\t\t\\sustain,Pseq(all{:log(x)/sqrt(x),x<-(1000..1005)},2*3)\r\n\t)],1);\r\n\r\ns =Ppar([\r\n\t     Pbind(\\instrument,\\divsynth,\r\n\t      \\amp,0.065,\r\n\t\t\t\\dur,Pseq(all{:1/(2*log(x)),x<-(500..502)},inf),\r\n\t     \\divs,Pseq(all{:~divisors.value(x),x<-(500..502)},3*5)\r\n         ),\r\n\t   Pbind(\\instrument,\\divsynth,\r\n\t      \\amp,0.065,\r\n\t      \\dur,Pseq(all{:1/(2*log(x)),x<-(500..503)},inf),\r\n\t     \\divs,Pseq(all{:~divisors.value(x),x<-(500..503)},2*5)\r\n         ),\r\n\t   Pbind(\\instrument,\\divsynth,\r\n\t      \\amp,0.065,\r\n\t      \\dur,Pseq(all{:1/(2*log(x)),x<-(500..505)},inf),\r\n\t     \\divs,Pseq(all{:~divisors.value(x),x<-(500..505)},2*3)\r\n\t)],1);\r\n\r\n\r\nt =Ppar([\r\n\t     Pbind(\\instrument,\\divsynth,\r\n\t      \\amp,0.065,\r\n\t\t\t\\dur,Pseq(all{:1/(3*log(x)),x<-(1000..1002)},inf),\r\n\t     \\divs,Pseq(all{:~divisors.value(x),x<-(1000..1002)},3*5),\r\n\t\t\\sustain,Pseq(all{:log(x)/sqrt(x),x<-(1000..1002)},3*5)\r\n         ),\r\n\t   Pbind(\\instrument,\\divsynth,\r\n\t      \\amp,0.065,\r\n\t      \\dur,Pseq(all{:1/(3*log(x)),x<-(1000..1003)},inf),\r\n\t     \\divs,Pseq(all{:~divisors.value(x),x<-(1000..1003)},2*5),\r\n\t\t \\sustain,Pseq(all{:log(x)/sqrt(x),x<-(1000..1003)},2*5)\r\n         ),\r\n\t   Pbind(\\instrument,\\divsynth,\r\n\t      \\amp,0.065,\r\n\t      \\dur,Pseq(all{:1/(3*log(x)),x<-(1000..1005)},inf),\r\n\t     \\divs,Pseq(all{:~divisors.value(x),x<-(1000..1005)},2*3),\r\n\t\t\\sustain,Pseq(all{:log(x)/sqrt(x),x<-(1000..1005)},2*3)\r\n\t)],1);\r\n\r\nm = Pseq([Pseq([s],1),\r\n\tPseq([t],1),\r\n\tPpar([t,s],2),\r\n\tPseq([r],3),\r\n\t  Ppar([r,s],1),\r\n\t  Ppar([t,r],2),\r\n\tPpar([r,s,t],3),\r\n\tPpar([t,r],2),\r\n\tPpar([r,s],1),\r\n\tPseq([r],1)\r\n],inf);\r\n\r\nx= m.play(TempoClock(40/60));\r\n\r\n);",
   "name" : "Underwater",
   "author" : "Muse Score",
   "description" : "This is my first piece of music in the world of supercollider. \r\n\r\nhttps://www.youtube.com/watch?v=lpAUKkNgqhU",
   "ancestor_list" : []
}