X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-scratch.git;a=blobdiff_plain;f=src%2FApparence.mp;h=c5f39a6ae4711f91310c7567b8784c3b2a96740b;hp=bd7b9775ae17b6aaa678076abc8f38f2640f9b9b;hb=e59b6180eb100cbc58fc230b38169024a754aa73;hpb=8d8c8c55e311b3a860346b65b90ca7984390c81c

diff --git a/src/Apparence.mp b/src/Apparence.mp
index bd7b977..c5f39a6 100644
--- a/src/Apparence.mp
+++ b/src/Apparence.mp
@@ -128,6 +128,30 @@ _coinprec:=_coinprec+(0,eb);
 $
 enddef;
 
+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;
+
 vardef AjouterEffet(expr costume,nb)=
   save $;
   picture $,texto;