% Démonstration de l'utilisation de la fonction MONDE permettant
% de représenter la sphère terrestre de différentes façons.

% jbr, 3-3-97

global Btn chk fig graph

Nom='Globe terrestre';

Tbtn=['Rayon :          '
      'Entre méridiens :'
      'Pas :            '
      'Rot.(1) OY :     '
      'Rot.(2) OX :     '
      'Rot.(3) OY :     '];
	 
Pbtn=['1 '
      '30'
      '5 '
      '10'
      '45'
      '0 '];

Tchk=['Transparence'];


titreChaine='Représentation de la terre';

aideChaine=...
        [' Pour représenter le globe terrestre, on représente les '
		 ' méridiens et les parallèles, puis le pourtour des      '
		 ' continents et des îles principales. La finesse de la   '
		 ' représentation dépend évidemment du nombre et de la    '
		 ' précisions des sommets (données en latitudes et longi- '
		 ' tudes). Les paramètres qui peuvent être modifiés sont :'
		 ' le rayon de la sphère terrestre (permet le zoom avant  '
		 ' ou arrière); le fait si la sphère est transparente ou  '
		 ' non; l''angle entre les méridiens (en général 30°);     '
		 ' le pas pour le tracé des cercles (précision du tracé); '
		 ' une première rotation autour de Oy, une rotation autour'
		 ' de Oy et une rotation inverse autour de Oy (on fixe par'
		 ' exemple un observateur à la latitude et à la longitude '
		 ' d''un lieu sur terre, puis un éventuel déplacement par  '
		 ' rapport à celui-ci.                                    '
		 '                                                        '
		 ' Source:                                                '];
CBack=[' R=str2num(get(Btn(1),''String''));',...
		'M=str2num(get(Btn(2),''String''));',...
		'PHI=str2num(get(Btn(4),''String''));',...
		'ALPHA=str2num(get(Btn(5),''String''));',...
		'BETA=str2num(get(Btn(6),''String''));',...
		'P=str2num(get(Btn(3),''String''));',...
		'if get(chk(1),''Value''),T=1;else T=0;end,',...
		'figure(graph); set(graph,''Visible'',''on'');',...
		'monde(R,T,M,P,PHI,ALPHA,BETA);'];
		
param(Nom,Tbtn,Pbtn,Tchk,titreChaine,aideChaine,CBack);


