view toolboxes/bioakustik_tools/visualisation/datarawplot.m @ 0:e9a9cd732c1e tip

first hg version after svn

function [h,out] = datarawplot(wavin, varargin)
%[h,out] =datarawplot(data,'minx',-1, 'maxx',-1,'color','k','against',-1);


[miny,maxy,minx,maxx,color,against,unused]=process_options(varargin,...
   'miny',-1,'maxy',-1,'minx',-1,'maxx',-1,'color','k','against',-1);
out= wavin;


m=min(wavin);
ma=max(wavin);
add=(ma-m)*0.1;
if miny ==-1
    miny=m-add;
end
if maxy==-1
    maxy=ma+add;
end
    
wavlens=length(wavin);

if against==-1
    h=plot(out,color);
else
    h=plot(against,out,color);
end

if minx ==-1
    minx=0;
    if against ~=-1
         minx=min(against);
    end
end
if maxx==-1
    maxx=wavlens;
    if against ~=-1
         maxx=max(against);
    end
end
axis([minx maxx miny maxy]);
set(gca,'FontSize',8);
h=get(0,'CurrentFigure');
axis xy;
xlabel('Time[samples]','FontSize',8)
%ylabel('Amplitude','FontSize',8)