ファミマの来店音をスーパーコライダーで作る

1. 来店音とそのmidiをネットで探す。
2. Sonic Visualiserでスペクトラム分析
3. RoseGardenでmidiを開いて、ノートナンバーを見る
4. Ubuntu にて　supercollider IDEで作る
5. アタック部分が10ヘルツくらい滲んでいるので、それを足す。
6. メロディの配列をpyramid(1)で崩すと、自動アレンジになる

(
SynthDef(\chaim,{arg freq1=796,freq3=0;
var sig,sig2,low,low2;
sig=LFPulse.ar(freq1) * EnvGen.ar(Env.perc(0.05, 1, 0.5 ));
sig2=LFPulse.ar(freq1-15.rand) * EnvGen.ar(Env.perc(0.005, 0.1, 0.2 ));
low=LFPulse.ar(freq3) * EnvGen.ar(Env.perc(0.05, 1, 0.5 ));
low2=LFPulse.ar(freq3-15.rand) * EnvGen.ar(Env.perc(0.005, 0.1, 0.2 ));
//sig=(sig)/2;
//low=(low)/2;
//sig=(sig+low)/2;
Out.ar([0,1],Splay.ar([sig,sig2,low2,low]/4))

}).add
)

(
p = Ppar(
 [Pbind(  \instrument, \chaim,
\freq1,Pseq(([78,74,69,74,76,81,76,78,76,69,74].midicps).pyramid(1),inf),
\dur,Pseq(([1,1,1,1,1,3,1,1,1,1,4]/3),inf)),
Pbind(  \instrument, \chaim,
\freq3,Pseq(([\,66,73,64,69,69,66].midicps),inf),
\dur,Pseq(([2,2,3,1,2,2,4]/3),inf)
)]
).play;
)