«Periodic Carillion» by mimetikmusic

on 23 Dec'12 08:57 in periodic ambient study

A little experiment with periodicity.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
/* 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;
raw 571 chars (focus & ctrl+a+c to copy)
reception
comments
Bjorn Westergard user 27 Dec'12 18:21

This is cool.

mimetikmusic user 29 Dec'12 13:45

Thanks!