trunk

git-svn-id: svn://tug.org/texlive/trunk@9 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 89 insertions, 0 deletions

diff --git a/Master/xemtex/gslib/gsnup.ps b/Master/xemtex/gslib/gsnup.ps
new file mode 100644
index 00000000000..bec6f72539e
--- /dev/null
+++ b/Master/xemtex/gslib/gsnup.ps
@@ -0,0 +1,89 @@
+%!
+%    Copyright (C) 1999 Aladdin Enterprises.  All rights reserved.
+% 
+% This program is free software; you can redistribute it and/or modify it
+% under the terms of the GNU General Public License as published by the
+% Free Software Foundation; either version 2 of the License, or (at your
+% option) any later version.
+%
+% This program is distributed in the hope that it will be useful, but
+% WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
+% Public License for more details.
+%
+% You should have received a copy of the GNU General Public License along
+% with this program; if not, write to the Free Software Foundation, Inc.,
+% 59 Temple Place, Suite 330, Boston, MA, 02111-1307.
+
+% $Id: gsnup.ps,v 1.2.6.1.2.1 2003/04/12 14:02:38 giles Exp $
+% Prefix this to very well-behaved PostScript files for n-up printing.
+
+/cdef { 1 index where { pop pop } { def } ifelse } def
+
+%%%%%%%%%%%%%%%% Begin parameters %%%%%%%%%%%%%%%%
+
+% All parameters are also settable from the command line with -d, e.g.,
+% -d.Nx=3
+
+/.Nx 2 cdef			% # of pages across the physical page
+/.Ny 2 cdef			% # of pages down the physical page
+/.Landscape false cdef		% if true, rotate page by 90 degrees
+
+%%%%%%%%%%%%%%%% End parameters %%%%%%%%%%%%%%%%
+
+vmstatus pop pop 0 eq { save pop } if
+.Landscape {
+  currentpagedevice /PageSize get aload pop
+  exch 2 array astore
+  1 dict dup /PageSize 4 -1 roll put
+  setpagedevice
+} if
+/.BP currentpagedevice /BeginPage get def
+/.EP currentpagedevice /EndPage get def
+/.Ps 1 string def	% survive save/restore
+/.Pn { .Ps 0 get } def
+true setglobal		% protect from restore
+/.ELevel [0] def
+/.Rmat matrix def
+false setglobal
+/.max { 2 copy lt { exch } if pop } cdef
+% Work around the common save ... showpage ... restore locution.
+/restore {
+  .Rmat currentmatrix pop restore
+  vmstatus pop pop .ELevel 0 get lt { .Rmat setmatrix } if
+} bind def
+<<
+  /BeginPage {
+    .BP .Nx .Ny .max
+    gsave
+      initclip clippath pathbbox exch 4 -1 roll sub 3 1 roll exch sub
+    grestore
+    2 copy exch .Nx div exch .Ny div
+    .Pn dup .Nx mod exch .Nx idiv .Ny 1 sub exch sub
+		% Stack: nmax pw ph pw/nx ph/ny ix iy
+    exch 3 index mul exch 2 index mul
+    translate
+		% Stack: nmax pw ph pw/nx ph/ny
+    4 -1 roll 4 index div 4 -1 roll 4 index div
+		% Stack: nmax pw/nx ph/ny pw/nmax ph/nmax
+    exch 4 -1 roll exch sub 2 div
+    3 1 roll sub 2 div
+    translate
+		% Stack: nmax
+    1 exch div dup scale
+  }
+  /EndPage {
+    .ELevel 0 vmstatus pop pop put
+    .Ps 0 .Pn 1 add .Nx .Ny mul mod put    
+    .Pn 0 eq {
+      .EP
+    } {
+      pop pop false
+    } ifelse
+  }
+>> setpagedevice
+/.EOJ {
+  { .Pn 0 eq { exit } if showpage } loop
+} def
+
+{ currentfile cvx exec .EOJ } exec