Source PostScript (normalize.pps)

Retour Texte non formaté 

%% syntaxe : u normalize -> u / ||u||
/normalize {
2 dict begin
   /u defpoint
   /n u norme def
   u 1 n div mulv
end
} def