5f93c7cad693cda707520613f30437f88a73f088
[mp-scratch.git] / 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=(0.750,0.250,0.750);
23 DarkPurple=(0.5,0,1);
24 DarkGreen=(0.438,0.875,0);
25 DarkBlue=(0,0,0.75);
26 LightBleu=(0.5,0.75,1);
27 LightOrange=(1,0.75,0.5);
28 LightViolet=(0.75,0.5,1);
29 LightMarron=(0.625,0.391,0.156);%0.625 0.312 0
30 LightBlue=(0.250,0.625,1);
31 Orange=(1,0.625,0.25);
32 DarkOrange=(0.875,0.438,0);
33
34
35 def MarquePoint(expr p)=
36       fill fullcircle scaled (2) shifted p;
37 enddef;
38
39 vardef pointe(text t) =
40   for p_ = t: if (pair p_) or (color p_): MarquePoint(p_); fi endfor;
41 enddef;
42
43 pair _coinprec;%coinbasgauche de la boite précédente
44
45 numeric eb;%ecart boite-texte
46 eb:=3pt;
47
48 boolean bloctest;%pour créer les blocs "test" :)
49 bloctest:=false;
50
51 input LATEXScratch;
52 input Mouvement;
53 input Sons;
54 input Apparence;
55 input Controle;
56 input Stylo;
57 input Evenements;
58 input Bloc;
59 input Divers;
60 input Capteurs;
61 input Variable;

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.