Harmonicism

clean-up: #50

Found more old SuperCollider code laying around... This little lambdoma experiment was based on this Cymatic Music video.

//--8x8 lambdoma matrix
a= [
  1/1, 2/1, 3/1, 4/1, 5/1, 6/1, 7/1, 8/1,

  1/2, 2/2, 3/2, 4/2, 5/2, 6/2, 7/2, 8/2,

  1/3, 2/3, 3/3, 4/3, 5/3, 6/3, 7/3, 8/3,

  1/4, 2/4, 3/4, 4/4, 5/4, 6/4, 7/4, 8/4,

  1/5, 2/5, 3/5, 4/5, 5/5, 6/5, 7/5, 8/5,

  1/6, 2/6, 3/6, 4/6, 5/6, 6/6, 7/6, 8/6,

  1/7, 2/7, 3/7, 4/7, 5/7, 6/7, 7/7, 8/7,

  1/8, 2/8, 3/8, 4/8, 5/8, 6/8, 7/8, 8/8
];

//--simplified
a= {|x| {|y| y+1/(x+1)}.dup(8)}.dup(8).flat;

s.boot
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((0,1..7)))).play
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((0,8..63)))).play
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((8,9..15)))).play
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((32,33..39)))).play
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((48,49..55)))).play
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((56,57..63)))).play

Pbind(\dur, 0.125, \freq, 60.midicps*Pseq(a)).play

//--16x16 lambdoma matrix
b= {|x| {|y| y+1/(x+1)}.dup(16)}.dup(16).flat;
Pbind(\dur, 0.125, \freq, 60.midicps*Pseq(b)).play