Fork Code: Periodic Carillion

name

code content

/* An little experiment with periodicity. 
      Maybe there can be some sync artifact...
 */

s.boot;

SynthDef(\mallet,{arg in=0,out=0,f=0,f2=0,a=0.1,r=1.8;

         var sig=Array.fill(3,{|n| SinOsc.ar(f*(n+1),mul:a/(n*n+1))}).sum;
         var env=EnvGen.kr(Env.perc(0.001,r),gate:Impulse.kr(f2),doneAction:0);

Out.ar(out,sig*env!2);
};
).add;

~root=60;
~degrees=[0,4,5,7,9,12,16,17,19,21].scramble;
~num=10;
~coeff=0.75;

Array.fill(~num,{|n| Synth.new(\mallet,[\f:(~root +~degrees[n]).midicps,\a:0.2/~num,\f2:(1+(n*~coeff))*0.1])});

s.quit;

code description use markdown for formating

category tags comma separated, i.g. "wild, siren" (do not enter default SC class names, please)

ancestor(s) comma separated identificators, i.g. "1-C,1-1,1-4M,1-x"

Private? the code will be accessible by direct url and not visible in public activity

comment of change