cdup | index | next     PostScript document     [image by itself: Number-8.txt]
[next]
%!
% This was taken from pages 89,90 of the "Tutorial and Cookbook"

% ----- Variables and Procedures -----
/RM 780 def	% Top Margin
/BM -12 def	% Bottom
/LM 0 def	% Left
/TM 612 def	% Right

/newline
{ currentpoint 43 sub
  exch pop LM
  exch moveto } def

/nlIfNec
{ currentpoint pop RM gt	% beyond RM?
  {newline} if } def		% yes: next line

/done?		% stack: --- bool
{ currentpoint exch pop		% below BM?
  BM lt } def

/fillpage	% stack: str
{ /strg exch def
  { {pop pop nlIfNec} strg kshow
    done? {exit} if
  } loop
} def

% ------ Begin Program -----

TM 0 translate 90 rotate

/TEXT (8) def
/NewCenturySchlbk-Bold findfont [1000 0 0 570 0 0] makefont setfont
100 100 moveto
TEXT true charpath
gsave
0.33 setgray fill	% Big number, medium dark

/Times-Bold findfont 30 scalefont setfont
LM TM moveto
0.66 setgray		% background text, medium light
(  Joe+Sally    Chris+John  ) fillpage

grestore
0 setgray		% Outline of number, black
20 setlinewidth stroke

showpage


cdup | index | next     PostScript document
1 of 43:  Number-8.txt  26-Nov-1993 19:18  1.00K