% 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='Carte de voeu fractale';

Tbtn=['Niveau :         '
      'Couleur 1 :      '
      'Couleur 2 :      '];
	 
Pbtn=['3         '
      '[.6 .6 .6]'
      '[.8 .8 .8]'];

Tchk=['Remplissage'];


titreChaine='Carte de v¦u fractale';

aideChaine=...
        [' On représente une carte de v¦u fractale en considérant '
		 ' un empilement de cubes construits comme suit:          '
		 ' une carte de niveau N est constituée d''un cube de côté '
		 ' 2^N avec une carte de niveau N-1 devant à gauche,      '
		 ' une carte de niveau N-1 à droite en arrière et une     '
		 ' carte de niveau N-1 en haut à droite et au fond.       '
		 ' Le processus s''arrête lorsque N vaut 0. On  déplie     '
		 ' ensuite les cubes. On représente un trait de type      '
		 ' montagne sur l''arête supérieure du cube et deux        '
		 ' traits de type vallée. Sur les côtés, on représente un '
		 ' trait continu (celui-ci sera découpé). Les traits de   '
		 ' type montagne et vallée seront pliés.                  '
		 ' Les couleurs permettent une représentation différente  '
		 ' de la carte de v¦u. L''indication remplissage permet    '
		 ' de représenter la courbe avec ou sans surface.         '
		 '                                                        '
		 ' Source:The Mathematical Gazette, Juiller1997.          '];
CBack=[' n=str2num(get(Btn(1),''String''));',...
		'c1=eval(get(Btn(2),''String''));',...
		'c2=eval(get(Btn(3),''String''));',...
		'if get(chk(1),''Value''),rempliOk=1;else rempliOk=0;end,',...
		'figure(graph); set(graph,''Visible'',''on'');',...
		'voeu(n,c1,c2,rempliOk);'];
		
param(Nom,Tbtn,Pbtn,Tchk,titreChaine,aideChaine,CBack);


