%% syntaxe : path1 projypath --> path2, projete orthogonal de path1 %% sur l'axe Oy /projypath { 1 dict begin /path1 exch def [ path1 pathparamtable {} apply path1 pathpointstable {projy} papply ] end } def