function monde(r,transp,g,p,phi,alpha,beta)
%MONDE(R,TRANSP,G,P,PHI,ALPHA,BETA) représente la mappemonde.
% avec un rayon R (si 1, carte complète).
% TRANSP indique si la sphère est
% transparente. G est l'angle entre les méridiens.
% P est le pas du tracé des cercles.
% PHI est la première rotation autour de Oy. 
% ALPHA est la deuxième rotation autour de Ox.
% -BETA est la troisième rotation autour de Oy.
% Les angles sont donnés en degrés.
% Exemple: R=1, TRANSP=0, G=30, P=pi/80, 
% PHI=10, ALPHA=45, BETA=0

% jbr, 3-3-97

% conversions
a=deg2rad(alpha);		% autour de Ox rot No 2
b=deg2rad(beta);		% autour de Oy rot No 1
f=deg2rad(phi);			% autour de Oy rot nég No3

% initialisation de l'écran graphique
axis([-1 1 -1 1])
axis('square')
axis('off')
hold on
cla
t=0:deg2rad(p):2*pi;
x=r*cos(t);
y=r*sin(t);
plot(x,y,'b')			% tracé du contour
Pi=360;					% on travaille en degrés
if g>0					% dessin de la sphère
    % méridiens
	lat=-Pi/2:p:Pi/2;
	for long=g:g:Pi+0.001
		donnees=[lat;long.*ones(size(lat))];
		continent(donnees,r,transp,'b',a,b,f)
	end
	% parallèles
	long=0:p:2*Pi+0.001;
	for lat=-Pi/2+g:g:Pi/2-g
		donnees=[lat.*ones(size(long));long];
		continent(donnees,r,transp,'b',a,b,f)
	end
end

% lecture des données, conversions et tracés
Europe
continent(Eu,r,transp,'y',a,b,f)
Iles
for i=1:6
	eval(['continent(Il',int2str(i),',r,transp,''y'',a,b,f)']);
end
Amerique
continent(Am,r,transp,'y',a,b,f)
Pacifique
for i=1:8
	eval(['continent(Pa',int2str(i),',r,transp,''y'',a,b,f)']);
end

% affichage de l'écran
figure(gcf)
hold off

