🚀 go-pugleaf

Allen B (ab@nova.cc.purdue.edu) wrote:
: I just whipped this up, so it's a little rough, but it seems
: to work.  Send me any bug fixes or suggestions.  Preface
: your file with this and fill in and out Width and Height to
: suit what you want to do.  Should take A4 to Letter now. 

: ---
: [ A4 to Letter prologue deleted ]

Well it doesn't work for some outputs.
I used it the outher way round (Letter to ISO standard A4)
but it still is refused to take an A4 paper.
I copied a part of the header below.

--
%!
%%Title: Sizeshifter
%%Creator: ab@nova.cc.purdue.edu

% intended size of image
/inWidth 8.5 72 mul def
/inHeight 11 72 mul def

% actual size of paper
/outWidth 210 25.4 div 72 mul def
/outHeight 297 25.4 div 72 mul def

/newScale
	outWidth inWidth div
	outHeight inHeight div
	2 copy lt {
		pop
	} {
		exch pop
	} ifelse
def

/xTranslate outWidth inWidth newScale mul sub 2 div def
% /yTranslate outHeight inHeight newScale mul sub 2 div def
/yTranslate 1 def	% leave hight unchanged

% OK set up for first page

xTranslate yTranslate translate
newScale dup scale

% Then redefine showpage for the rest of them

/showpage
[
	/showpage load
	xTranslate yTranslate /translate load
	newScale dup /scale load
] cvx def
%!PS-Adobe-2.0 
%%Title: CatMeow2Cover
%%Creator:  PageMaker 4.01
%%CreationDate:  3-10-1992, 8:36:18
%%For: Manuel Noriega
%%BoundingBox:  0 0 612 792
%%Pages:  1 0
%%DocumentPrinterRequired: "" ""
%%DocumentFonts:  (atend) 
%%DocumentSuppliedFonts:  (atend) 
%%DocumentNeededFonts:  (atend) 
%%DocumentNeededProcSets: 
%%DocumentSuppliedProcSets: AldusDict2  209   55  
%%DocumentPaperSizes: Letter
%%EndComments 
%%BeginFile:  PatchFile
userdict /AldusDict known {(A previous version PageMaker header is loaded.) = flush} if
%%EndFile 
%%BeginProcSet: AldusDict2  209   55  
% 209	55			AldusVersion/AldRevision:  This record must be first!!
% Copyright (C) 1987 Aldus Corporation. All rights reserved.

 [ prologue deleted ]

%%EndProcSet 
%%EndProlog 
AldusDict2  begin
%%BeginSetup 
letter

 [ rest deleted ]

If I comment the command "letter" out, then it will print it.
I cannot find in the prologue any definition of "letter", so it must
be something in the system dictionary.
So I usually search for letter in ps files, but it doesn't solve it
always, for instance files from "dvips" don't have a "letter" command,
but still the printer stubborn request for new paper.


----------------------------------------------------------------------
-- If you want to send EMAIL, include a subject line in the header: --
--     'Subject: <cazander:pasichva>'   (without the quotes :-)     --
--        and send it to 'serigate@phcoms.seri.philips.nl'.         --
----------------------------------------------------------------------
-- J. Cazander, Philips Electronic Design & Tools, The Netherlands. --
----------------------------------------------------------------------