Ajout des nouvelles balises lorsque la scène est sélectionnée. Mise à jour de la...

[mp-scratch.git] / src / Apparence.mp

diff --git a/src/Apparence.mp b/src/Apparence.mp
index bd7b977..c5f39a6 100644 (file)
--- 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;