home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume35 / psutils / patch01 / Patch1.7-1.8
Encoding:
Text File  |  1993-03-04  |  18.2 KB  |  650 lines
  1. diff -c -r +new-file psutils-dist/LICENSE psutils/LICENSE
  2. *** psutils-dist/LICENSE    Mon Feb  8 11:33:39 1993
  3. --- psutils/LICENSE    Wed Feb 10 13:59:08 1993
  4. ***************
  5. *** 1,13 ****
  6.   
  7.                           PS Utilities Package
  8.   
  9. ! The constituent files of this package listed below are copyright (C) 1991,1992
  10. ! Angus J. C. Duggan.
  11.   
  12. ! Makefile        README          buffer.c        epsffit.c       fixfmps
  13. ! fixmacps        fixpspps        getafm          magic.c         psbook.1
  14. ! psbook.c        psnup           psnup.1         psselect.1      psselect.c
  15. ! pstops.1        pstops.c        psutil.c        psutil.h        showchar
  16.   
  17.   They may be copied and used for any purpose (including distribution as part of
  18.   a for-profit product), provided:
  19. --- 1,14 ----
  20.   
  21.                           PS Utilities Package
  22.   
  23. ! The constituent files of this package listed below are copyright (C) 1991,
  24. ! 1992, 1993 Angus J. C. Duggan.
  25.   
  26. ! LICENSE         Makefile        README          epsffit.c       fixfmps
  27. ! fixmacps        fixpsditps      fixpspps        fixwfwps        fixwpps
  28. ! getafm          patchlevel.h    psbook.1        psbook.c        psnup.1
  29. ! psnup.sh        psselect.1      psselect.c      pstops.1        pstops.c
  30. ! psutil.c        psutil.h        showchar
  31.   
  32.   They may be copied and used for any purpose (including distribution as part of
  33.   a for-profit product), provided:
  34. ***************
  35. *** 33,36 ****
  36.   The included files appledict.ps, md68.0.ps and md71.0.ps are (to the best of my
  37.   knowledge) copyright Apple Computer, Inc.
  38.   
  39. !                                                                 AJCD 25/3/92
  40. --- 34,37 ----
  41.   The included files appledict.ps, md68.0.ps and md71.0.ps are (to the best of my
  42.   knowledge) copyright Apple Computer, Inc.
  43.   
  44. !                                                                 AJCD 10/1/93
  45. diff -c -r +new-file psutils-dist/Makefile psutils/Makefile
  46. *** psutils-dist/Makefile    Mon Feb  8 11:33:32 1993
  47. --- psutils/Makefile    Wed Feb 10 14:49:22 1993
  48. ***************
  49. *** 1,6 ****
  50.   # Makefile for PS utilities
  51.   
  52. ! CFLAGS=-O
  53.   
  54.   # epsffit fits an epsf file to a given bounding box
  55.   # psbook rearranges pages into signatures
  56. --- 1,12 ----
  57.   # Makefile for PS utilities
  58.   
  59. ! CFLAGS=-g
  60. ! INSTALL=install -c -m 0755 
  61. ! INSTALLMAN=install -c -m 0644 
  62. ! BINDIR=/usr/local/bin
  63. ! MANDIR=/usr/local/share/man/man1
  64. ! MANEXT=1
  65. ! PAPER=a4
  66.   
  67.   # epsffit fits an epsf file to a given bounding box
  68.   # psbook rearranges pages into signatures
  69. ***************
  70. *** 7,14 ****
  71.   # psselect selects page ranges
  72.   # pstops performs general page rearrangement and merging
  73.   
  74. ! all: psbook psselect pstops epsffit
  75.   
  76.   epsffit: epsffit.c
  77.       $(CC) $(CFLAGS) -o epsffit epsffit.c
  78.   
  79. --- 13,23 ----
  80.   # psselect selects page ranges
  81.   # pstops performs general page rearrangement and merging
  82.   
  83. ! ALL = psbook psselect pstops epsffit psnup
  84. ! ALLPLUS = $(ALL) fixfmps fixmacps fixpsditps fixpspps fixwfwps fixwpps
  85.   
  86. + all: $(ALL)
  87. + 
  88.   epsffit: epsffit.c
  89.       $(CC) $(CFLAGS) -o epsffit epsffit.c
  90.   
  91. ***************
  92. *** 29,33 ****
  93.   
  94.   psselect.c: psutil.h patchlevel.h
  95.   
  96.   clean:
  97. !     rm -f *.o psbook psselect pstops epsffit
  98. --- 38,64 ----
  99.   
  100.   psselect.c: psutil.h patchlevel.h
  101.   
  102. + psnup: psnup.sh patchlevel.h
  103. +     r=`sed -n -e "s/^#define RELEASE \([0-9][0-9]*\)/\1/p" <patchlevel.h`; \
  104. +     p=`sed -n -e "s/^#define PATCHLEVEL \([0-9][0-9]*\)/\1/p" <patchlevel.h`; \
  105. +     sed -e "s/@PATCHLEVEL@/$$p/" -e "s/@RELEASE@/$$r/" -e "s/@PAPER@/$(PAPER)/" psnup.sh >psnup; \
  106. +     chmod 755 psnup
  107. + 
  108.   clean:
  109. !     rm -f *.o
  110. ! 
  111. ! veryclean: clean
  112. !     rm -f $(ALL)
  113. ! 
  114. ! install:
  115. !     @for i in $(ALLPLUS); do \
  116. !         echo Installing $$i; \
  117. !         $(INSTALL) $$i $(BINDIR); \
  118. !     done
  119. ! 
  120. ! installman:
  121. !     @for i in $(ALL); do \
  122. !         echo Installing manual page for $$i; \
  123. !         $(INSTALLMAN) $$i.1 $(MANDIR)/$$i.$(MANEXT); \
  124. !     done
  125. ! 
  126. diff -c -r +new-file psutils-dist/Manifest psutils/Manifest
  127. *** psutils-dist/Manifest    Mon Feb  8 11:33:40 1993
  128. --- psutils/Manifest    Wed Feb 10 12:52:15 1993
  129. ***************
  130. *** 2,9 ****
  131.   Makefile
  132.   Manifest
  133.   README
  134. ! patchlevel.h
  135. ! appledict.ps
  136.   epsffit.c
  137.   fixfmps
  138.   fixmacps
  139. --- 2,8 ----
  140.   Makefile
  141.   Manifest
  142.   README
  143. ! epsffit.1
  144.   epsffit.c
  145.   fixfmps
  146.   fixmacps
  147. ***************
  148. *** 14,23 ****
  149.   getafm
  150.   md68.0.ps
  151.   md71.0.ps
  152.   psbook.1
  153.   psbook.c
  154. - psnup
  155.   psnup.1
  156.   psselect.1
  157.   psselect.c
  158.   pstops.1
  159. --- 13,23 ----
  160.   getafm
  161.   md68.0.ps
  162.   md71.0.ps
  163. + patchlevel.h
  164.   psbook.1
  165.   psbook.c
  166.   psnup.1
  167. + psnup.sh
  168.   psselect.1
  169.   psselect.c
  170.   pstops.1
  171. diff -c -r +new-file psutils-dist/README psutils/README
  172. *** psutils-dist/README    Mon Feb  8 11:33:18 1993
  173. --- psutils/README    Thu Feb 11 09:27:14 1993
  174. ***************
  175. *** 59,65 ****
  176.   showchar (sh)   outputs PostScript to draw a character with metric info
  177.   fixfmps  (perl) filter to fix framemaker documents so that psselect etc. work
  178.   fixwpps  (perl) filter to fix WordPerfect documents so that psselect etc. work
  179. ! fixwpps  (perl) filter to fix Word for Windows documents for psutils
  180.   fixmacps (perl) filter to fix Macintosh documents with saner version of md
  181.   fixpsditps (perl) filter to fix Transcript psdit documents to work with psutils
  182.   fixpspps (perl) filter to fix PSPrint PostScript so that psselect etc. work
  183. --- 59,65 ----
  184.   showchar (sh)   outputs PostScript to draw a character with metric info
  185.   fixfmps  (perl) filter to fix framemaker documents so that psselect etc. work
  186.   fixwpps  (perl) filter to fix WordPerfect documents so that psselect etc. work
  187. ! fixwfwps (perl) filter to fix Word for Windows documents for psutils
  188.   fixmacps (perl) filter to fix Macintosh documents with saner version of md
  189.   fixpsditps (perl) filter to fix Transcript psdit documents to work with psutils
  190.   fixpspps (perl) filter to fix PSPrint PostScript so that psselect etc. work
  191. ***************
  192. *** 83,86 ****
  193. --- 83,103 ----
  194.   This is an interim release; these utilities are currently being re-written
  195.   from scratch, with a full DSC-3.0 parser and more extraction, merging, and
  196.   inclusion options included.
  197. + 
  198. + ACKNOWLEDGEMENTS
  199. + 
  200. + Bug fixes and suggestions for improvements to PSUtils have come from many
  201. + people, including:
  202. + 
  203. +         Brian Colfer            brianc@labmed.ucsf.edu
  204. +         Charles A. Finnell      finnell@org.mitre.lear
  205. +         Conrad Kimball          cek@com.boeing.sdc
  206. +         J.W.Hawtin              
  207. +         Jochen Schwarze         schwarze@de.isa
  208. +         Ken Carpenter           khc@edu.ksu.eece
  209. +         Kristian Jorg           etxkrjg@se.ericsson.solsta
  210. +         Larry Weissman          larryw@nsr.bioeng.washington.edu 
  211. +         Michael L. Brown        brown%uucp.vidiot@edu.wisc.cs
  212. +         
  213. + (Apologies to anyone who I have left out.)
  214.   
  215. diff -c -r +new-file psutils-dist/epsffit.1 psutils/epsffit.1
  216. *** psutils-dist/epsffit.1
  217. --- psutils/epsffit.1    Mon Feb  8 10:35:42 1993
  218. ***************
  219. *** 0 ****
  220. --- 1,47 ----
  221. + .TH EPSFFIT 1
  222. + .SH NAME
  223. + epsffit \- fit encapsulated PostScript file (EPSF) into constrained size
  224. + .SH SYNOPSIS
  225. + .B epsffit
  226. + [
  227. + .B \-c
  228. + ]
  229. + [
  230. + .B \-r
  231. + ]
  232. + [
  233. + .B \-a
  234. + ]
  235. + [
  236. + .B \-s
  237. + ]
  238. + .I "llx lly urx ury"
  239. + [
  240. + .B file
  241. + ]
  242. + .SH DESCRIPTION
  243. + .I Epsffit
  244. + fits an EPSF file (encapsulated PostScript) to a given bounding box.
  245. + The coordinates of the box are given by \fB(llx,lly)\fR for the lower
  246. + left, and \fB(urx,ury)\fR for the upper right, in PostScript units (points).
  247. + .PP
  248. + If no file is specified,
  249. + .I epsffit
  250. + uses the standard input. Output is always to the standard output.
  251. + .SH OPTIONS
  252. + .IP \fB\-c\fP 1i
  253. + Center the image in the given bounding box.
  254. + .IP \fB\-r\fP 1i
  255. + Rotate the image by 90 degrees counter-clockwise.
  256. + .IP \fB\-a\fP 1i
  257. + Adjust the aspect ratio to fit the bounding box. The default is to preserve
  258. + the aspect ratio.
  259. + .IP \fB\-s\fP 1i
  260. + Add a \fIshowpage\fP at the end of the file to force the image to print.
  261. + .SH AUTHOR
  262. + Angus Duggan
  263. + .SH "SEE ALSO"
  264. + psbook(1), psselect(1)
  265. + .SH TRADEMARKS
  266. + .B PostScript
  267. + is a trademark of Adobe Systems Incorporated.
  268. diff -c -r +new-file psutils-dist/epsffit.c psutils/epsffit.c
  269. *** psutils-dist/epsffit.c    Mon Feb  8 11:33:40 1993
  270. --- psutils/epsffit.c    Wed Feb 10 12:47:28 1993
  271. ***************
  272. *** 2,12 ****
  273.    * AJCD 6 Dec 90
  274.    * fit epsf file into constrained size
  275.    * Usage:
  276. !  *       epsffit [-c] [-r] [-a] [-s] llx lly urx ury
  277.    *               -c centres the image in the bounding box given
  278.    *               -r rotates the image by 90 degrees anti-clockwise
  279.    *               -a alters the aspect ratio to fit the bounding box
  280.    *               -s adds a showpage at the end of the image
  281.    */
  282.   
  283.   #include <stdio.h>
  284. --- 2,14 ----
  285.    * AJCD 6 Dec 90
  286.    * fit epsf file into constrained size
  287.    * Usage:
  288. !  *       epsffit [-c] [-r] [-a] [-s] llx lly urx ury [file]
  289.    *               -c centres the image in the bounding box given
  290.    *               -r rotates the image by 90 degrees anti-clockwise
  291.    *               -a alters the aspect ratio to fit the bounding box
  292.    *               -s adds a showpage at the end of the image
  293. +  *
  294. +  * Added filename spec (from Larry Weissman) 5 Feb 93
  295.    */
  296.   
  297.   #include <stdio.h>
  298. ***************
  299. *** 21,27 ****
  300.   usage()
  301.   {
  302.      fprintf(stderr, "%s release %d patchlevel %d\n", prog, RELEASE, PATCHLEVEL);
  303. !    fprintf(stderr, "Usage: %s [-c] [-r] [-a] [-s] llx lly urx ury\n", prog);
  304.      exit(1);
  305.   }
  306.   
  307. --- 23,30 ----
  308.   usage()
  309.   {
  310.      fprintf(stderr, "%s release %d patchlevel %d\n", prog, RELEASE, PATCHLEVEL);
  311. !    fprintf(stderr, "Usage: %s [-c] [-r] [-a] [-s] llx lly urx ury [file]\n",
  312. !        prog);
  313.      exit(1);
  314.   }
  315.   
  316. ***************
  317. *** 29,40 ****
  318.        int argc;
  319.        char **argv;
  320.   {
  321. -    int fit[4], i;
  322.      int bbfound = 0;              /* %%BoundingBox: found */
  323.      int urx, ury, llx, lly;
  324.      int furx, fury, fllx, flly, fwidth, fheight;
  325.      int showpage = 0, centre = 0, rotate = 0, aspect = 0;
  326.      char buf[BUFSIZ];
  327.   
  328.      prog = *argv++; argc--;
  329.   
  330. --- 32,43 ----
  331.        int argc;
  332.        char **argv;
  333.   {
  334.      int bbfound = 0;              /* %%BoundingBox: found */
  335.      int urx, ury, llx, lly;
  336.      int furx, fury, fllx, flly, fwidth, fheight;
  337.      int showpage = 0, centre = 0, rotate = 0, aspect = 0;
  338.      char buf[BUFSIZ];
  339. +    FILE *input = stdin;
  340.   
  341.      prog = *argv++; argc--;
  342.   
  343. ***************
  344. *** 51,57 ****
  345.         argv++;
  346.      }
  347.   
  348. !    if (argc != 4) usage();
  349.      fllx = atoi(argv[0]);
  350.      flly = atoi(argv[1]);
  351.      furx = atoi(argv[2]);
  352. --- 54,60 ----
  353.         argv++;
  354.      }
  355.   
  356. !    if (argc < 4) usage();
  357.      fllx = atoi(argv[0]);
  358.      flly = atoi(argv[1]);
  359.      furx = atoi(argv[2]);
  360. ***************
  361. *** 63,70 ****
  362.         fwidth = furx - fllx;
  363.         fheight = fury - flly;
  364.      }
  365.   
  366. !    while (fgets(buf, BUFSIZ, stdin)) {
  367.         if (buf[0] == '%' && (buf[1] == '%' || buf[1] == '!')) {
  368.        /* still in comment section */
  369.        if (!strncmp(buf, "%%BoundingBox:", 14)) {
  370. --- 66,79 ----
  371.         fwidth = furx - fllx;
  372.         fheight = fury - flly;
  373.      }
  374. +    if (argc > 4) {
  375. +       if(!(input = fopen(argv[4],"r"))) {
  376. +      fprintf(stderr, "%s: Cannot open %s\n", prog, argv[4]);
  377. +      exit(1);
  378. +       }
  379. +    }
  380.   
  381. !    while (fgets(buf, BUFSIZ, input)) {
  382.         if (buf[0] == '%' && (buf[1] == '%' || buf[1] == '!')) {
  383.        /* still in comment section */
  384.        if (!strncmp(buf, "%%BoundingBox:", 14)) {
  385. ***************
  386. *** 120,126 ****
  387.      }
  388.      do {
  389.         fputs(buf,stdout);
  390. !    } while (fgets(buf, BUFSIZ, stdin));
  391.      if (bbfound) {
  392.         puts("grestore");
  393.         if (showpage)
  394. --- 129,135 ----
  395.      }
  396.      do {
  397.         fputs(buf,stdout);
  398. !    } while (fgets(buf, BUFSIZ, input));
  399.      if (bbfound) {
  400.         puts("grestore");
  401.         if (showpage)
  402. diff -c -r +new-file psutils-dist/fixfmps psutils/fixfmps
  403. *** psutils-dist/fixfmps    Mon Feb  8 11:33:41 1993
  404. --- psutils/fixfmps    Wed Feb 10 14:38:18 1993
  405. ***************
  406. *** 2,7 ****
  407. --- 2,11 ----
  408.   # fixfmps: get conforming PostScript out of FrameMaker file
  409.   # move all FMDEFINEFONTs to start of pages
  410.   
  411. + # feed this into perl
  412. + eval 'exec perl -S $0 "$@"'
  413. +    if $running_under_some_shell;
  414. + 
  415.   %fonts=();
  416.   
  417.   while (<>) {
  418. diff -c -r +new-file psutils-dist/fixmacps psutils/fixmacps
  419. *** psutils-dist/fixmacps    Mon Feb  8 11:33:41 1993
  420. --- psutils/fixmacps    Wed Feb 10 14:38:06 1993
  421. ***************
  422. *** 1,6 ****
  423. --- 1,10 ----
  424.   #!/usr/local/bin/perl
  425.   # fixmacps: swap to sanitised appledict
  426.   
  427. + # feed this into perl
  428. + eval 'exec perl -S $0 "$@"'
  429. +    if $running_under_some_shell;
  430. + 
  431.   $line = 0;            # keep line count
  432.   $dir = "/usr/local/share/tex/dvips";
  433.   $prefix = "md";
  434. ***************
  435. *** 15,20 ****
  436. --- 19,26 ----
  437.      }
  438.   }
  439.   
  440. + %fonts = ();
  441. + 
  442.   while (<>) {
  443.      if (/^%!/) {
  444.         if (! $line) {
  445. ***************
  446. *** 52,61 ****
  447.        print "%!\n" if !$line;
  448.        print;
  449.         }
  450.      } else {
  451.         if (! $ignore) {
  452. !      print "%!\n" if !$line;
  453. !      print;
  454.         }
  455.      }
  456.      $line++;
  457. --- 58,75 ----
  458.        print "%!\n" if !$line;
  459.        print;
  460.         }
  461. +    } elsif (/^%%Page:/) {
  462. +       print $_;
  463. +       print values(%fonts);
  464.      } else {
  465.         if (! $ignore) {
  466. !      if (/^\{\}mark .*rf$/) {
  467. !         $fonts{$_} = $_;
  468. !         print;
  469. !      } else {
  470. !         print "%!\n" if !$line;
  471. !         print;
  472. !      }
  473.         }
  474.      }
  475.      $line++;
  476. diff -c -r +new-file psutils-dist/fixpsditps psutils/fixpsditps
  477. *** psutils-dist/fixpsditps    Mon Feb  8 11:33:42 1993
  478. --- psutils/fixpsditps    Wed Feb 10 14:38:26 1993
  479. ***************
  480. *** 1,6 ****
  481. --- 1,10 ----
  482.   #!/usr/local/bin/perl
  483.   # fixpsditps: fix psdit output for use in psutils
  484.   
  485. + # feed this into perl
  486. + eval 'exec perl -S $0 "$@"'
  487. +    if $running_under_some_shell;
  488. + 
  489.   while (<>) {
  490.      if (/^\/p{pop showpage pagesave restore \/pagesave save def}def$/) {
  491.         print STDOUT "/p{pop showpage pagesave restore}def\n";
  492. diff -c -r +new-file psutils-dist/fixpspps psutils/fixpspps
  493. *** psutils-dist/fixpspps    Mon Feb  8 11:33:42 1993
  494. --- psutils/fixpspps    Wed Feb 10 14:38:35 1993
  495. ***************
  496. *** 1,6 ****
  497. --- 1,10 ----
  498.   #!/usr/local/bin/perl
  499.   # mangle PostScript produced by PSPrint to make it almost conforming
  500.   
  501. + # feed this into perl
  502. + eval 'exec perl -S $0 "$@"'
  503. +    if $running_under_some_shell;
  504. + 
  505.   $header = 1; $ignore = 0;
  506.   $verbose = 0;
  507.   @body = ();
  508. diff -c -r +new-file psutils-dist/fixwfwps psutils/fixwfwps
  509. *** psutils-dist/fixwfwps    Mon Feb  8 11:33:43 1993
  510. --- psutils/fixwfwps    Wed Feb 10 14:38:45 1993
  511. ***************
  512. *** 1,6 ****
  513. --- 1,10 ----
  514.   #!/usr/local/bin/perl
  515.   # fixwfwps: fix Word for windows PostScript for printing.
  516.   
  517. + # feed this into perl
  518. + eval 'exec perl -S $0 "$@"'
  519. +    if $running_under_some_shell;
  520. + 
  521.   while (<>) {
  522.      tr/\000-\011\013-\037//d;
  523.      if (/^(%!PS-Adobe-[0-9]*\.[0-9]*) EPSF-/) {
  524. diff -c -r +new-file psutils-dist/fixwpps psutils/fixwpps
  525. *** psutils-dist/fixwpps    Mon Feb  8 11:33:26 1993
  526. --- psutils/fixwpps    Wed Feb 10 14:38:53 1993
  527. ***************
  528. *** 1,6 ****
  529. --- 1,10 ----
  530.   #!/usr/local/bin/perl
  531.   # fixwpps: get semi-conforming PostScript out of WordPerfect 5.0 file
  532.   
  533. + # feed this into perl
  534. + eval 'exec perl -S $0 "$@"'
  535. +    if $running_under_some_shell;
  536. + 
  537.   $page = 1;
  538.   while (<>) {
  539.      s/(_[a-zA-Z]+)([0-9]+)/\1 \2/g;
  540. diff -c -r +new-file psutils-dist/patchlevel.h psutils/patchlevel.h
  541. *** psutils-dist/patchlevel.h    Mon Feb  8 11:33:44 1993
  542. --- psutils/patchlevel.h    Wed Feb 10 12:47:18 1993
  543. ***************
  544. *** 1,2 ****
  545.   #define RELEASE 1
  546. ! #define PATCHLEVEL 7
  547. --- 1,2 ----
  548.   #define RELEASE 1
  549. ! #define PATCHLEVEL 8
  550. diff -c -r +new-file psutils-dist/psnup.sh psutils/psnup.sh
  551. *** psutils-dist/psnup.sh
  552. --- psutils/psnup.sh    Wed Feb 10 14:14:49 1993
  553. ***************
  554. *** 0 ****
  555. --- 1,93 ----
  556. + #!/bin/sh
  557. + # psnup: put multiple pages onto one physical sheet of paper.
  558. + # usage:
  559. + #       psnup [-w<dim>] [-h<dim>] [-ppaper] [-l] [-2|-4|-8|-9] [file...]
  560. + #               -w<dim> sets the paper width
  561. + #               -h<dim> sets the paper height
  562. + #               -ppaper sets the paper size (width and height) by name
  563. + #               -l      is used if the pages are in landscape orientation
  564. + 
  565. + io= landscape=0 nup=1 width= height= paper=@PAPER@
  566. + 
  567. + while test $# != 0
  568. + do      case "$1" in
  569. +         -w*)    width=$1 ; paper= ;;
  570. +         -h*)    height=$1 ; paper= ;;
  571. +         -p*)    paper=`echo "$1" | sed "s/^-.//"` ;;
  572. +         -m*)    margins=`echo "$1" | sed "s/^-.//"` ;; # not implemented yet
  573. +         -l)     landscape=1 ;;
  574. +         -2)     nup=2 ;;
  575. +         -4)     nup=4 ;;
  576. +         -8)     nup=8 ;;
  577. +         -9)     nup=9 ;;
  578. +         -s*)    xscale=`echo "$1" | sed "s/^-./@/"` ;;
  579. +         -v)     echo "psnup release @RELEASE@ patchlevel @PATCHLEVEL@" ; exit 1 ;;
  580. +         *)      io="$io $1"
  581. +         esac
  582. +         shift
  583. + done
  584. + 
  585. + tscale=@.707     # scale for twoup
  586. + fscale=@.5       # scale for fourup
  587. + escale=@.3536    # scale for eightup
  588. + nscale=@.333     # scale for nineup
  589. + 
  590. + case "$paper" in
  591. + a3|A3)  width=-w29.7cm height=-h42cm ;;
  592. + a4|A4)  width=-w21cm height=-h29.7cm ;;
  593. + a5|A5)  width=-w14.85cm height=-h21cm ;;
  594. + letter) width=-w8.5in height=-h11in tscale=@.648 escale=@.324 ;;
  595. + esac
  596. + 
  597. + scale= offset=
  598. + case "$nup" in
  599. + 2)      scale=$tscale
  600. +         if [ $landscape = 0 ]
  601. +         then offset="(1w,0) (1w,.5h)"
  602. +         else offset="(0,.5h) (0,0)"
  603. +         fi
  604. +         landscape=`expr 1 - $landscape` ;;
  605. + 4)      scale=$fscale
  606. +         if [ $landscape = 0 ]
  607. +         then offset="(0,.5h) (.5w,.5h) (0,0) (.5w,0)"
  608. +         else offset="(.5w,0) (.5w,.5h) (1w,0) (1w,.5h)"
  609. +         fi ;;
  610. + 8)      scale=$escale
  611. +         if [ $landscape = 0 ]
  612. +         then offset="(.5w,0) (.5w,.25h) (.5w,.5h) (.5w,.75h)\
  613. +                      (1w,0) (1w,.25h) (1w,.5h) (1w,.75h)"
  614. +         else offset="(0,.75h) (.5w,.75h) (0,.5h) (.5w,.5h)\
  615. +                      (0,.25h) (.5w,.25h) (0,0) (.5w,0)"
  616. +         fi
  617. +         landscape=`expr 1 - $landscape` ;;
  618. + 9)      scale=$nscale
  619. +         if [ $landscape = 0 ]
  620. +         then offset="(0,.666h) (.333w,.666h) (.666w,.666h)\
  621. +                      (0,.333h) (.333w,.333h) (.666w,.333h)\
  622. +                      (0,0) (.333w,0) (.666w,0)"
  623. +         else offset="(.333w,0) (.333w,.333h) (.333w,.666h)\
  624. +                      (.666w,0) (.666w,.333h) (.666w,.666h)\
  625. +                      (1w,0) (1w,.333h) (1w,.666h)"
  626. +         fi ;;
  627. + esac
  628. + 
  629. + if [ "X$xscale" != "X" ]
  630. + then scale=$xscale
  631. + fi
  632. + 
  633. + if [ $landscape = 0 ]
  634. + then rotate=
  635. + else rotate=L
  636. + fi
  637. + 
  638. + options= sep= page=0
  639. + 
  640. + set ""${offset}
  641. + while [ $page -lt $nup ]
  642. + do      options="$options${sep}$page$rotate$scale$1"
  643. +         sep=+
  644. +         page=`expr $page + 1`
  645. +         shift
  646. + done
  647. + 
  648. + pstops $width $height "$nup:$options" $io
  649.  
  650.