+ draw (coindebutbloc@+(0.5cm+eb,0))--
+ (coindebutbloc@+(0.5cm,-eb))--
+ (ulcorner texto+(0.5cm,eb))--
+ (ulcorner texto+(0.5cm+eb,0))--
+ (urcorner texto+(-eb,0))--
+ (urcorner texto+(0,-eb))--
+ (lrcorner texto+(0,eb))--
+ (lrcorner texto+(-eb,0))--
+ (llcorner texto+(0.125+0.625cm,0)+(2eb,0))--
+ (llcorner texto+(0.125+0.625cm,0)+(eb,-eb))--
+ (llcorner texto+(0.125+0.375cm,0)+(eb,-eb))--
+ (llcorner texto+(0.125+0.375cm,0))--
+ (llcorner texto+(0.125,0)+(eb,0))--
+ (llcorner texto+(0.125,0)+(0,eb))--
+ (coindebutbloc@+(0.125,0));
+ );
+_coinprec:=(llcorner $);
+_coinprec:=_coinprec+(0,eb);
+$
+enddef;
+
+vardef FinBlocRepeterI[](expr tps)=
+ save $;
+ picture $,texto;
+ _coinprec:=_coinprec-(0.5cm,0);
+ drawoptions();
+ texto=image(
+ labeloffset:=0;
+ label.lrt(LATEX("\bfseries\color{white}répéter \colorbox{white}{\textcolor{white}{"&decimal(tps)&"}} fois"),if unknown _coinprec: (0,0) else:_coinprec fi);
+ labeloffset:=3;
+ );
+path cadre;
+cadre=(llcorner texto+(0.125,0)+(0,eb))--(coindebutbloc@+(0.125,0))--(coindebutbloc@+(0.5cm+eb,0))--
+ (coindebutbloc@+(0.5cm,-eb))--
+ (ulcorner texto+(0.5cm,eb))--
+ (ulcorner texto+(0.5cm+eb,0))--
+ (urcorner texto+(-eb,0))--
+ (urcorner texto+(0,-eb))--
+ (lrcorner texto+(0,eb))--
+ (lrcorner texto+(-eb,0))--
+ (llcorner texto+(0.125,0)+(eb,0))--
+ cycle;
+bloctest:=false;
+$=image(
+ fill 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))--
+ (ulcorner texto+(0.5cm,eb))--
+ (ulcorner texto+(0.5cm+eb,0))--
+ (urcorner texto+(-eb,0))--
+ (urcorner texto+(0,-eb))--
+ (lrcorner texto+(0,eb))--
+ (lrcorner texto+(-eb,0))--
+ (llcorner texto+(0.125,0)+(eb,0))--
+ (llcorner texto+(0.125,0)+(0,eb))--(coindebutbloc@+(0.125,0));