%!PS /advice (No.) def % desc{ "No.", as big as the page. With a tip of the hat to Barbara Kruger. } % - sburke@cpan.org, 2006. % Time-stamp: "2011-01-12 03:57:02 AST" sburke@cpan.org gsave initclip clippath pathbbox grestore /urY exch def /urX exch def /llY exch def /llX exch def /PagePortraitWidth urX llX sub def /PageLandscapeWidth urY llY sub def /inch {72 mul} bind def /Helvetica findfont PageLandscapeWidth 2 inch sub scalefont setfont llX 1 inch add urY 1 inch sub translate -90 rotate % portrait mode advice stringwidth pop PageLandscapeWidth 2 inch sub exch div 1 scale % ...to fill page .5 setgray 0 0 moveto advice show showpage %End