| Revision 9090,
768 bytes
checked in by ghudson, 28 years ago
(diff) |
|
This commit was generated by cvs2svn to compensate for changes in r9089,
which included commits to RCS files with non-trunk default branches.
|
| Line | |
|---|
| 1 | % Psnup prolog |
|---|
| 2 | % Copyright (c) 1990,1992 Adobe Systems Incorporated. All Rights Reserved. |
|---|
| 3 | % GOVERNMENT END USERS: See Notice file in TranScript library directory |
|---|
| 4 | % -- probably /usr/lib/ps/Notice |
|---|
| 5 | % RCS: $Header: /afs/dev.mit.edu/source/repository/third/transcript/lib/psnup.pro,v 1.1.1.1 1996-10-07 20:25:32 ghudson Exp $ |
|---|
| 6 | /PNSP { % scalefactor PNSP |
|---|
| 7 | /PN save def |
|---|
| 8 | dup scale |
|---|
| 9 | } bind def |
|---|
| 10 | |
|---|
| 11 | /PNEP { |
|---|
| 12 | PN restore |
|---|
| 13 | PNshowpage |
|---|
| 14 | } bind def |
|---|
| 15 | |
|---|
| 16 | /PNBOX { % width height PNBOX |
|---|
| 17 | gsave |
|---|
| 18 | 1 setlinewidth |
|---|
| 19 | exch /width exch def |
|---|
| 20 | 0 0 moveto |
|---|
| 21 | width 0 rlineto |
|---|
| 22 | 0 exch rlineto |
|---|
| 23 | 0 width sub 0 rlineto |
|---|
| 24 | closepath |
|---|
| 25 | stroke |
|---|
| 26 | grestore |
|---|
| 27 | } bind def |
|---|
| 28 | |
|---|
| 29 | /PNLS { % scalefactor -width PNLS |
|---|
| 30 | /PN save def |
|---|
| 31 | 90 rotate |
|---|
| 32 | 0 exch translate |
|---|
| 33 | dup scale |
|---|
| 34 | } bind def |
|---|
Note: See
TracBrowser
for help on using the repository browser.
