input mp-scratch;

beginfig(1)%François Morellet - Oeuvre Pi piquant, 1=1°, 38 décimales
  draw Drapeau;
  draw Effacer;
  draw Aller(-50,0);
  draw Orienter(180);
  draw PoserStylo;
  draw Tournerg("\opList{élément \opSimple{1} de \opSousList{Pi}}");
  draw Avancer(150);
  draw MettreVar("varpi","\opSimple{2}");
  draw RepeterJ1("\opOp{\opVar{varpi}\,$\bm{>}$\,38}");
  draw Si2("\opOp{\opVar{varpi} modulo \opSimple{2}$\,\bm{=}\,$\opSimple{0}}");
  draw Tournerg("\opOp{\opSimple{180}$\,\bm{-}\,$\opList{élément \opVar{varpi} de \opSousList{pi}}}");
  draw Sinon2;
  draw Tournerd("\opOp{\opSimple{180}$\,\bm{-}\,$\opList{élément \opVar{varpi} de \opSousList{pi}}}");
  draw FinBlocSi2;
  draw Avancer(150);
  draw AjouterVar("varpi","\opSimple{1}");
  draw FinBlocRepeter1(10);
  draw ReleverStylo;
endfig;
end