doc/figures/Ex-Serpinski-scratch.mp

   1 input mp-scratch;
   2
   3   beginfig(1);
   4   draw Drapeau;
   5   draw Aller(-200,-150);
   6   draw Orienter(0);
   7   draw Effacer;
   8   draw PoserStylo;
   9   draw Demander("\opSimple{rang ?}");
  10   draw MettreVar("rang","\opCap{réponse}");
  11   draw Demander("\opSimple{dimension du motif ?}");
  12   draw MettreVar("rang","\opCap{réponse}");
  13   draw Bloc("Sierpinski \opBloc{rang} \opBloc{triangles}");
  14   _coinprec:=(10cm,0);
  15   draw NouveauBloc("Sierpinski \opBloc{rang} \opBloc{triangles}");
  16   draw Si1("\opOp{non $\opBloc{rang}\bm{=}0$}");
  17   draw Repeter2(3);
  18   draw Bloc("Sierpinski \opOp{$\opBloc{rang}\bm{-}\opSimple{1}$} \opOp{$\opBloc{triangles}\,\bm{/}\,\opSimple{2}$}");
  19   draw Avancer("\opBloc{triangles}");
  20   draw Tournerd(120);
  21   draw FinBlocRepeter2(10);
  22   draw FinBlocSi1;
  23 endfig;
  24
  25 end