%% syntaxe : path1 D orthoprojpath --> path2, projete orthogonal de path1
%% sur la droite D
/orthoprojpath {
2 dict begin
   /D defdroite
   /path1 exch def
   [
      path1 pathparamtable {} apply
      path1 pathpointstable {D orthoproj} papply
   ]
end
} def