From: Christophe Poulain 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 +