Bug in FontMatrix

[jdaw1]

On the GhostScript installed on ps2pdf.com (which the webmaster says
is the latest) the following code fails to run properly. But it works
well on Distiller 8 (and indeed 7), and on Mac Preview.

www.jdawiseman.com/papers/bugs/Broken_FontMatrix.ps (PostScript code,
copied below)
www.jdawiseman.com/papers/bugs/Broken_FontMatrix-distiller.pdf (output
from Distiller: good)
www.jdawiseman.com/papers/bugs/Broken_FontMatrix-distiller.log (log
file from Distiller: good)
www.jdawiseman.com/papers/bugs/Broken_FontMatrix-preview.pdf (output
from Mac Preview: good)
www.jdawiseman.com/papers/bugs/Broken_FontMatrix-ps2pdf.pdf (output
from ps2pdf.com: some parts seemingly missing)
www.jdawiseman.com/papers/bugs/Broken_FontMatrix-ps2pdf.log (log from
ps2pdf.com: dropping factors of 1000)

%!

/FontName /Times-Roman def
/FontSize 51 def
FontName FontSize selectfont

/CurrentFontSize {currentfont /FontMatrix get 3 get dup =} bind def
/SuperscriptOn {0 CurrentFontSize 0.375 mul rmoveto  FontName
CurrentFontSize 1.7 div selectfont} def
/SuperscriptOff {FontName CurrentFontSize 1.7 mul selectfont  0
CurrentFontSize -0.375 mul rmoveto} def

72 72 moveto

(1) show SuperscriptOn (st) show SuperscriptOff
(, 2) show SuperscriptOn (nd) show SuperscriptOff
(, and 3) show SuperscriptOn (rd) show SuperscriptOff
(.) show

showpage


For what little it's worth, this bug is a cut-down version of one that
was discovered in the wild whilst using the PostScript at
www.jdawiseman.com/papers/placemat/placemat.html