X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-scratch.git;a=blobdiff_plain;f=src%2FControle.mp;h=88c781434b122b1a3702ab0b61457b2a276c489d;hp=e1a756a2dbe0aa0c0c5639066ec06534848ed043;hb=82176b006e628cbe45bab2eed60a60e1d356223b;hpb=5599db6b498fa1e266b7620670e01a654eb7450d

diff --git a/src/Controle.mp b/src/Controle.mp
index e1a756a..88c7814 100644
--- a/src/Controle.mp
+++ b/src/Controle.mp
@@ -13,7 +13,8 @@ vardef AffiControle=
     (ulcorner texto+(0,eb))--(ulcorner texto+(-eb,0))--cycle;
   picture TEXT;
   TEXT=image(
-    fill cadre withcolor if unknown colControle : LightOrange else : colControle fi;
+      fill cadre withcolor if unknown colControle : LightOrange else : colControle fi;
+    draw cadre withcolor if unknown colControle : LightOrange else : colControle fi;
   draw (llcorner texto+(-eb,-eb))--
     (ulcorner texto+(-eb,0))--
     (ulcorner texto+(0,eb))--
@@ -155,7 +156,7 @@ vardef FinBlocRepeter[](expr tps)=
   labeloffset:=3;
   );
 path cadre;
-cadre=(llcorner texto+(0.125,0))--(coindebutbloc@+(0.125,0))--(coindebutbloc@+(0.5cm+eb,0))--
+cadre=(coindebutbloc@+(0.125,0))--(coindebutbloc@+(0.5cm+eb,0))--
   (coindebutbloc@+(0.5cm,-eb))--
   (ulcorner texto+(0.5cm,eb))--
   (ulcorner texto+(0.5cm+eb,0))--
@@ -173,6 +174,7 @@ cadre=(llcorner texto+(0.125,0))--(coindebutbloc@+(0.125,0))--(coindebutbloc@+(0
 bloctest:=false;
 $=image(
     fill cadre withcolor if unknown colControle : LightOrange else : colControle fi;
+  draw cadre withcolor if unknown colControle : LightOrange else : colControle fi;
   label.lft(LATEX("$\color{white}\raisebox{-0.5pt}{\hbox{$\bm{\_\!\_}$}}\!\!\!\!\bm{\uparrow}$"),0.5[lrcorner texto,urcorner texto]);
   draw (coindebutbloc@+(0.5cm+eb,0))--
     (coindebutbloc@+(0.5cm,-eb))--
@@ -219,6 +221,7 @@ cadre=(llcorner texto+(0.125,0)+(0,eb))--(coindebutbloc@+(0.125,0))--(coindebutb
 bloctest:=false;
 $=image(
     fill cadre withcolor if unknown colControle : LightOrange else : colControle fi;
+  draw cadre withcolor if unknown colControle : LightOrange else : colControle fi;
   label.lft(LATEX("$\color{white}\raisebox{-0.5pt}{\hbox{$\bm{\_\!\_}$}}\!\!\!\!\bm{\uparrow}$"),0.5[lrcorner texto,urcorner texto]);
   draw (coindebutbloc@+(0.5cm+eb,0))--
     (coindebutbloc@+(0.5cm,-eb))--
@@ -232,6 +235,7 @@ $=image(
   (llcorner texto+(0.125,0)+(0,eb))--(coindebutbloc@+(0.125,0));
   );
 _coinprec:=(llcorner $);
+_coinprec:=_coinprec+(0,eb);
 $
 enddef;
 
@@ -260,7 +264,7 @@ vardef FinBlocSi[]=
   labeloffset:=3;
   );
 path cadre;
-cadre=(llcorner texto+(0.125,0))--(coindebutbloc@+(0.125,0))--(coindebutbloc@+(0.5cm+eb,0))--
+cadre=(coindebutbloc@+(0.125,0))--(coindebutbloc@+(0.5cm+eb,0))--
   (coindebutbloc@+(0.5cm,-eb))--
   (ulcorner texto+(0.5cm,eb))--
   (ulcorner texto+(0.5cm+eb,0))--
@@ -278,6 +282,7 @@ cadre=(llcorner texto+(0.125,0))--(coindebutbloc@+(0.125,0))--(coindebutbloc@+(0
 bloctest:=false;
 $=image(
     fill cadre withcolor if unknown colControle : LightOrange else : colControle fi;
+  draw cadre withcolor if unknown colControle : LightOrange else : colControle fi;
   draw (coindebutbloc@+(0.5cm+eb,0))--
     (coindebutbloc@+(0.5cm,-eb))--
     (ulcorner texto+(0.5cm,eb))--
@@ -327,6 +332,7 @@ cadre=(llcorner texto+(0.125,0))--(coindebutbloc@+(0.125,0))--
 bloctest:=false;
 $=image(
     fill cadre withcolor if unknown colControle : LightOrange else : colControle fi;
+  draw cadre withcolor if unknown colControle : LightOrange else : colControle fi;
   draw texto;
   draw (coindebutbloc@+(0.5cm,0)+(eb,0))--
     (coindebutbloc@+(0.5cm,0)+(0,-eb))--
@@ -339,12 +345,13 @@ $=image(
     (llcorner texto+(0.125+1.125cm,0)+(2eb,0))--
     (llcorner texto+(0.125+1.125cm,0)+(eb,-eb))--
     (llcorner texto+(0.125+0.875cm,0)+(eb,-eb))--
-    (llcorner texto+(0.125+0.875cm,0));
+    (llcorner texto+(0.125+0.875cm,0))--
+    (llcorner texto+(eb+0.5cm,0));
   draw (llcorner texto+(0.125,0))--(coindebutbloc@+(0.125,0));
   );
 _coinprec:=(llcorner $)+(0.5cm,0);
 _coinprec:=_coinprec+(0,eb);
-coindebutbloc[@]:=(llcorner $)+(0,eb);
+coindebutbloc[@]:=(llcorner $)+(0,eb+0.125);
 $
 enddef;
 
@@ -383,7 +390,7 @@ vardef Stop(expr test)=
   );
 $=AffichageStop shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageStop);
 _coinprec:=(llcorner $);
-_coinprec:=_coinprec+(0,eb);
+%_coinprec:=_coinprec+(0,eb);
  $
 enddef;