Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!lll-crg!nike!ucbcad!ucbvax!dsiramd.nz!ray
From: ray@dsiramd.nz
Newsgroups: mod.computers.laser-printers
Subject: (none)
Message-ID: <8610290337.AA17819@vuwcomp>
Date: Sat, 1-Nov-86 15:44:36 EST
Article-I.D.: vuwcomp.8610290337.AA17819
Posted: Sat Nov  1 15:44:36 1986
Date-Received: Mon, 3-Nov-86 23:28:04 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 91
Approved: laser-lovers@washington.arpa

Newsgroups: mod.computers.laser-printers
Subject: Re: Need help with latest Laserprep
Summary: Possible solution.
Expires: 
References: <8610250143.AA03019@ucbvax.Berkeley.EDU>
Sender: 
Reply-To: ray@dsiramd.UUCP (Ray Brownrigg)
Followup-To: 
Distribution: net
Organization: Applied Maths Div, DSIR, Wellington, New Zealand
Keywords: 

In article <8610250143.AA03019@ucbvax.Berkeley.EDU> CUSTEAD@SASK.BITNET writes:
>
>I used CMD-K to get an upload, edited out the appropriate lines,
>and tried to use it with CMD-F files.  It almost works, but
>all font changes are ignored.  (Everything comes out courier.)
>Seems to have something to do with the ________ preceeding the
>font names in the PostScript file.
>
>Sooo, does anyone have a working prolog from the latest Laserprep?
>(appleversion 40.)

I had the same trouble with a Laser-Writer using Appledict Version 36.0.
The problem definitely is with the font setting up, the control-K
generated file (and the ASCII postscript text extracted from the
laserprep file) only set up the Courier and Seattle fonts (perhaps
relying on font substitution being turned off on the Mac).

The solution is as follows. Replace the line:
 
/|______Courier /Courier T rf
 
with the following:
 
Fontdirectory				% for each Fontdirectory item,
{exch dup 30 string cvs /@s xdf @s aps	% if it is starting with |
	{pop pop}			%   then forget it.
	{exch dup length dict /tmp xdf	% if not the Symbol font
	cf /Symbol ne{mv}if		%   then use macvec encoding.
	@s cvn				% convert fontname to string,
	30 string 0 @s length 7 add	%   move name right
	getinterval dup 7 @s putinterval	% by 7 spaces,
	dup 0 (|______) putinterval	%   prepend mac prefix,
	cvn tmp definefont pop		%   name new font.
	}ifelse
}forall
 
An easier to understand, but possibly less flexible, way to do it is to
duplicate the definition of the Courier font to define all the other
fonts, *except Symbol*, in the same way (there are 11 of these), and to
define the Symbol font in the following way:
 
/|______Symbol /Symbol findfont /tmp 1 index maxlength dict def cf tmp
definefont
 
In either case, the file so created, beginning with:
 
0 serverdict begin exitserver
userdict begin
/md 250 dict def
md begin
 
and ending with:
 
systemdict /currentpacking ....
currentfile ok userdict .....
 
will coexist with the TeX PSLOAD file, to allow either type of
Postscript file to be output.
 
For added functionality, to prevent memory problems when using a
small-memory LaserWriter (not a LaserWriter+), the following could be
substituted for the start of the file:
 
/md where
	{pop (Macdraw download already done!\n)print flush currentdict begin}
	{0 serverdict begin exitserver}ifelse
/md where {pop}{userdict begin}ifelse
/md where {pop}{/md 250 dict def}ifelse
md begin
 
Further comments, particularly from those with LW+, will be especially
welcome, as we hope to upgrade in the near future.


-- 
Ray Brownrigg		UUCP: {alberta,ubc-vision}!calgary!vuwcomp!dsiramd!ray
Applied Maths Div, DSIR		ACSnet:	ray@dsiramd.nz
(New Zealand Govt.)		System:	OLIVETTI/AT&T 3B2/400B+, System V R2.1
Wellington, New Zealand			"UNX -rules -OK"