Source PostScript (sympath.pps)

%% syntaxe : path1 I sympath --> path2, symétrique de path1
%% par rapport au point I
/sympath {
2 dict begin
   /I defpoint
   /path1 exch def
   [
      path1 pathparamtable {} apply
      path1 pathpointstable {I sympoint} papply
   ]
end
} def