
clear all

nfft = 128 ;
ampthreshold = -40 ;
max_freq_plot = 16000 ;
render_method = 'color_1_dot' ;
fft_overlap = fix(nfft*0.9) ;

pathname = 'C:\Documents and Settings\Bruce Land\My Documents\My Music\';
fname='N7_07B31A_081707_0903_34_beg_medley.wav';
[y,Fs] = wavread([pathname,fname]);

%y = y(21000:31000,1);
y = y(fix(2.05*Fs):fix(2.30*Fs),1) ;

figure(1);clf;
specgram(y(:,1),nfft,Fs,[], fft_overlap);
colormap gray
set(gca,'ylim', [0 max_freq_plot])

figure(2);clf;
raspecgram(y(:,1), nfft, Fs, [], fft_overlap, ampthreshold, render_method);
set(gca,'ylim', [0 max_freq_plot])