%% syntaxe : currentpathpointstable --> array, tableau de points definis
%% par le chemin courant (ds le repere jps)
/currentpathpointstable {
   currentppathpointstable {ptojpoint} papply 
} def