X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-gdd.git;a=blobdiff_plain;f=gdd-lbl.mp;h=7d91ed3222e8028db26311f380cd18d42c07b1b8;hp=6ed8490862f83dca8fb289026f0b9fefe07671a5;hb=refs%2Fremotes%2Forigin%2Fmaster;hpb=d37cc036835ac49449cfe756b793ab544f527341

diff --git a/gdd-lbl.mp b/gdd-lbl.mp
index 6ed8490..7d91ed3 100644
--- a/gdd-lbl.mp
+++ b/gdd-lbl.mp
@@ -73,7 +73,7 @@ vardef EtiquetteChemin.@#(expr s,p,pos) = % label, chemin, position
   label.@#(TEX(s), _milieuChemin(chemin,pos) gddEnPlace)
 enddef;
 
-vardef _milieuChemin(expr p,pos) = % là, p est du type path
+vardef _milieuChemin(expr p,pos) =  % p est du type path
   save midtime;
   midtime = arctime (pos*(arclength(p))) of p;
   point infinity of (subpath (0,midtime) of p)