🚀 go-pugleaf

rcd@ico.isc.com (Dick Dunn) writes:

>The original posting involved a slightly different problem: Jeff Hinsch was
>trying to get the search order redefined so that a printer would find fonts
>downloaded to a printer's disk in preference to ROM fonts.  This seems
>rather harder, because presumably the fonts on disk are not in
>FontDirectory (else, by the definition of findfont, they would take
>precedence).  Jeff, or someone who's fighting that particular printer:
>Is findfont a procedure that you can unravel to find the separate steps?

Here's a definition for the 'findfont' operator:

% findfont definition in Qume ScripTEN version 47.0
/findfont {
	dup
	FontDirectory exch known {
		FontDirectory exch
		get
	}{
		{
			dup
			type
			/stringtype 
			ne
			{
				=string cvs
			} if
			print
		} exec
		( not found, using Courier.\n)
		print flush
		FontDirectory /Courier 
		get
	} ifelse
} bind def

Ross Smith  rsmith@well.sf.ca.us   {apple,pacbell,hplabs,ucbvax}!well!rsmith
-- 
Ross Smith  rsmith@well.sf.ca.us   {apple,pacbell,hplabs,ucbvax}!well!rsmith