home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / text / tex / 9364 < prev    next >
Encoding:
Text File  |  1992-07-21  |  1.5 KB  |  49 lines
  1. Newsgroups: comp.text.tex
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!mips!darwin.sura.net!news.udel.edu!ravel.udel.edu!anita
  3. From: anita@ravel.udel.edu (Anita Zanolini Hoover)
  4. Subject: twoup.ps
  5. Message-ID: <Brr8nL.38o@news.udel.edu>
  6. Sender: usenet@news.udel.edu
  7. Nntp-Posting-Host: ravel.udel.edu
  8. Organization: University of Delaware
  9. Date: Tue, 21 Jul 1992 19:54:57 GMT
  10. Lines: 37
  11.  
  12.  
  13. I retreive from this newsgroup some PostScript code that was
  14. suppose to create 2up pages with dvips.  I thought I tried
  15. this and it worked before, but now it appears it was so long
  16. ago I can't get it to work.  I am also interested in the
  17. US 8.5 X 11in paper constants.
  18.  
  19. I have used successfully the 2up.sty generic macros from
  20. Timothy Van Zandt, but was also looking for a PostScript
  21. solution.
  22.  
  23. Here is the code I originally retreived:
  24.  
  25. % twoup.ps for dvips 5.47 by Piet van Oostrum <piet@cs.ruu.nl>
  26. % the constants are for A4 paper.
  27. % Use with dvips -h twoup -t landscape 
  28. /isoddpage true def
  29. /orig-showpage /showpage load def
  30. /factor 0.707106781187 def
  31. /showpage {
  32.         isoddpage not { orig-showpage } if
  33.         /isoddpage isoddpage not store } def
  34.  
  35. /bop-hook {
  36.         /vsize 1 factor add neg def
  37.         isoddpage {factor factor scale}
  38.                  { 0 544.283799804 translate} ifelse
  39.         } def
  40.  
  41. /end-hook{ isoddpage not { orig-showpage } if } def
  42.  
  43. /start-hook {/eos{ isoddpage {clear SS restore /isoddpage true store}
  44.         {clear SS restore /isoddpage false store}
  45.                  ifelse} B
  46.     /bos{/SS save N
  47.         isoddpage not {factor factor scale} if} B
  48. } def
  49.