function plotcoast(color)
%load worldhi %wysoka rozdzielczosc - inne zmienne !!!


lon=get(gca,'xlim');
lat=get(gca,'ylim');
s=worldhi(lat,lon);
hold on
for k=1:length(s)
    if ischar(color)
     plot(s(k).long,s(k).lat,color)
    else
     h=plot(s(k).long,s(k).lat);
     set(h,'Color',color);
    end 
    hold on
end    
set(gca,'xlim',lon);
set(gca,'ylim',lat);

return
load worldlo
if ischar(color)
 plot(POline(2).long,POline(2).lat,color)
 plot(POline(1).long,POline(1).lat,color)
else
 h=plot(POline(2).long,POline(2).lat);
 set(h,'Color',color);
 h=plot(POline(1).long,POline(1).lat);   
 set(h,'Color',color);    
end    

return
load worldlo
if ischar(color)
 plot(POline(2).long,POline(2).lat,color)
 plot(POline(1).long,POline(1).lat,color)
else
 h=plot(POline(2).long,POline(2).lat);
 set(h,'Color',color);
 h=plot(POline(1).long,POline(1).lat);   
 set(h,'Color',color);    
end    
return