wolffd@0: function out=filespecgram(working_file, varargin)
wolffd@0: 
wolffd@0: [starts,stops, unused]=process_options(varargin,'starts',0,'stops',-1);
wolffd@0: 
wolffd@0: 
wolffd@0: filesize=wavread(working_file,'size');
wolffd@0: audiodatalen=filesize(1);
wolffd@0: num_channels=filesize(2);
wolffd@0: [src,sr,bits] = wavread(working_file,[1 2]);
wolffd@0: 
wolffd@0: 
wolffd@0: startspl=max(1,starts*sr);
wolffd@0: if stops =-1,
wolffd@0:     stopspl=audiodatalen;
wolffd@0: else
wolffd@0:     stopspl=max(1,starts*sr);
wolffd@0: end
wolffd@0:  
wolffd@0: sgram=dataspecgram(src(startspl:stopspl,1),'sr',sr);