%% t path pathlongueurs -> l1 l2
/pathlongueurs {
   splitpath
   exch 
   pathpointstable longueur
   exch
   pathpointstable longueur
} def