インターホンのピンポンをスーパーコライダーで作る

1. インターホンのピンポン音をネットで探す。
2. prratでスペクトラム分析。
3. supercollider IDEで作る。

発音間隔を短くすると、クイズの正解ピンポンになる。

SynthDef(\pinpong,{arg freq1=683,freq2=22047,freq3=3416,freq4=0;
var in;
in=Klang.ar(`[ [freq1, freq2, freq3,freq4], [0.3, 0.3, 0.3,0.1], [pi, pi, pi,pi]], 1, 0) * 0.4*EnvGen.kr(Env.perc,doneAction: 2);
Out.ar(0,in)
}).add

Pbind(\instrument,\pinpong,
\freq1,Pseq([855,683],4),
\freq2,Pseq([2563,2047],4),
\freq3,Pseq([4273,3416],4),
\freq4,Pseq([\,4808],4),
\dur,0.1

).play