%% syntaxe : [a0 a1 .. an] [/a0 /a1 .. /an] nomme --> associe /ai et
%% ai dans le dictionnaire courant
/nomme {
/liste2 exch def
/liste1 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] nommeu --> associe /ai au point
%% Ai dans le dictionnaire courant
/nommep {
/liste2 exch def
/liste1 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
|