home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / gsnup.ps < prev    next >
Text File  |  2000-03-09  |  3KB  |  91 lines
  1. %!
  2. %    Copyright (C) 1999 Aladdin Enterprises.  All rights reserved.
  3. % 
  4. % This file is part of Aladdin Ghostscript.
  5. % 
  6. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  7. % or distributor accepts any responsibility for the consequences of using it,
  8. % or for whether it serves any particular purpose or works at all, unless he
  9. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  10. % License (the "License") for full details.
  11. % 
  12. % Every copy of Aladdin Ghostscript must include a copy of the License,
  13. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  14. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  15. % under certain conditions described in the License.  Among other things, the
  16. % License requires that the copyright notice and this notice be preserved on
  17. % all copies.
  18.  
  19. % $Id: gsnup.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  20. % Prefix this to very well-behaved PostScript files for n-up printing.
  21.  
  22. /cdef { 1 index where { pop pop } { def } ifelse } def
  23.  
  24. %%%%%%%%%%%%%%%% Begin parameters %%%%%%%%%%%%%%%%
  25.  
  26. % All parameters are also settable from the command line with -d, e.g.,
  27. % -d.Nx=3
  28.  
  29. /.Nx 2 cdef            % # of pages across the physical page
  30. /.Ny 2 cdef            % # of pages down the physical page
  31. /.Landscape false cdef        % if true, rotate page by 90 degrees
  32.  
  33. %%%%%%%%%%%%%%%% End parameters %%%%%%%%%%%%%%%%
  34.  
  35. vmstatus pop pop 0 eq { save pop } if
  36. .Landscape {
  37.   currentpagedevice /PageSize get aload pop
  38.   exch 2 array astore
  39.   1 dict dup /PageSize 4 -1 roll put
  40.   setpagedevice
  41. } if
  42. /.BP currentpagedevice /BeginPage get def
  43. /.EP currentpagedevice /EndPage get def
  44. /.Ps 1 string def    % survive save/restore
  45. /.Pn { .Ps 0 get } def
  46. true setglobal        % protect from restore
  47. /.ELevel [0] def
  48. /.Rmat matrix def
  49. false setglobal
  50. /.max { 2 copy lt { exch } if pop } cdef
  51. % Work around the common save ... showpage ... restore locution.
  52. /restore {
  53.   .Rmat currentmatrix pop restore
  54.   vmstatus pop pop .ELevel 0 get lt { .Rmat setmatrix } if
  55. } bind def
  56. <<
  57.   /BeginPage {
  58.     .BP .Nx .Ny .max
  59.     gsave
  60.       initclip clippath pathbbox exch 4 -1 roll sub 3 1 roll exch sub
  61.     grestore
  62.     2 copy exch .Nx div exch .Ny div
  63.     .Pn dup .Nx mod exch .Nx idiv .Ny 1 sub exch sub
  64.         % Stack: nmax pw ph pw/nx ph/ny ix iy
  65.     exch 3 index mul exch 2 index mul
  66.     translate
  67.         % Stack: nmax pw ph pw/nx ph/ny
  68.     4 -1 roll 4 index div 4 -1 roll 4 index div
  69.         % Stack: nmax pw/nx ph/ny pw/nmax ph/nmax
  70.     exch 4 -1 roll exch sub 2 div
  71.     3 1 roll sub 2 div
  72.     translate
  73.         % Stack: nmax
  74.     1 exch div dup scale
  75.   }
  76.   /EndPage {
  77.     .ELevel 0 vmstatus pop pop put
  78.     .Ps 0 .Pn 1 add .Nx .Ny mul mod put    
  79.     .Pn 0 eq {
  80.       .EP
  81.     } {
  82.       pop pop false
  83.     } ifelse
  84.   }
  85. >> setpagedevice
  86. /.EOJ {
  87.   { .Pn 0 eq { exit } if showpage } loop
  88. } def
  89.  
  90. { currentfile cvx exec .EOJ } exec
  91.