doc/figures/Test.mp

   1 input mp-scratch;
   2
   3 beginfig(1);
   4   draw Tournerg("\opOp{\opList{élément \opVar{varpi} de \opSousList{pi}}}");
   5 endfig;
   6
   7 end
   8
   9
  10
  11 beginfig(1);
  12   draw Orienter(10);
  13   draw Orienter("\opOp{$\opSimple{10}\bm{+}\opSimple{25}$}");
  14   draw Orienterdirection("pointeur de souris");
  15   draw Allera("pointeur de souris");
  16   draw FixerSensRotation("à 360\degre");
  17   draw Basculer("costume1");
  18   draw BasculerAR("arrière-plan1");
  19   draw AjouterEffet("couleur",25);
  20   draw MettreEffet("couleur","\opOp{$\opSimple{10}\bm{+}\opSimple{25}$}");
  21   draw Tambour(10,0.25);
  22   draw Tambour("\opOp{$\opSimple{10}\bm{+}\opSimple{25}$}","\opOp{$\opSimple{10}\bm{+}\opSimple{25}$}");
  23   draw JouerNote(10,0.5);
  24   draw JouerNote("\opOp{$\opSimple{10}\bm{+}\opSimple{25}$}","\opOp{$\opSimple{10}\bm{+}\opSimple{25}$}");
  25   draw ChoisirInstrument(10);
  26   draw ChoisirInstrument("\opOp{$\opSimple{10}\bm{+}\opSimple{25}$}");
  27   draw MettreVar("z",2);
  28   draw AjouterVar("z",1);
  29   draw MontrerVar("z");
  30   draw CacherVar("z");
  31   draw AjouterList("\opSimple{thing}","suite");
  32   draw SupprimerList(1,"Suite");
  33   draw SupprimerList("\opOp{$\opSimple{10}\bm{+}\opSimple{25}$}","Suite");
  34   draw InsererList("\opSimple{\LaTeX}",2,"Suite");
  35   draw InsererList("\opSimple{\LaTeX}","\opOp{$\opSimple{10}\bm{+}\opSimple{25}$}","Suite");
  36   draw RemplacerList(1,"Suite","\opSimple{\LaTeX}");
  37   draw RemplacerList("\opOp{$\opSimple{10}\bm{+}\opSimple{25}$}","Suite","\opSimple{\LaTeX}");
  38   draw MontrerList("Suite");
  39   draw CacherList("Suite");
  40   draw Stop("tout");
  41   draw CreerClone("moi-même");
  42 endfig;
  43
  44 end
  45
  46 beginfig(2);
  47
  48 endfig;
  49
  50 end
  51
  52
  53 beginfig(1);
  54   draw Jouer("miaou");
  55 endfig;
  56
  57 beginfig(2);
  58   draw JouerT("miaou");
  59 endfig;
  60
  61 beginfig(3);
  62   draw ArreterSon;
  63 endfig;
  64
  65 beginfig(4);
  66   draw Tambour(2,0.25);
  67 endfig;
  68
  69 beginfig(5);
  70 draw Pause(0.25);
  71 endfig;
  72
  73 beginfig(6);
  74   draw JouerNote(50,0.25);
  75 endfig;
  76
  77 beginfig(7);
  78   draw ChoisirInstrument(17);
  79 endfig;
  80
  81 beginfig(8);
  82   draw AjouterVol(-10);
  83 endfig;
  84
  85 beginfig(9);
  86   draw MettreVol(15);
  87 endfig;
  88
  89 beginfig(10);
  90   draw AjouterTempo(20);
  91 endfig;
  92
  93 beginfig(11);
  94   draw MettreTempo(15);
  95 endfig;
  96
  97 end
  98
  99 beginfig(1)%François Morellet - Oeuvre Pi piquant, 1=1°, 38 décimales
 100   draw Drapeau;
 101   draw Effacer;
 102   draw Aller(-50,0);
 103   draw Orienter(180);
 104   draw PoserStylo;
 105   draw Tournerg("\opList{élément \opSimple{1} de \opSousList{Pi}}");
 106   draw Avancer(150);
 107   draw MettreVar("varpi","\opSimple{2}");
 108   draw RepeterJ1("$\opOp{\opVar{varpi}\,>\,38}$");
 109   draw Si2("$\opOp{\opVar{varpi}\mbox{ modulo }\opSimple{2}\,=\,\opSimple{0}}$");
 110 %  draw Tournerg("$\opOp{\opSimple{180}}-\opList{élément \opVar{varpi} de \opSousList{pi}}$");
 111   draw Sinon2;
 112     draw Tournerd("$\opOp{\opSimple{180}-\opList{élément \opVar{varpi} de \opSousList{pi}}}$");
 113   draw FinBlocSi2;
 114   draw Avancer(150);
 115   draw AjouterVar("varpi","\opSimple{1}");
 116   draw FinBlocRepeter1(10);
 117   draw ReleverStylo;
 118 endfig;
 119 end
 120
 121
 122 beginfig(1);
 123   draw Drapeau;
 124   draw QTouche("pointeur de souris");
 125   draw CouleurTouche("Abricot")("{rgb}{0.75,0.5,0.25}");
 126   draw CouleurToucheTouche("Abricot")("{rgb}{0.75,0.5,0.25}")("Pomme")("{rgb}{0.75,1,0.5}");
 127   draw Distance("pointeur de souris");
 128   draw Demander("What's your name ?");
 129   draw ToucheP("espace");
 130   draw SourisP;
 131   draw ActiverVideo("Activé");
 132   draw TransparenceVideo(50);
 133   draw TransparenceVideo("\opOp{\colorbox{white}{\textcolor{black}{50}}$+$\colorbox{white}{\textcolor{black}{50}}}");
 134   draw ReinitChrono;
 135   draw Caracteristique("abscisse x")("Lutin1");
 136 endfig;
 137 end
 138
 139
 140 beginfig(1);
 141   draw NouveauBloc("Carré \opBloc{côté}");
 142   draw Avancer("\opBloc{côté}");
 143   draw Tournerd(90);
 144   draw Avancer("\opBloc{côté}");
 145   draw Tournerd(90);
 146   draw Avancer("\opBloc{côté}");
 147   draw Tournerd(90);
 148   draw Avancer("\opBloc{côté}");
 149   draw Tournerd(90);
 150 endfig;
 151
 152 end
 153
 154
 155
 156 beginfig(1);
 157   draw Drapeau;
 158   draw RepeterJ1("$\mbox{cote}=10$");
 159   draw FinBlocRepeter1(10);
 160   draw Si1("titi=10");
 161   draw Dire("Bonjour");
 162   draw Sinon1;
 163   draw Avancer(10);
 164   draw FinBlocSi1;
 165   draw Avancer(50);
 166 endfig;
 167 end
 168
 169
 170
 171   draw Drapeau;
 172   draw LigneVide("Bonjour");
 173   draw Presse("espace");
 174   draw LigneVide("Bonjour");
 175   draw LutinPresse;
 176   draw LigneVide("Bonjour");
 177   draw BasculeAR("arrière-plan 1");
 178   draw LigneVide("Bonjour");
 179   draw VolumeSup("volume sonore",10);
 180   draw LigneVide("Bonjour");
 181   draw VolumeSup("volume sonore","10+35");
 182   draw LigneVide("Bonjour");
 183   draw RecevoirMessage("fini");
 184   draw LigneVide("Bonjour");
 185   draw EnvoyerMessage("une nouvelle journée");
 186   draw LigneVide("Bonjour");
 187   draw EnvoyerMessageA("une belle après-midi");
 188   draw Dire("Bonjour");
 189   draw Repeter1(4);
 190   draw Avancer(90);
 191   draw Tournerd(90);
 192   draw Repeter2(3);
 193   draw Dire("Salut");
 194   draw FinBlocRepeter2(3);
 195   draw FinBlocRepeter1(4);
 196 endfig;
 197
 198 end
 199   draw DireT("Bonjour",1);
 200   draw Dire("Bonjour");
 201   draw PenserT("Bonjour",1);
 202   draw Penser("Bonjour");
 203   draw Montrer;
 204   draw Cacher;
 205   draw Basculer("costume1");
 206   draw CostumeSuivant;
 207   draw BasculerAR("Tour");
 208   draw AjouterEffet("couleur",10);
 209   draw MettreEffet("couleur",50);
 210   draw AnnulerEffet;
 211   draw AjouterTaille(10);
 212   draw MettreA(50);
 213   draw AllerPPlan;
 214   draw DeplacerAP(2);
 215 endfig;
 216
 217 end
 218
 219   %  draw Repeter1(10);
 220 %  draw Aller(40,50);
 221 %  draw Repeter2(4);
 222 %  draw Avancer(50);
 223 %  draw Tournerd(90);
 224 %  draw FinBlocRepeter2(4);
 225 %  draw Tournerg(15);
 226 %  draw FinBlocRepeter1(10);
 227 %  draw Avancer(40);
 228
 229