叩いた瞬間だけしか音が出ないのも味気ないので、エンベローブでサスティーンを効かせてみた。
いろいろ凝ったことをしたいので、しばらく、SuperColliderで遊んでみようと思う。
S/N比?とか、ソーラーパネルのレーザーピックアップよりいいので、これでも、ギターの音が拾えた。
サウンド技術のことはよく分からないままだけど、楽しいものだというのを少しずつ実感している。
s = Server.local;
s.boot;
(
SynthDef(\SP_100, { arg out=0, in=0;
var input, mixed, local ,mixed_out ,cutoff, chain, env, output;
cutoff = MouseX.kr( 20, 1000, 1 );
input = SoundIn.ar(in, 1);
local = LocalIn.ar(1);
mixed_out = BPF.ar( input, 100, cutoff, 1); //RLPF,RHPFでもためしてみてください
chain = FFT(LocalBuf([2048, 2048]), mixed_out);
chain = PV_BinWipe(chain,SinOsc.kr(0.001));
chain = PV_Diffuser(chain,SinOsc.kr(0.001));
chain = PV_ConformalMap(chain,SinOsc.kr(0.001));
chain = PV_BinScramble(chain,SinOsc.kr(0.001));
// LocalOut.ar(mixed_out);
output = IFFT(chain);
env = EnvGen.kr(Env.perc(0.05, 5.0, 26.5), input, 0.1);
Out.ar([out, out+1],output * env);
}).play;
)