home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / postscri / 6489 < prev    next >
Encoding:
Text File  |  1993-01-28  |  3.5 KB  |  115 lines
  1. Newsgroups: comp.lang.postscript
  2. Path: sparky!uunet!pmafire!news.dell.com!natinst.com!cs.utexas.edu!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!ira.uka.de!math.fu-berlin.de!news.netmbx.de!Germany.EU.net!mcsun!sun4nl!relay.philips.nl!cazander
  3. From: cazander%serigate@phcoms.seri.philips.nl (Koos Cazander)
  4. Subject: Re: Changing a file from A size to letter
  5. Message-ID: <1993Jan26.123104.26814@phcomgw.seri.philips.nl>
  6. Originator: news@phcoms.seri.philips.nl
  7. Sender: news@phcomgw.seri.philips.nl
  8. Organization: SERI-CEN Network Services, Philips C&P, Eindhoven, The Netherlands
  9. X-Newsreader: TIN [version 1.1 PL8]
  10. References: <C165LB.E1z@mentor.cc.purdue.edu>
  11. Date: Tue, 26 Jan 1993 12:31:04 GMT
  12. Lines: 101
  13.  
  14. Allen B (ab@nova.cc.purdue.edu) wrote:
  15. : I just whipped this up, so it's a little rough, but it seems
  16. : to work.  Send me any bug fixes or suggestions.  Preface
  17. : your file with this and fill in and out Width and Height to
  18. : suit what you want to do.  Should take A4 to Letter now. 
  19.  
  20. : ---
  21. : [ A4 to Letter prologue deleted ]
  22.  
  23. Well it doesn't work for some outputs.
  24. I used it the outher way round (Letter to ISO standard A4)
  25. but it still is refused to take an A4 paper.
  26. I copied a part of the header below.
  27.  
  28. --
  29. %!
  30. %%Title: Sizeshifter
  31. %%Creator: ab@nova.cc.purdue.edu
  32.  
  33. % intended size of image
  34. /inWidth 8.5 72 mul def
  35. /inHeight 11 72 mul def
  36.  
  37. % actual size of paper
  38. /outWidth 210 25.4 div 72 mul def
  39. /outHeight 297 25.4 div 72 mul def
  40.  
  41. /newScale
  42.     outWidth inWidth div
  43.     outHeight inHeight div
  44.     2 copy lt {
  45.         pop
  46.     } {
  47.         exch pop
  48.     } ifelse
  49. def
  50.  
  51. /xTranslate outWidth inWidth newScale mul sub 2 div def
  52. % /yTranslate outHeight inHeight newScale mul sub 2 div def
  53. /yTranslate 1 def    % leave hight unchanged
  54.  
  55. % OK set up for first page
  56.  
  57. xTranslate yTranslate translate
  58. newScale dup scale
  59.  
  60. % Then redefine showpage for the rest of them
  61.  
  62. /showpage
  63. [
  64.     /showpage load
  65.     xTranslate yTranslate /translate load
  66.     newScale dup /scale load
  67. ] cvx def
  68. %!PS-Adobe-2.0 
  69. %%Title: CatMeow2Cover
  70. %%Creator:  PageMaker 4.01
  71. %%CreationDate:  3-10-1992, 8:36:18
  72. %%For: Manuel Noriega
  73. %%BoundingBox:  0 0 612 792
  74. %%Pages:  1 0
  75. %%DocumentPrinterRequired: "" ""
  76. %%DocumentFonts:  (atend) 
  77. %%DocumentSuppliedFonts:  (atend) 
  78. %%DocumentNeededFonts:  (atend) 
  79. %%DocumentNeededProcSets: 
  80. %%DocumentSuppliedProcSets: AldusDict2  209   55  
  81. %%DocumentPaperSizes: Letter
  82. %%EndComments 
  83. %%BeginFile:  PatchFile
  84. userdict /AldusDict known {(A previous version PageMaker header is loaded.) = flush} if
  85. %%EndFile 
  86. %%BeginProcSet: AldusDict2  209   55  
  87. % 209    55            AldusVersion/AldRevision:  This record must be first!!
  88. % Copyright (C) 1987 Aldus Corporation. All rights reserved.
  89.  
  90.  [ prologue deleted ]
  91.  
  92. %%EndProcSet 
  93. %%EndProlog 
  94. AldusDict2  begin
  95. %%BeginSetup 
  96. letter
  97.  
  98.  [ rest deleted ]
  99.  
  100. If I comment the command "letter" out, then it will print it.
  101. I cannot find in the prologue any definition of "letter", so it must
  102. be something in the system dictionary.
  103. So I usually search for letter in ps files, but it doesn't solve it
  104. always, for instance files from "dvips" don't have a "letter" command,
  105. but still the printer stubborn request for new paper.
  106.  
  107.  
  108. ----------------------------------------------------------------------
  109. -- If you want to send EMAIL, include a subject line in the header: --
  110. --     'Subject: <cazander:pasichva>'   (without the quotes :-)     --
  111. --        and send it to 'serigate@phcoms.seri.philips.nl'.         --
  112. ----------------------------------------------------------------------
  113. -- J. Cazander, Philips Electronic Design & Tools, The Netherlands. --
  114. ----------------------------------------------------------------------
  115.