Source PostScript (putpoint.pps)

%% syntaxe : xA yA /A putpoint --> 
/putpoint {
1 dict begin
   /t@mp@r@ire exch def
   [ 3 1 roll ] cvx t@mp@r@ire exch 
end put
} def