Source PostScript (translatepath.pps)

%% syntaxe : path1 u translatepath --> path2, image de path1 par la
%% translation de vecteur u 
/translatepath {
2 dict begin
   /u defpoint
   /path1 exch def
   [
      path1 pathparamtable {} apply
      path1 pathpointstable {u translatepoint} papply
   ]
end
} def