1 string lblPreambule, lblLocal;
2 lblPreambule := "\usepackage[frenchb]{babel}\usepackage[garamond]{mathdesign}\usepackage{amsmath}\usepackage{mflogo}";
12 vardef scanchaine_label(expr s) =
13 save d,m,f,c,l,flag,i; string d,m,f,c;
14 d := ""; m := ""; f := "";
15 l = length(s); flag := 0;
17 c := substring (i,i+1) of s;
19 f := f & c; flag := 2;
31 if d = lblS[i]: d := "\" & d fi
33 d := d & "_{" & m & "}" & f; d
36 vardef lTEX primary s =
37 write "verbatimtex" to "mptextmp.mp";
38 write "%&latex" to "mptextmp.mp";
39 write "\documentclass{article}" to "mptextmp.mp";
40 write lblPreambule to "mptextmp.mp";
41 write lblLocal to "mptextmp.mp";
42 write "\begin{document}" to "mptextmp.mp";
43 write "etex" to "mptextmp.mp";
44 write "btex $"& scanchaine_label(s) &"$ etex" to "mptextmp.mp";
45 write EOF to "mptextmp.mp";
46 scantokens "input mptextmp"
49 vardef TEX primary s =
50 write "verbatimtex" to "mptextmp.mp";
51 write "%&latex" to "mptextmp.mp";
52 write "\documentclass{article}" to "mptextmp.mp";
53 write lblPreambule to "mptextmp.mp";
54 write lblLocal to "mptextmp.mp";
55 write "\begin{document}" to "mptextmp.mp";
56 write "etex" to "mptextmp.mp";
57 write "btex "& s &" etex" to "mptextmp.mp";
58 write EOF to "mptextmp.mp";
59 scantokens "input mptextmp"
63 vardef Etiquette.@#(expr s,t,p) = label.@#(TEX(s) scaled t,p gddEnPlace) enddef;
65 vardef EtiquetteChemin.@#(expr s,p,pos) = % label, chemin, position
71 chemin:=gddP[p]; % fonction pour chemin et courbe
73 label.@#(TEX(s), _milieuChemin(chemin,pos) gddEnPlace)
76 vardef _milieuChemin(expr p,pos) = % p est du type path
78 midtime = arctime (pos*(arclength(p))) of p;
79 point infinity of (subpath (0,midtime) of p)
82 vardef FICHIER primary s =
83 save _s; string _s; _s = "input " & s;