%% syntaxe : pathobj1 normalizepath --> pathobj2, reaffecte le tableau
%% des parametres, de telle facon que ceux-ci soient dans l'intervalle
%% [0; 100], et qu'ils soient repartis de facon proportionnelle a la
%% longueur du chemin
/normalizepath {
4 dict begin
/path1 exch def
/tabpoints path1 pathpointstable def
/tabparam path1 pathparamtable def
/l path1 pathlongueur def
[
tabparam {path1 pathslongueur 100 mul l div} apply
tabpoints
]
end
} def
|