Modifications (couleurs, chanfreins...) pour un rapprochement vers Scratch

[mp-scratch.git] / src / Stylo.mp

diff --git a/src/Stylo.mp b/src/Stylo.mp
index ad537b9..f2fd836 100644 (file)
--- a/src/Stylo.mp
+++ b/src/Stylo.mp
@@ -1,11 +1,21 @@
 vardef AffichageS=
   path cadre;
-  cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
+  cadre=(llcorner texto+(-eb,0))--(llcorner texto+(0,-eb))--
+    (llcorner texto+(0.375cm,0)+(-eb,-eb))--
+    (llcorner texto+(0.375cm,0)+(0,-2eb))--
+    (llcorner texto+(0.625cm,0)+(0,-2eb))--
+    (llcorner texto+(0.625cm,0)+(eb,-eb))--
+    (lrcorner texto+(0,-eb))--(lrcorner texto+(eb,0))--(urcorner texto+(eb,0))--(urcorner texto+(0,eb))--
+    (ulcorner texto+(0.625cm,0)+(eb,eb))--
+    (ulcorner texto+(0.625cm,0))--
+    (ulcorner texto+(0.375cm,0))--
+    (ulcorner texto+(0.375cm,0)+(-eb,eb))--
+    (ulcorner texto+(0,eb))--(ulcorner texto+(-eb,0))--cycle;
   picture TEXT;
   TEXT=image(
-      fill cadre withcolor DarkGreen;
+    fill cadre withcolor if unknown colStylo : DarkGreen else: colStylo fi;
     draw texto;
-    draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
+    draw cadre;
     );
   TEXT
 enddef;
@@ -14,10 +24,11 @@ vardef Effacer=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Effacer tout"),if unknown _coinprec:(0,0) else: _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}effacer tout"),if unknown _coinprec:(0,0) else: _coinprec fi);
   );
 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
-  _coinprec:=llcorner $;
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
@@ -25,10 +36,11 @@ vardef Estampiller=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Estampiller"),if unknown _coinprec:(0,0) else: _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}estampiller"),if unknown _coinprec:(0,0) else: _coinprec fi);
   );
 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
-  _coinprec:=llcorner $;
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
@@ -36,10 +48,11 @@ vardef PoserStylo=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Stylo en position d'écriture"),if unknown _coinprec:(0,0) else: _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}stylo en position d'écriture"),if unknown _coinprec:(0,0) else: _coinprec fi);
   );
 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
-  _coinprec:=llcorner $;
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
@@ -47,10 +60,11 @@ vardef ReleverStylo=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Relever le stylo"),if unknown _coinprec:(0,0) else: _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}relever le stylo"),if unknown _coinprec:(0,0) else: _coinprec fi);
   );
 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
-  _coinprec:=llcorner $;
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
@@ -58,10 +72,11 @@ vardef MettreCouleur(expr nomcol,redc,greenc,bluec)=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Mettre la couleur du stylo à \definecolor{"&nomcol&"}{rgb}{"&decimal(redc)&","&decimal(greenc)&","&decimal(bluec)&"}\colorbox{"&nomcol&"}{\phantom{t}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}mettre la couleur du stylo à \definecolor{"&nomcol&"}{rgb}{"&decimal(redc)&","&decimal(greenc)&","&decimal(bluec)&"}\colorbox{"&nomcol&"}{\phantom{t}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
   );
 $=AffichageS shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner AffichageS);
 _coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
 $
 enddef;
 
@@ -69,10 +84,11 @@ vardef AjouterCS(expr nbang)=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à la couleur du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à la couleur du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
     );
   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
-  _coinprec:=llcorner $;
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
@@ -80,10 +96,11 @@ vardef MettreCS(expr nbang)=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Mettre la couleur du stylo à "&      if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}mettre la couleur du stylo à "&      if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
     );
   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
-  _coinprec:=llcorner $;
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
@@ -92,10 +109,11 @@ vardef AjouterIS(expr nbang)=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à l'intensité du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à l'intensité du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
     );
   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
-  _coinprec:=llcorner $;
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
@@ -103,10 +121,11 @@ vardef MettreIS(expr nbang)=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Mettre l'intensité du stylo à "&      if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}mettre l'intensité du stylo à "&      if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
     );
   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
-  _coinprec:=llcorner $;
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
@@ -115,10 +134,12 @@ vardef AjouterTS(expr nbang)=
     save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à la taille du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à la taille du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
     );
   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
-  _coinprec:=llcorner $;
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
+_coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
@@ -126,9 +147,10 @@ vardef MettreTS(expr nbang)=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}Mettre la taille du stylo à "&      if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}mettre la taille du stylo à "&      if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
     );
   $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
-  _coinprec:=llcorner $;
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
   $
 enddef;