vallog: PostScript kshow

2009/11/13

PostScript kshow

% --- variables ------------------------
/TM 832 def % Tom
/BM -12 def % Bottom
/LM 0 def % Left
/RM 612 def % Right
/line-height 28 def
/font-size-1 30 def
/font-size-2 250 def
/message (KPF) def

% --- procedures ------------------------
/newline {
    currentpoint line-height sub
    exch pop LM
    exch moveto
} def

/nllfNec {
    currentpoint pop RM gt {
        newline
    } if
} def

/done? {
currentpoint exch pop
BM lt
} def

/fillpage {
    /strg exch def
    {
        { pop pop nllfNec } strg kshow
        ( ) show
        done? {
            exit
        } if
    } loop
} def

% --- main -----------------------------
/Times-Bold findfont font-size-1 scalefont setfont
LM TM moveto
.7 setgray
message fillpage

/Times-Roman findfont font-size-2 scalefont setfont

RM LM sub
message stringwidth pop sub
2 div
400 moveto

0 setgray
message show

showpage