Re: [Syracuse] [métapost] label des points (pour la pile de cristophe)

'Soir :)

On Sun, 01 Jul 2007 22:51:59 +0200
Fabrice Eudes <fabrice.eudes@free.fr> wrote:

> soir!
>
> christophe.poulain@melusine.eu.org a écrit :
> > Sinon, le code
> > ----------
> > input geometriesyr16;
> > input TEX;
> >
> > vardef Nomme@#(suffix p)=
> > MarquePoint(p);
> > if typetrace="3D":
> > label.@#(TEX("$"&str p&"$"),Projette(p));
> > else:
> > label.@#(TEX("$"&str p&"$"),p);
> > fi;
> > enddef;
> yo man! ça marche.
> en plus, il me semble qu'avant de chercher à parvenir à mes fins avec
> latexmp, j'avais essayé avec TEX et j'avais obtenu des erreurs; j'ai
> dû merdoyé; genre oublier le "input TEX;" :-/
>
> bref, je l'ai intégré à geometriesyr16.mp; tant pis s'il n'y a que moi
> qui l'utilise cette macro :o)

;-)

>
> les courageux peuvent, pour la performance, me proposer des réponses
> à mon problème avec la version latexmp, juste par curiosité... :-)

voici un code fonctionnant :)

--------------------
input geometriesyr16;
input latexmp;

vardef Nomme@#(suffix p)=
  MarquePoint(p);
  if typetrace="3D":
    label.@#(textext("$" & str p & "$"),Projette(p));
  else:
    label.@#(textext("$" & str p & "$"),p);
  fi;
enddef;

figure(0,0,10u,10u);
pair A,B,I;
A=u*(1,1);
B-A=u*(5,2);
I=iso(A,B);
nomme.llft(A);
Nomme.rt(B);
marque_p:="plein";
Nomme.top(I);
trace segment(A,B);
trace marquesegment(A,B);
fin;
end
--------

A toi de choisir maintenant :)

> Fabrice Eudes -o)

Christophe.

_______________________________________________
Liste de diffusion Syracuse
Syracuse@melusine.eu.org
http://melusine.eu.org/cgi-bin/mailman/listinfo/syracuse
Adresse alternative du site :
http://syracuse.eu.org/syracuse/
Received on Mon Jul 2 21:36:24 2007