--- /dev/null
+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
+