Source PostScript (pathtoppath.pps)

%% syntaxe : path pathtopath --> path, transforme un chemin a
%% coordonnees dans le repere jps en un chemin a coordonnees dans
%% le repere postscript
/pathtoppath {
1 dict begin
   /path exch def
   [
      path cvx exec
      {jtoppoint} papply
   ]
end
} def