input mp-scratch

beginfig(1);
  draw Drapeau;
  draw Effacer;
  draw PoserStylo;
  draw Tournerg(90);
  draw Avancer(20);
  draw Tournerd(180);
  draw Avancer(20);
  draw Tournerg(90);
  draw Avancer(10);
  draw PoserStylo;
  draw Tournerg(90);
  draw Avancer(50);
endfig;

beginfig(2);
  draw Drapeau;
  draw PoserStylo;
  draw Avancer(90);
  draw Tournerg(120);
  draw Avancer(30);
  draw Tournerg(60);
  draw Avancer(60);
  draw Tournerd(120);
  draw Avancer(60);
  draw Tournerg(60);
  draw Avancer(30);
endfig;

beginfig(3);
  draw Drapeau;
  draw Tournerg(60);
  draw PoserStylo;
  draw Avancer(30);
  draw Tournerd(120);
  draw Avancer(60);
  draw Tournerg(120);
  draw Avancer(60);
  draw Tournerd(120);
  draw Avancer(30);
  draw Tournerd(120);
  draw Avancer(90);
endfig;

beginfig(4);
  draw Drapeau;
  draw PoserStylo;
  draw Avancer(90);
  draw Tournerg(120);
  draw Avancer(30);
  draw Tournerg(120);
  draw Avancer(60);
  draw Tournerd(120);
  draw Avancer(60);
  draw Tournerg(120);
  draw Avancer(30);
endfig;

beginfig(5);
  draw Drapeau;
  draw Tournerg(60);
  draw PoserStylo;
  draw Avancer(30);
  draw Tournerd(120);
  draw Avancer(60);
  draw Tournerg(120);
  draw Avancer(60);
  draw Tournerd(120);
  draw Avancer(30);
  draw Tournerd(60);
  draw Avancer(90);
endfig;

beginfig(6);
  draw Drapeau;
  draw Effacer;
  draw PoserStylo;
  draw Avancer(20);
  draw Avancer("\opSimple{$-$20}");
  draw Tournerd(90);
  draw Avancer(10);
  draw PoserStylo;
  draw Tournerg(90);
  draw Avancer(50);
endfig;

end