%% syntaxe : [/a0 /a1 .. /an] [a0 a1 .. an] mapnu --> associe /ai et
%% ai dans le dictionnaire courant
/mapnu {
/liste1 exch def
/liste2 exch def
/i 0 def
liste1 length {
liste2 i get liste1 i get def
/i i 1 add store
} repeat
currentdict /liste1 undef
currentdict /liste2 undef
} def
%% syntaxe : [/a0 /a1 .. /an] [A0 A1 .. An] mapnp --> associe /ai au point
%% Ai dans le dictionnaire courant
/mapnp {
/liste1 exch def
/liste2 exch def
/i 0 def
liste2 length {
liste2 i get [liste1 i getp] cvx def
/i i 1 add store
} repeat
currentdict /liste1 undef
currentdict /liste2 undef
} def
%% syntaxe : [/a0 /a1 .. /an] [C0 C1 .. Cn] mapnc --> associe /ai au cercle
%% Ci dans le dictionnaire courant
/mapnc {
/liste1 exch def
/liste2 exch def
/i 0 def
liste2 length {
liste2 i get [liste1 i getc] cvx def
/i i 1 add store
} repeat
currentdict /liste1 undef
currentdict /liste2 undef
} def
|