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