2010-09-21 17:35:41 +00:00
|
|
|
% Copyright David Rowe 2009
|
|
|
|
|
% This program is distributed under the terms of the GNU General Public License
|
|
|
|
|
% Version 2
|
2012-12-21 02:08:42 +00:00
|
|
|
%
|
|
|
|
|
% Plots a raw speech sample file, you can optionally specify the start and end
|
|
|
|
|
% samples and create a large and small PNGs
|
2010-09-21 17:35:41 +00:00
|
|
|
|
|
|
|
|
function pl(samname1, start_sam, end_sam, pngname)
|
|
|
|
|
|
|
|
|
|
fs=fopen(samname1,"rb");
|
|
|
|
|
s=fread(fs,Inf,"short");
|
|
|
|
|
|
|
|
|
|
st = 1;
|
|
|
|
|
en = length(s);
|
|
|
|
|
if (nargin >= 2)
|
|
|
|
|
st = start_sam;
|
|
|
|
|
endif
|
|
|
|
|
if (nargin >= 3)
|
|
|
|
|
en = end_sam;
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
figure(1);
|
|
|
|
|
clf;
|
|
|
|
|
plot(s(st:en));
|
2012-12-21 02:08:42 +00:00
|
|
|
axis([1 en-st 1.1*min(s) 1.1*max(s)]);
|
2010-09-21 17:35:41 +00:00
|
|
|
|
|
|
|
|
if (nargin == 4)
|
|
|
|
|
|
|
|
|
|
% small image
|
|
|
|
|
|
|
|
|
|
__gnuplot_set__ terminal png size 420,300
|
|
|
|
|
ss = sprintf("__gnuplot_set__ output \"%s.png\"", pngname);
|
|
|
|
|
eval(ss)
|
|
|
|
|
replot;
|
|
|
|
|
|
|
|
|
|
% larger image
|
|
|
|
|
|
|
|
|
|
__gnuplot_set__ terminal png size 800,600
|
|
|
|
|
ss = sprintf("__gnuplot_set__ output \"%s_large.png\"", pngname);
|
|
|
|
|
eval(ss)
|
|
|
|
|
replot;
|
|
|
|
|
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
endfunction
|
