root/trunk/jps2ps/pps/axesympath.pps

%% syntaxe : path1 I sym path --> path2, symétrique de path1
%% par rapport a la droite D
/axesympath {
2 dict begin
   /D defsroite
   /path1 exch def
   [
      path1 pathparamtable {} apply
      path1 pathpointstable {D axesympoint} papply
   ]
end
} def