exemples/Exemple1.mp

   1 input mp-scratch
   2
   3 beginfig(1);
   4   draw Drapeau;
   5   draw Effacer;
   6   draw PoserStylo;
   7   draw Tournerg(90);
   8   draw Avancer(20);
   9   draw Tournerd(180);
  10   draw Avancer(20);
  11   draw Tournerg(90);
  12   draw Avancer(10);
  13   draw PoserStylo;
  14   draw Tournerg(90);
  15   draw Avancer(50);
  16 endfig;
  17
  18 beginfig(2);
  19   draw Drapeau;
  20   draw PoserStylo;
  21   draw Avancer(90);
  22   draw Tournerg(120);
  23   draw Avancer(30);
  24   draw Tournerg(60);
  25   draw Avancer(60);
  26   draw Tournerd(120);
  27   draw Avancer(60);
  28   draw Tournerg(60);
  29   draw Avancer(30);
  30 endfig;
  31
  32 beginfig(3);
  33   draw Drapeau;
  34   draw Tournerg(60);
  35   draw PoserStylo;
  36   draw Avancer(30);
  37   draw Tournerd(120);
  38   draw Avancer(60);
  39   draw Tournerg(120);
  40   draw Avancer(60);
  41   draw Tournerd(120);
  42   draw Avancer(30);
  43   draw Tournerd(120);
  44   draw Avancer(90);
  45 endfig;
  46
  47 beginfig(4);
  48   draw Drapeau;
  49   draw PoserStylo;
  50   draw Avancer(90);
  51   draw Tournerg(120);
  52   draw Avancer(30);
  53   draw Tournerg(120);
  54   draw Avancer(60);
  55   draw Tournerd(120);
  56   draw Avancer(60);
  57   draw Tournerg(120);
  58   draw Avancer(30);
  59 endfig;
  60
  61 beginfig(5);
  62   draw Drapeau;
  63   draw Tournerg(60);
  64   draw PoserStylo;
  65   draw Avancer(30);
  66   draw Tournerd(120);
  67   draw Avancer(60);
  68   draw Tournerg(120);
  69   draw Avancer(60);
  70   draw Tournerd(120);
  71   draw Avancer(30);
  72   draw Tournerd(60);
  73   draw Avancer(90);
  74 endfig;
  75
  76 beginfig(6);
  77   draw Drapeau;
  78   draw Effacer;
  79   draw PoserStylo;
  80   draw Avancer(20);
  81   draw Avancer("\opSimple{$-$20}");
  82   draw Tournerd(90);
  83   draw Avancer(10);
  84   draw PoserStylo;
  85   draw Tournerg(90);
  86   draw Avancer(50);
  87 endfig;
  88
  89 end
  90