ポーン
で、作ったsuilibで早速遊んでみます。
exec "suilib.sci"; index=[0:6*sec]; // create 6 sec length index array. playsnd( sin(440*Hz*index) .* exp(-2*[index]/sec) );
playsndの引数の後半がエンベロープを作りだしています。指数関数的に減衰するのでポーンという音になります。
もうちょっといたずら。
exec "suilib.sci" idxpo=[0:1*sec]; // create 1 sec length index array. idxpon=[0:3*sec]; // create 3 sec length index array. po= sin(440*Hz*idxpo) .* exp(-8*[idxpo]/sec); pon= sin(880*Hz*idxpon) .* exp(-3*[idxpon]/sec); playsnd([ po po po pon ]);
こんばんは、7時のNHKニュースです。