db5
%!PS-Adobe-1.0
%%DocumentFonts: (atend)
%%Title: FontBook
%%Creator: Keith Vincent, SSE, Sun Microsystems
%%CreationDate: Mar 18, 1988
%%Pages: (atend)
%%EndComments

% From: larry@phillips.Canada.Sun.Com (Larry Phillips [Sun Vancouver FSE])

/inch {72 mul} def
/cvis {1 string dup 0 4 -1 roll put} def

/DrawBoundMarks {	% width x y => - (draw the character bounding marks)
	gsave
		0 setlinewidth
		moveto
		0 1 16 div inch neg rmoveto
		0 7 16 div inch rlineto
		1 16 div inch neg 6 16 div inch neg rmoveto
		2 16 div inch add 0 rlineto		% this is where width gets used
		1 16 div inch neg 1 16 div inch neg rmoveto
		0 7 16 div inch rlineto stroke
	grestore
} def

/LabelChar {	% num wid x y => -	(print the character label)
	gsave
		/Times-Roman findfont 6 scalefont setfont		% num wid x y
		moveto						% num wid
		1 64 div inch neg 5 32 div inch neg rmoveto	% num wid
		exch						% wid num
		10 (   ) cvrs show				% wid
		% 16 (   ) cvrs show				% wid
		( ) show					% wid
		1000 mul {cvi} stopped {pop -1} if 1000 div (      ) cvs show			% -
	grestore
} def

/LabelName {	% str x y => -		(print the character name)
	gsave
		moveto
		1 64 div inch neg 7 32 div inch neg rmoveto
		/Times-Roman findfont 6 scalefont setfont
		show
	grestore
} def

/LowAscii <202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F606162636465666768696A6B6C6D6E6F707172737475767778797A7B7C7D7E7F> def
/HiAscii  <A0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBFC0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDFE0E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF> def
%%EndProlog
%%Page: 1

/str 250 string def
/buf 256 string def

FontDirectory {
	dup type /integertype eq {pop pop}
	{
		pop
		0 1 255 { buf exch 0 put } for
		/GivenFont exch def
		GivenFont findfont 24 scalefont setfont
		currentfont /FontName get cvx buf cvs
		gsave
			/Times-Roman findfont 24 scalefont setfont
			1 inch 10.5 inch moveto 
			buf show 
			( \(24 point\)) show
		grestore
	
		32 16 127 {
			/yval exch def
			/y 9.5 inch 11 16 div yval 16 div 2 sub mul inch sub def
			0 1 15 {
				/xval exch def
				/num yval xval add def
				/x xval .5 mul inch 7 16 div inch add def
				/width num cvis stringwidth pop def
				/name {currentfont /Encoding get} stopped 
					{pop pop /.notdef} 
					{{num get} stopped
					 {	/.notdef }
					 if
					} 
				ifelse def
				width x y DrawBoundMarks
				num width 24 div 0.0005 add x y LabelChar
				name (                    ) cvs x y LabelName
				x y moveto num cvis show
			} for
		} for
		160 16 255 {
			/yval exch def
			/y 10 inch 11 16 div yval 16 div 2 sub mul inch sub def
			0 1 15 {
				/xval exch def
				/num yval xval add def
				/x xval .5 mul inch 7 16 div inch add def
				/width num cvis stringwidth pop def
				/name {currentfont /Encoding get} stopped 
					{pop pop /.notdef} 
					{{num get} stopped
					 {	/.notdef }
					 if
					} 
				ifelse def
				width x y DrawBoundMarks
				num width 24 div 0.0005 add x y LabelChar
				name (                    ) cvs x y LabelName
				x y moveto num cvis show
			} for
		} for

		GivenFont findfont 10 scalefont setfont
		7 16 div inch 5.5 inch moveto LowAscii show

		7 16 div inch .5 inch moveto HiAscii show
		showpage
		clear
	} ifelse
} forall
%%Trailer
%%DocumentFonts:
%%Pages:
.

0