91 lines
1.6 KiB
Matlab
Executable File
91 lines
1.6 KiB
Matlab
Executable File
function eval_blit()
|
|
|
|
sinc_use_lut = 1
|
|
|
|
L = 96000;
|
|
fs = 48000;
|
|
fstart = 220;
|
|
fend = 880;
|
|
df = (fend-fstart)/L
|
|
|
|
# for saw
|
|
rho = 1.0;
|
|
|
|
nhw = 4096;
|
|
Hw = kaiser(nhw, 8)';
|
|
|
|
max_m = fix((fs/fstart/2.0)) + 1
|
|
|
|
if sinc_use_lut == 1
|
|
nharm = max_m
|
|
nsin = 1024;
|
|
xx = (0:nsin)/nsin - 0.5;
|
|
mmm=0;
|
|
for mm=1:nharm,
|
|
mmm=mmm+1;
|
|
bb(mm, :) = sin(mmm*xx*pi);
|
|
end;
|
|
aa = sin(xx*pi);
|
|
end;
|
|
|
|
x = 0.5;
|
|
z = -1;
|
|
f = fstart;
|
|
sqr = 0.0;
|
|
saw = 0.0;
|
|
tri = 0.0;
|
|
a = 1;
|
|
b = 1;
|
|
|
|
for n = 1:L,
|
|
|
|
if x >= 0.5,
|
|
x = x - 1;
|
|
p = fs/f;
|
|
fraq = 1.0/p;
|
|
m = fix((p/2.0)) + 1;
|
|
z = -z;
|
|
end;
|
|
if sinc_use_lut == 1
|
|
nn = (x+0.5)*nsin + 1;
|
|
ni = fix(nn);
|
|
nf = nn - ni;
|
|
b = (bb(m, ni+1) - bb(m, ni))*nf + bb(m, ni); % Fractional delay (linear interpolation)
|
|
a = (aa(ni+1) - aa(ni))*nf + aa(ni); % Fractional delay (linear interpolation)
|
|
else
|
|
b = sin(m*x*pi);
|
|
a = sin(x*pi);
|
|
end
|
|
|
|
if (a ~= 0)
|
|
blit = fraq * b/a * Hw(fix((x+0.5)*nhw)+1);
|
|
else
|
|
blit = fraq;
|
|
end
|
|
|
|
saw = rho*saw + (fraq - blit);
|
|
sqr = sqr + z*blit;
|
|
tri = tri + 2*(sqr-0.5)*fraq;
|
|
vtri(n) = tri;
|
|
vsaw(n) = saw;
|
|
vsqr(n) = 2*(sqr - 0.5);
|
|
vblit(n) = blit;
|
|
x = x + fraq;
|
|
f = f + df;
|
|
end;
|
|
|
|
|
|
close all
|
|
|
|
figure;
|
|
plot(1:L, vsaw, 1:L, vblit); grid;
|
|
|
|
N_UNDC = fs/100;
|
|
|
|
a, b = undcc(N_UNDC);
|
|
wavwrite(0.5*filter(b, a, vtri), fs, 'tri.wav');
|
|
wavwrite(0.5*filter(b, a, vsqr), fs, 'sqr.wav');
|
|
wavwrite(0.5*filter(b, a, vsaw), fs, 'saw.wav');
|
|
wavwrite(0.5*vblit, fs, 'blit.wav');
|
|
|