Path: utzoo!news-server.csri.toronto.edu!rutgers!apple!well!rsmith
From: rsmith@well.sf.ca.us (Ross Smith)
Newsgroups: comp.lang.postscript
Subject: Re: font lookup problem
Message-ID: <23508@well.sf.ca.us>
Date: 9 Mar 91 06:34:18 GMT
References: <71017@microsoft.UUCP> <5568@acorn.co.uk> <1991Mar5.213334.29175@ico.isc.com>
Distribution: comp
Lines: 39

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