
clear all

nfft = 4096 ;
ampthreshold = -40 ;
max_freq_plot = 4000 ;
render_method = 'fast_1_dot' ;
fft_overlap = fix(nfft*0.5) ;

pathname = 'C:\Documents and Settings\Bruce Land\My Documents\Octave\RA\' ;
fname = 'raspCarl.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])

figure(3); clf
plot(y)