home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / gsnup.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  2.9 KB  |  92 lines
  1. %!
  2. %    Copyright (C) 1999 Aladdin Enterprises.  All rights reserved.
  3. % 
  4. % This file is part of GNU Ghostscript.
  5. % 
  6. % GNU Ghostscript is distributed in the hope that it will be useful, but
  7. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. % to anyone for the consequences of using it or for whether it serves any
  9. % particular purpose or works at all, unless he says so in writing.  Refer
  10. % to the GNU General Public License for full details.
  11. % 
  12. % Everyone is granted permission to copy, modify and redistribute GNU
  13. % Ghostscript, but only under the conditions described in the GNU General
  14. % Public License.  A copy of this license is supposed to have been given
  15. % to you along with GNU Ghostscript so you can know your rights and
  16. % responsibilities.  It should be in a file named COPYING.  Among other
  17. % things, the copyright notice and this notice must be preserved on all
  18. % copies.
  19.  
  20. % $RCSfile: gsnup.ps,v $ $Revision: 1.2.2.1 $
  21. % Prefix this to very well-behaved PostScript files for n-up printing.
  22.  
  23. /cdef { 1 index where { pop pop } { def } ifelse } def
  24.  
  25. %%%%%%%%%%%%%%%% Begin parameters %%%%%%%%%%%%%%%%
  26.  
  27. % All parameters are also settable from the command line with -d, e.g.,
  28. % -d.Nx=3
  29.  
  30. /.Nx 2 cdef            % # of pages across the physical page
  31. /.Ny 2 cdef            % # of pages down the physical page
  32. /.Landscape false cdef        % if true, rotate page by 90 degrees
  33.  
  34. %%%%%%%%%%%%%%%% End parameters %%%%%%%%%%%%%%%%
  35.  
  36. vmstatus pop pop 0 eq { save pop } if
  37. .Landscape {
  38.   currentpagedevice /PageSize get aload pop
  39.   exch 2 array astore
  40.   1 dict dup /PageSize 4 -1 roll put
  41.   setpagedevice
  42. } if
  43. /.BP currentpagedevice /BeginPage get def
  44. /.EP currentpagedevice /EndPage get def
  45. /.Ps 1 string def    % survive save/restore
  46. /.Pn { .Ps 0 get } def
  47. true setglobal        % protect from restore
  48. /.ELevel [0] def
  49. /.Rmat matrix def
  50. false setglobal
  51. /.max { 2 copy lt { exch } if pop } cdef
  52. % Work around the common save ... showpage ... restore locution.
  53. /restore {
  54.   .Rmat currentmatrix pop restore
  55.   vmstatus pop pop .ELevel 0 get lt { .Rmat setmatrix } if
  56. } bind def
  57. <<
  58.   /BeginPage {
  59.     .BP .Nx .Ny .max
  60.     gsave
  61.       initclip clippath pathbbox exch 4 -1 roll sub 3 1 roll exch sub
  62.     grestore
  63.     2 copy exch .Nx div exch .Ny div
  64.     .Pn dup .Nx mod exch .Nx idiv .Ny 1 sub exch sub
  65.         % Stack: nmax pw ph pw/nx ph/ny ix iy
  66.     exch 3 index mul exch 2 index mul
  67.     translate
  68.         % Stack: nmax pw ph pw/nx ph/ny
  69.     4 -1 roll 4 index div 4 -1 roll 4 index div
  70.         % Stack: nmax pw/nx ph/ny pw/nmax ph/nmax
  71.     exch 4 -1 roll exch sub 2 div
  72.     3 1 roll sub 2 div
  73.     translate
  74.         % Stack: nmax
  75.     1 exch div dup scale
  76.   }
  77.   /EndPage {
  78.     .ELevel 0 vmstatus pop pop put
  79.     .Ps 0 .Pn 1 add .Nx .Ny mul mod put    
  80.     .Pn 0 eq {
  81.       .EP
  82.     } {
  83.       pop pop false
  84.     } ifelse
  85.   }
  86. >> setpagedevice
  87. /.EOJ {
  88.   { .Pn 0 eq { exit } if showpage } loop
  89. } def
  90.  
  91. { currentfile cvx exec .EOJ } exec
  92.