From: Maxime Chupin Date: Sat, 24 Sep 2011 09:38:48 +0000 (+0200) Subject: Ajout d'une fonction EtiquetteChemin dans gdd-lbl permettant l'étiquettage des chemin... X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=commitdiff_plain;h=e7394ca9021a684297e60280bde0c43828b4fad3;p=mp-gdd.git Ajout d'une fonction EtiquetteChemin dans gdd-lbl permettant l'étiquettage des chemins et des courbes --- diff --git a/gdd-lbl.mp b/gdd-lbl.mp index f9b4a74..6ed8490 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) = % là, 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;