doc/figures/Ex-Morellet.mp

   1 input mp-scratch;
   2
   3 beginfig(1)%François Morellet - Oeuvre Pi piquant, 1=1°, 38 décimales
   4   draw Drapeau;
   5   draw Effacer;
   6   draw Aller(-50,0);
   7   draw Orienter(180);
   8   draw PoserStylo;
   9   draw Tournerg("\opList{élément \opSimple{1} de \opSousList{Pi}}");
  10   draw Avancer(150);
  11   draw MettreVar("varpi","\opSimple{2}");
  12   draw RepeterJ1("\opOp{\opVar{varpi}\,$\bm{>}$\,38}");
  13   draw Si2("\opOp{\opVar{varpi} modulo \opSimple{2}$\,\bm{=}\,$\opSimple{0}}");
  14   draw Tournerg("\opOp{\opSimple{180}$\,\bm{-}\,$\opList{élément \opVar{varpi} de \opSousList{pi}}}");
  15   draw Sinon2;
  16   draw Tournerd("\opOp{\opSimple{180}$\,\bm{-}\,$\opList{élément \opVar{varpi} de \opSousList{pi}}}");
  17   draw FinBlocSi2;
  18   draw Avancer(150);
  19   draw AjouterVar("varpi","\opSimple{1}");
  20   draw FinBlocRepeter1(10);
  21   draw ReleverStylo;
  22 endfig;
  23 end