source: trunk/src/cartemonde1.m @ 82

% CARTEMONDE1 trace les contours des continents et les frontieres

%+
% =============
% cartemonde1.m
% =============
%
% ---------------------------------------------------
% trace les contours des continents et les frontieres
% ---------------------------------------------------
%
% DESCRIPTION
% ===========
%
% trace les contours des continents et les frontieres.
%
% Data of continents and borders are in ``monde.mat``
%
% A appeler à la fin de votre programme
%
% Ajuster la fenetre spatiale au besoin avec la
%  fonction AXIS([longmin longmax latmin latmax])
%
% EXAMPLES
% ========
%
% ::
%
% >> ............ (début de votre programme)
% >> cartemonde;
% >> axis ([40 100 0 50]);
%
% SEE ALSO
% ========
%
% :ref:`cartemonde.m`
%
% TODO
% ====
%
% update borders or replace usage of this module by one provided by matlab
%
% EVOLUTIONS
% ==========
%
% $Id$
%
%-

% chargement fond carte
% (contenu : conti, npconti, fronti, npfronti)

status=load('monde.mat','conti','npconti','fronti','npfronti');
conti=status.conti;
npconti=status.npconti;
fronti=status.fronti;
npfronti=status.npfronti;
clear status;

% trace fond de carte continents
[nll,ncc]=size(npconti);
aa=1;
bb=0;
hold on;
for qi=1:nll,
  aa=aa+bb;
  cc=npconti(qi)+(aa-1);
       cco=plot (conti(aa:cc,1),conti(aa:cc,2),'k');
       set (cco,'LineWidth',1);          % default=0.5;
  bb=npconti(qi);
end

%  tracage des frontieres
 [nnl,nnc]=size(npfronti);
 aa=1;
 bb=0;
 hold on;
 for iii=1:nnl,
   aa=aa+bb;
   cc=npfronti(iii)+(aa-1);
%        gg=plot (fronti(aa:cc,1),fronti(aa:cc,2));
%        set (gg,'Color',[0.5 0.5 0.5],'LineWidth',0.4)
   bb=npfronti(iii);
 end