X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-scratch.git;a=blobdiff_plain;f=src%2FDivers.mp;h=d872d6a659c184e12ad0d9d2daf82d0e6915ee26;hp=00413df30ef98899996f1948968b7cf1bfa94e51;hb=HEAD;hpb=36749ae468ccd5e33d028ab76dff36833a2d1e9c

diff --git a/src/Divers.mp b/src/Divers.mp
index 00413df..d872d6a 100644
--- a/src/Divers.mp
+++ b/src/Divers.mp
@@ -53,3 +53,32 @@ _coinprec:=llcorner $;
 _coinprec:=_coinprec+(0,eb);
 $
 enddef;
+
+vardef LignePointilles=
+  save $;
+  picture $,texto,TEXT;
+  texto=image(
+      label.lrt(LATEX("\Large \strut\ldots"),if unknown _coinprec: (0,0) else:_coinprec fi);
+  );
+TEXT=image(
+    draw texto;
+    path cadre;
+  cadre=(llcorner texto+(-eb,0))--(llcorner texto+(0,-eb))--
+    (llcorner texto+(0.375cm,0)+(-eb,-eb))--
+    (llcorner texto+(0.375cm,0)+(0,-2eb))--
+    (llcorner texto+(0.625cm,0)+(0,-2eb))--
+    (llcorner texto+(0.625cm,0)+(eb,-eb))--
+    (lrcorner texto+(0,-eb))--(lrcorner texto+(eb,0))--(urcorner texto+(eb,0))--(urcorner texto+(0,eb))--
+    (ulcorner texto+(0.625cm,0)+(eb,eb))--
+    (ulcorner texto+(0.625cm,0))--
+    (ulcorner texto+(0.375cm,0))--
+    (ulcorner texto+(0.375cm,0)+(-eb,eb))--
+    (ulcorner texto+(0,eb))--(ulcorner texto+(-eb,0))--cycle;
+  fill cadre withcolor white;
+  draw texto;
+  );
+$=TEXT shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner TEXT);
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
+$
+enddef;