/* testfont.q: print a PostScript font sample 01-13-1994 AG */

include graphics;

/*

To print font F, invoke `test F', e.g.:

==> def GRAPHICS = gsdev
==> test "Times-Roman"
==> showpage; test "Symbol"
==> showpage; test "ZapfDingbats"
==> undef GRAPHICS

*/

private sample, showline;

test F		= moveto 36 700 ||
		  sample F 60
		  rmoveto 0 -30 ||
		  sample F 30;

sample F SZ	= setfont F SZ ||
		  showline SZ "ABCDEFGHIJKLM" ||
		  showline SZ "NOPQRSTUVWXYZ" ||
		  showline SZ "abcdefghijklm" ||
		  showline SZ "nopqrstuvwxyz" ||
		  showline SZ "^1234567890#+" ||
		  showline SZ "°!\"§$%&/()='*" ||
		  showline SZ "{[]}\\|<>,.-;:_`~";

showline SZ S	= gsave || show S || grestore || rmoveto 0 (-SZ);