(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))--
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))--
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))--
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))--
(llcorner texto+(0.125,0)+(0,eb))--(coindebutbloc@+(0.125,0));
);
_coinprec:=(llcorner $);
+_coinprec:=_coinprec+(0,eb);
$
enddef;
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))--
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))--
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))--
(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;
);
$=AffichageStop shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageStop);
_coinprec:=(llcorner $);
-_coinprec:=_coinprec+(0,eb);
+%_coinprec:=_coinprec+(0,eb);
$
enddef;