% Complex shapes

load(file_in_loadpath('coastline.octave'));

hold on

% loop over all continents and islands
% lakes have a negative area

index = find(Area>0);

for l=1:length(index); 
  i = index(l);
  j=k(i)+1:k(i+1)-1;  

  patch(ncst(j,1),ncst(j,2),[.4 .8 .5]);
end