Album Espace 3

 input geometriesyr16;
 
 

 beginfig(1);%tetraedre;
   Initialisation(10,30,10,600);
   input donyespacetetraedre;
   DessineObjet;
 endfig;
 

 beginfig(2);%cube
   Initialisation(10,20,20,600);
   input donyespacecube;
   DessineObjet;
 endfig;
 

 beginfig(3);%octaedre
   Initialisation(10,20,20,600);
   input donyespaceoctaedre;
   DessineObjet;
 endfig;
 

 beginfig(4);%dodecaedre
   Initialisation(10,10,20,600);
   input donyespacedodecaedre;
   for k=1 upto NbS:
     Sommet[k]:=2*Sommet[k];
   endfor;
   DessineObjet;
 endfig;
 

 beginfig(5);%icosaedre
   Initialisation(10,30,20,600);
   input donyespaceicosaedre;
   for k=1 upto NbS:
     Sommet[k]:=2*Sommet[k];
   endfor;
   DessineObjet;
 endfig;
 

 beginfig(6);%Maison
   Initialisation(10,30,20,500);
   input donyespacemaison;
   DessineObjet;
 endfig;
 end

 input geometriesyr16;
 
 input donyespacetetraedre;
 

 beginfig(1);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,20,10,600);
   DessineObjet;
 %fin;
 endfig;
 

 beginfig(2);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,20,10,600);
   DessineObjetColore;
 %fin;
 endfig;
 input donyespacecube;
 

 beginfig(3);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,20,10,600);
   DessineObjet;
 %fin;
 endfig;
 

 beginfig(4);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,20,10,600);
   DessineObjetColore;
   %fin;
 endfig;
 input donyespaceoctaedre;
 

 beginfig(5);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,20,10,600);
   DessineObjet;
 %fin;
 endfig;
 

 beginfig(6);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,20,10,600);
   DessineObjetColore;
 %fin;
 endfig;
 input donyespacedodecaedre;
 

 beginfig(7);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,30,10,600);
   DessineObjet;
 %fin;
 endfig;
 

 beginfig(8);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,30,10,600);
   DessineObjetColore;
 %fin;
 endfig;
 input donyespaceicosaedre;
 

 beginfig(9);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,30,10,600);
   DessineObjet;
 %fin;
 endfig;
 

 beginfig(10);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,30,10,600);
   DessineObjetColore;
   %fin;
 endfig;
 %%changement de point de vue
   input donyespacetetraedre;
 

 beginfig(11);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,20,80,600);
   DessineObjet;
 %fin;
 endfig;
 

 beginfig(12);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(10,20,80,600);
   DessineObjetColore;
 %fin;
 endfig;
 input donyespacecube;
 

 beginfig(13);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,20,80,600);
   DessineObjet;
 %fin;
 endfig;
 

 beginfig(14);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(10,20,80,600);
   DessineObjetColore;
   %fin;
 endfig;
 input donyespaceoctaedre;
 

 beginfig(15);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,20,80,600);
   DessineObjet;
 %fin;
 endfig;
 

 beginfig(16);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(10,20,80,600);
   DessineObjetColore;
 %fin;
 endfig;
 input donyespacedodecaedre;
 

 beginfig(17);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,30,80,600);
   DessineObjet;
 %fin;
 endfig;
 

 beginfig(18);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,30,80,600);
   DessineObjetColore;
 %fin;
 endfig;
 input donyespaceicosaedre;
 

 beginfig(19);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,30,80,600);
   DessineObjet;
 %fin;
 endfig;
 

 beginfig(20);
 %figure(-1.5u,-1.5u,1.5u,1.5u);
   Initialisation(5,30,80,600);
   DessineObjetColore;
 %fin;
 endfig;
 end