+vardef BasculerARA(expr costume)=
+ save $;
+ picture $,texto;
+ texto=image(
+ label.lrt(LATEX("\bfseries\color{white} basculer sur l'arrière-plan "&costume&" et attendre"),if unknown _coinprec: (0,0) else:_coinprec fi);
+ );
+$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
+$
+enddef;
+
+vardef ARSuivant=
+ save $;
+ picture $,texto;
+ texto=image(
+ label.lrt(LATEX("\bfseries\color{white} arrière-plan suivant"),if unknown _coinprec: (0,0) else:_coinprec fi);
+ );
+$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
+$
+enddef;
+