%% syntaxe : currentppathpointstable --> array, tableau de points definis
%% par le chemin courant (ds le repere postscript)
/currentppathpointstable {
1 dict begin
gsave
   flattenpath
   [
   {} {} {} {} pathforall
%   {mymoveto /mymoveto {} def} {} {} {} pathforall
   ] 
grestore
end
} def

%mymoveto {pop pop} def