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

diff --git a/src/Apparence.mp b/src/Apparence.mp
index ed7a6d8..c5f39a6 100644
--- a/src/Apparence.mp
+++ b/src/Apparence.mp
@@ -24,7 +24,7 @@ vardef DireT(expr phrase,tps)=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}dire \colorbox{white}{\textcolor{black}{\normalfont "&phrase&"}} pendant \colorbox{white}{\textcolor{black}{"&if numeric tps:decimal(tps)&"}}" else: tps fi&" secondes"),if unknown _coinprec: (0,0) else:_coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}dire "&phrase&" pendant \colorbox{white}{\textcolor{black}{"&if numeric tps:decimal(tps)&"}}" else: tps fi&" secondes"),if unknown _coinprec: (0,0) else:_coinprec fi);
   );
 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 _coinprec:=llcorner $;
@@ -36,7 +36,7 @@ vardef Dire(expr phrase)=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}dire \colorbox{white}{\normalfont\textcolor{black}{"&phrase&"}}"),if unknown _coinprec: (0,0) else:_coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}dire "&phrase&""),if unknown _coinprec: (0,0) else:_coinprec fi);
   );
 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 _coinprec:=llcorner $;
@@ -48,7 +48,7 @@ vardef PenserT(expr phrase,tps)=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}penser \colorbox{white}{\normalfont\textcolor{black}{"&phrase&"}} pendant \colorbox{white}{\textcolor{black}{"&if numeric tps:decimal(tps)&"}}" else: tps fi&" secondes"),if unknown _coinprec: (0,0) else:_coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}penser "&phrase&" pendant \colorbox{white}{\textcolor{black}{"&if numeric tps:decimal(tps)&"}}" else: tps fi&" secondes"),if unknown _coinprec: (0,0) else:_coinprec fi);
   );
 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 _coinprec:=llcorner $;
@@ -60,7 +60,7 @@ vardef Penser(expr phrase)=
   save $;
   picture $,texto;
   texto=image(
-      label.lrt(LATEX("\bfseries\color{white}penser \colorbox{white}{\normalfont\textcolor{black}{"&phrase&"}}"),if unknown _coinprec: (0,0) else:_coinprec fi);
+      label.lrt(LATEX("\bfseries\color{white}penser "&phrase&""),if unknown _coinprec: (0,0) else:_coinprec fi);
   );
 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 _coinprec:=llcorner $;
@@ -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;