Source PostScript (ppathtopath.pps)

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