Source PostScript (reversepathobj.pps)

%% syntaxe : path reversepathobj
/reversepathobj {
2 dict begin
   /path exch def
   [
      path cvx exec reversep
   ]
end
} def