t-nissieの日記： センタリング

サッカーの話と見せかけて、PostScriptプログラミングの話です。
出典は忘れました（青本？）が、右よせ、センタリングはこうします。

%!PS-Adobe-3.0
%%Title: centering
%%Creator: t-nissie
%%Pages: (atend)
%%PageOrder: Ascend
%%EndComments
%%Page: 1 1
%--- def --------------------------------
/rightshow
  {dup stringwidth pop % get length of string
    neg
    0 rmoveto
    show} def
/centershow
  {dup stringwidth pop
    2 div neg
    0 rmoveto
    show} def
%--- end def ----------------------------
/Helvetica findfont 40 scalefont setfont
524 471 moveto (RIGHT) rightshow
298 421 moveto (CENTER) centershow
  72 371 moveto (LEFT) show
showpage