src/mp-scratch.mp

   1 prologues:=3;
   2
   3 pickup pensquare scaled 0.25;
   4 defaultpen := savepen;
   5
   6 color rouge,vert,bleu,jaune,noir,blanc,orange,rose,violet,ciel,cielfonce,orangevif,gris;
   7 rouge=(1,0,0);
   8 bleu=(0,0,1);
   9 noir=(0,0,0);
  10 blanc=(1,1,1);
  11 orange=(1,0.5,0);
  12 rose=(1,0.7,0.7);
  13 cielfonce=0.9*(0.25,1,1);
  14 ciel=bleu+vert;
  15 orangevif=(1,0.25,0.1);
  16 vert=(0,1,0);
  17 jaune=blanc-rouge;
  18 gris=0.8*white;
  19
  20 color LightBleu,LightOrange,LightViolet,LightMarron,LightBlue,DarkBlue,DarkGreen,DarkPurple,Orange,DarkOrange,LightPink,DarkPink;%D'après le HSV wikipedia anglais
  21 LightPink=(0.875,0.125,0.875);
  22 DarkPink=(187/256,66/256,195/256);%(0.750,0.250,0.750);
  23 DarkPurple=(99/256,45/256,153/256);
  24 DarkGreen=(14/256,154/256,108/256);%(0.438,0.875,0);
  25 DarkBlue=(74/256,108/256,212/256);%(0,0,0.75);
  26 LightBleu=(0.5,0.75,1);
  27 LightOrange=(225/256,169/256,26/256);%(1,0.75,0.5);
  28 LightViolet=(138/256,85/256,215/256);%(0.75,0.5,1);
  29 LightMarron=(200/256,131/256,48/256);%(0.625,0.391,0.156);%0.625 0.312 0
  30 LightBlue=(44/256,165/256,226/256);%(0.250,0.625,1);
  31 Orange=(238/256,125/256,22/256);%(1,0.625,0.25);
  32 DarkOrange=(204/256,91/256,34/256);%0.875,0.438,0
  33
  34 color colMouv,colAp,colSon,colStylo,colEvenements,colControle,colCapteur,colBloc,colVar,colList;
  35
  36 def MarquePoint(expr p)=
  37       fill fullcircle scaled (2) shifted p;
  38 enddef;
  39
  40 vardef pointe(text t) =
  41   for p_ = t: if (pair p_) or (color p_): MarquePoint(p_); fi endfor;
  42 enddef;
  43
  44 pair _coinprec;%coinbasgauche de la boite précédente
  45
  46 numeric eb;%ecart boite-texte
  47 eb:=3pt;
  48
  49 boolean bloctest;%pour créer les blocs "test" :)
  50 bloctest:=false;
  51
  52 input LATEXScratch;
  53 input Mouvement;
  54 input Sons;
  55 input Apparence;
  56 input Controle;
  57 input Stylo;
  58 input Evenements;
  59 input Bloc;
  60 input Divers;
  61 input Capteurs;
  62 input Variable;