comparison toolboxes/bioakustik_tools/visualisation/filespecgram.m @ 0:e9a9cd732c1e tip

first hg version after svn

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