%% syntaxe : /M n genMiname --> depose les noms /M1 /M2 ... /Mn sur la pile
/genMiname {
5 dict begin
/str1 3 string def
/str2 3 string def
/n exch def
/lettre exch def
/i 1 def
n {
lettre str1 cvs i str2 cvs append cvn %% cree le nom lettre_i
/i i 1 add store
} repeat
end
} def
|