X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-scratch.git;a=blobdiff_plain;f=exemples%2FExemple1.mp;fp=exemples%2FExemple1.mp;h=d907518d3fc846d8324f76b19a458c0f3caad002;hp=0000000000000000000000000000000000000000;hb=16abdae33ca686c44db433dadc9a70940766e37f;hpb=205bd83db67abd284688b6dba53909c786e326b4

diff --git a/exemples/Exemple1.mp b/exemples/Exemple1.mp
new file mode 100644
index 0000000..d907518
--- /dev/null
+++ b/exemples/Exemple1.mp
@@ -0,0 +1,90 @@
+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
+