教員の作品
授業中に教員が作成した作品です。音だけ聞きたい方はこちらのページでPC22T01.m4aでお聞きください。
プログラムを実行してみたい人は、sample.zip を解凍し、適当なフォルダに置いて、program9.sce をscilabで実行してください。
プログラムは以下の通りたったの21行です。実行には 作業ディレクトリにinitialize.sceが置いてあることが必要です。initialize.sceは上記sample.zipに入っています。
exec("initialize.sce");
x(120000)=0;
// メロディ1
i=0:96;
c=int(i/16)-int(i/32)*2;
d=c/7*12-int(c/7*12);
w=0:fs;t=w/fs;
a=(1-exp(-t/0.01));
for kk=1:6
r=exp(-t/0.1/kk);
for i=1:kk:96
s=int(i*fs/6);
k=i-int(i/4)*4;
m=k;
n=int(m/7*12 + 0.4 + d(i+1)-kk*2);
f=440*2^(n/12);
m=sin(2*%pi*f*t).*sin(20*t)*(kk-0.9);
x(w+s+1)=x(w+s+1)+a.*r.* sin(2*%pi*f*t+m)*.2;
end
end
//再生
play(x);