次の追記コードがあります。
/outputtext {
/data exch def
/rot exch def
/xfont exch def
/Times-Roman findfont
xfont scalefont
setfont
/y1 exch def
/x1 exch def
x1 y1 moveto
rot rotate
data show
} def
% x y fontsize rotation (text) outputtext
20 300 12 0 (text1) outputtext
20 400 12 90 (text2) outputtext
20 500 12 90 (text3) outputtext
20 600 12 0 (text4) outputtext
showpage
この関数は、ax、y 座標、および表示するテキストに基づいてテキストを出力するだけです。回転用の変数もあります。何らかの理由で、0 度を超える回転でテキストを出力すると、その後に続く他のすべてのテキストが機能しなくなります。なぜそうなのかわかりません。上記の例では、「text1」と「text2」は表示されますが、3 と 4 は表示されません。