laser-lovers@uw-beaver (10/09/85)
From: thomas%utah-gr@utah-cs.arpa (Spencer W. Thomas)
I have recently hacked upon the "laserprep" file posted by Brian Reid
to allow insertion of Mac Postscript output into documents produced by
(for example) Scribe. The necessary changes are pretty small, so I am
including them as a "diff" listing in this message. I can presumably
send the complete file to anyone who didn't keep it originally (shame on
you!) This prep file does assume standard letter size paper, and makes
an assumption about how much the Mac offsets the "origin" of the MacDrawing
from the original PostScript origin. I have only tested it with
MacDraw output.
To use this file, simply concatenate it at the beginning of the ".ps"
file output by Scribe (or download it permanently as explained in the
original). If using the file as a prefix, it can coexist with a
permanently loaded "standard" laserprep file.
Note: all pictures included in documents using this package must fit on
a single page, since the page command is disabled. This is what you would
expect for a drawing to be included in a figure, anyway.
For example, assume that "ex.ps" contains the PostScript code for a
MacDrawing. Your ".mss" file might contain:
@Begin(Figure)
@Picture(Size 3.5 inches, PostScript "ex.ps")
@Caption(Example Figure)
@End(Figure)
After running Scribe, and assuming the modified laserprep file is
"scribelaserprep.ps", you could then print the resulting ".ps" file as
follows:
cat scribelaserprep.ps document.ps | lpr -Pps
*** laserprep.ps Wed Sep 25 14:47:17 1985
--- scribelaserprep.ps Wed Aug 28 17:18:16 1985
***************
*** 92,96
div .72 mul /pxs xdf % pixel x scale
! /pyt xdf % pixel y translation
! /pxt xdf % pixel x translation
! /por xdf % portrait flag (T=portrait)
} def
--- 92,96 -----
div .72 mul /pxs xdf % pixel x scale
! 36 sub /pyt xdf % pixel y translation
! 36 sub /pxt xdf % pixel x translation
! /por xdf % portrait flag (T=portrait)
} def
***************
*** 103,108
dup 1680 eq
! userdict /note known
! {{legal}{note}ifelse}
! {pop}
! ifelse
dup 1212 eq {54 32.4 xl} if
--- 103,105 -----
dup 1680 eq
! {{1320 1680 div dup scale}if}
dup 1212 eq {54 32.4 xl} if
***************
*** 325,327
/page {
! 1 add /#copies xdf showpage
} def
--- 322,324 -----
/page {
! pop % 1 add /#copies xdf showpage
} def
--
=Spencer ({ihnp4,decvax}!utah-cs!thomas, thomas@utah-cs.ARPA)
"The difference between reality and unreality is that reality has
so little to recommend it." -- Allan Sherman