doc/Sierpinski.txt

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