From: Christophe Poulain <cp@DebianFixe.home>
Date: Sun, 19 Feb 2017 21:33:50 +0000 (+0100)
Subject: Ajout d'un répertoire d'exemples
X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=commitdiff_plain;h=16abdae33ca686c44db433dadc9a70940766e37f;p=mp-scratch.git

Ajout d'un répertoire d'exemples
---

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
+