home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OpenStep 4.2
/
Openstep-4.2-Intel-User.iso
/
usr
/
lib
/
NextPrinter
/
Drivers
/
NXNLPDriver
/
PageSizePolicy.ps
< prev
Wrap
Text File
|
1995-04-12
|
950b
|
26 lines
%!
% NeXT PageSize Policy for laser printer:
% If page size of job is smaller than the paper in the tray, it is centered on
% the tray paper.
% This implementation works only on:
% a. Printers with a single tray. The code depends on finding the paper size in
% InputAttributes slot 0.
% b. NeXT printers. The code for rule 3 assumes the image has not been centered
% by PostScript due to a bug in NeXTSTEP 3.x.
% c. Printers that center the paper in the paper path. It isn't useful for
% printers that feed paper on the left-hand side.
<< /Policies << /PageSize 5 /PolicyReport {
dup /PageSize known {/PageSize get 5 eq} {pop false} ifelse {
mark
currentpagedevice /PageSize get aload pop 2 copy gt {exch} if
currentpagedevice /InputAttributes get 0 get /PageSize get aload pop
3 -1 roll exch 4 copy
lt 3 1 roll lt and {
sub neg 3 1 roll sub neg 2 div exch translate
} if
cleartomark
} bind if
} >> >> setpagedevice