doc/Morellet.txt

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