// fs: samplinc freq
// d : delta (1/fs)
// l : length of music(sec)
// x : sound track
// w : note window
// t : window time
// i : index
// ----------------
// note parameter
// ----------------
// a : attack (sec)
// r : release (sec)
// s : start (sample)
// n : note
// f : frequency
// 

exec("initialize.sce");
for i=0:127
a=.001;
r=.1;
s=i*fs/8;
n=i - int(i/8) * 8;
f=440*2^(int(n/7*12+.8)/12);
x(w+s+1) = x(w+s+1) +  (1-exp(-t/a)) .* exp(-t/r) .* sin(2*%pi*f*t)*.2;
end
play(x);