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

diff --git a/gdd-lbl.mp b/gdd-lbl.mp
index f9b4a74..7d91ed3 100644
--- a/gdd-lbl.mp
+++ b/gdd-lbl.mp
@@ -62,7 +62,22 @@ enddef;
 
 vardef Etiquette.@#(expr s,t,p) = label.@#(TEX(s) scaled t,p gddEnPlace) enddef;
 
+vardef EtiquetteChemin.@#(expr s,p,pos) = % label, chemin, position
+  save chemin;
+  path chemin;
+  if path p:
+    chemin:=p;
+  else:
+    chemin:=gddP[p]; % fonction pour chemin et courbe
+  fi;
+  label.@#(TEX(s), _milieuChemin(chemin,pos) gddEnPlace)
+enddef;
 
+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)
+enddef;
 
 vardef FICHIER primary s =
     save _s; string _s; _s = "input " & s;