Re: [Syracuse] [metpost] boucle forsuffixes (ooups)

C'est allé un peu vite, le mail est parti avant la fin ;)

Jean-Michel Sarlat a écrit :
> Bonjour,
>
> Le 04/12/06, david.cobac<david.cobac@free.fr> a écrit :
>> Bonjour,
>> dans une boucle forsuffixes, j'ai besoin de la valeur précédente de la
>> variable. J'ai essayé un truc comme cela mais ça ne marche pas.
>> Il semblerait que le type str ne fonctionne pas dans cet usage.
>> (t désigne des noms de boites définies avec boxit)
>>
>> vardef sepfratrie (text t) :=
>> str pdt;
>> %% on place correctement les boîtes rlativement
>> %% et horizontalement
>> i:=1;
>> forsuffixes $=t :
>> if (i<>1) :
>> pdt.e=$.w-(hsepf,0);
>> fi;
>> pdt:=$;
>> i:=2;
>> endfor;
>> enddef;
>

Si tu essaies cela :

vardef sepfratrie(text t) =
  save p, pt, i; i := 1;
  string pt;
  forsuffixes p = t:
     if i > 1:
        scantokens(pt & ".e = " & str p & ".w - (20,0);");
     fi;
     pt := str p;
     i := 2;
  endfor;
enddef;

cela devrait marcher...

    Jean-Michel
_______________________________________________
Liste de diffusion Syracuse
Syracuse@melusine.eu.org
http://melusine.eu.org/cgi-bin/mailman/listinfo/syracuse
Adresses alternatives du site :
http://syracuse.eu.org/syracuse/
http://193.55.139.7/syracuse/
Received on Mon Dec 4 14:13:43 2006