function noaalogo(frac);
% NOAALOGO  Draws the NOAA logo at the bottom right of the plot
%
%       NOAALOGO(FRAC) makes the logo fill the fraction FRAC of the current
%       set of axes (default is .2)
%
%       NOAALOGO([LEFT BOTTOM WIDTH HEIGHT]) places it in the specified
%       region of  the current figure (a [0 1]x[0 1] region).

%Based on the WHOILOGO written by  RP 7/Dec/91
%    

if (nargin==0),
   frac=0.2;
end;

a=imread('noaa_logo','Jpeg');

curr=gca; % save current aces

if (length(frac)==1),
   olm=get(gca,'Position');
   axes('Position',[olm(1)+(1-frac)*olm(3) olm(2) frac*olm(3) frac*olm(4)], ...
        'Visible','off');
else
   axes('Position',frac,'Visible','off');
end;

axis([0 1 0 1]);
axis('square');
%line(whoiXY(:,1),whoiXY(:,2),'Linestyle','.','Color','w','Marker',3);
image(a)
axis equal
logo=gca;
set(logo,'Visible','off');
%axes(curr);  % go back to current axes.
return

