X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-scratch.git;a=blobdiff_plain;f=src%2FEvenements.mp;fp=src%2FEvenements.mp;h=96343eaae21a60b3c07734939e97a982ef004c2a;hp=3630d0aaa62f0f841d96646cbed6125e828a79cb;hb=e59b6180eb100cbc58fc230b38169024a754aa73;hpb=8d8c8c55e311b3a860346b65b90ca7984390c81c

diff --git a/src/Evenements.mp b/src/Evenements.mp
index 3630d0a..96343ea 100644
--- a/src/Evenements.mp
+++ b/src/Evenements.mp
@@ -95,6 +95,18 @@ _coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
+vardef QScenePressee=
+  save $;
+  picture $,texto;
+  texto=image(
+      label.lrt(LATEX("\bfseries\color{white}quand la Scène est cliquée"),if unknown _coinprec:(0,0) else: _coinprec fi);
+  );
+$=AffichageEA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageEA);
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
+  $
+enddef;
+
 vardef QBasculeAR(expr touche)=
   save $;
   picture $,texto;