Source PostScript (mulvecteur.pps)

%% syntaxe : u a mulvecteur --> au
/mulvecteur {   %% xA, yA, a
   dup          %% xA, yA, a, a 
   3 1 roll     %% xA, a, yA, a 
   mul 3 1 roll %% ayA, xA, a
   mul exch
} def