prologues:=3;

pickup pensquare scaled 0.25;
defaultpen := savepen;

color rouge,vert,bleu,jaune,noir,blanc,orange,rose,violet,ciel,cielfonce,orangevif,gris;
rouge=(1,0,0);
bleu=(0,0,1);
noir=(0,0,0);
blanc=(1,1,1);
orange=(1,0.5,0);
rose=(1,0.7,0.7);
cielfonce=0.9*(0.25,1,1);
ciel=bleu+vert;
orangevif=(1,0.25,0.1);
vert=(0,1,0);
jaune=blanc-rouge;
gris=0.8*white;

color LightBleu,LightOrange,LightViolet,LightMarron,LightBlue,DarkBlue,DarkGreen,DarkPurple,Orange,DarkOrange,LightPink,DarkPink;%D'après le HSV wikipedia anglais
LightPink=(0.875,0.125,0.875);
DarkPink=(0.750,0.250,0.750);
DarkPurple=(0.5,0,1);
DarkGreen=(0.438,0.875,0);
DarkBlue=(0,0,0.75);
LightBleu=(0.5,0.75,1);
LightOrange=(1,0.75,0.5);
LightViolet=(0.75,0.5,1);
LightMarron=(0.625,0.391,0.156);%0.625 0.312 0
LightBlue=(0.250,0.625,1);
Orange=(1,0.625,0.25);
DarkOrange=(0.875,0.438,0);


def MarquePoint(expr p)=
      fill fullcircle scaled (2) shifted p;
enddef;

vardef pointe(text t) =
  for p_ = t: if (pair p_) or (color p_): MarquePoint(p_); fi endfor;
enddef;

pair _coinprec;%coinbasgauche de la boite précédente

numeric eb;%ecart boite-texte
eb:=3pt;

boolean bloctest;%pour créer les blocs "test" :)
bloctest:=false;

input LATEXScratch;
input Mouvement;
input Sons;
input Apparence;
input Controle;
input Stylo;
input Evenements;
input Bloc;
input Divers;
input Capteurs;
input Variable;