/mymoveto {pop pop} def
%% syntaxe : defppathtable --> array, tableau de points definis
%% par le chemin courant (ds le repere postscript)
/defppathtable {
1 dict begin
gsave
flattenpath
[
{mymoveto /mymoveto {} def} {} {} {} pathforall
% {(moveto)} {(lineto)} {(curveto)} {(close)} pathforall
]
%() exch aload pop bang
grestore
end
} def
|