| 1 | % Start of enscript.pro -- prolog for text file translator |
|---|
| 2 | % Copyright (c) 1984,1985,1987 Adobe Systems Incorporated. All Rights Reserved. |
|---|
| 3 | % GOVERNMENT END USERS: See Notice file in TranScript library directory |
|---|
| 4 | % -- probably /usr/lib/ps/Notice |
|---|
| 5 | % RCSID: $Header: /afs/dev.mit.edu/source/repository/third/transcript/lib/enscript.pro,v 1.1.1.1 1996-10-07 20:25:31 ghudson Exp $ |
|---|
| 6 | /$enscript 50 dict def $enscript begin |
|---|
| 7 | /S/show load def |
|---|
| 8 | /bd { bind def } bind def |
|---|
| 9 | /X{exch 0 rmoveto S} bd |
|---|
| 10 | /Y{exch 0 exch rmoveto S} bd |
|---|
| 11 | /B{3 1 roll moveto S} bd |
|---|
| 12 | /F{$fd exch get setfont} def |
|---|
| 13 | /U{1440 mul}def |
|---|
| 14 | /UP{U 72 div}def |
|---|
| 15 | /StartPage{/svpg save def .05 dup scale} bd |
|---|
| 16 | /EndPage{svpg restore showpage} bd |
|---|
| 17 | /DoPreFeed{/statusdict where{pop |
|---|
| 18 | statusdict/prefeed known{statusdict exch/prefeed exch put 0}if}if pop} bd |
|---|
| 19 | /SetUpFonts |
|---|
| 20 | {dup/$fd exch array def{findfont reef exch scalefont $fd 3 1 roll |
|---|
| 21 | put}repeat}def |
|---|
| 22 | /InitGaudy{/Columns exch def |
|---|
| 23 | /ftD /Times-Bold findfont 12 UP scalefont def |
|---|
| 24 | /ftF /Times-Roman findfont 14 UP scalefont def |
|---|
| 25 | /ftP /Helvetica-Bold findfont 30 UP scalefont def} bd |
|---|
| 26 | /LB{/pts exch UP def /charcolor exch def /boxcolor exch def /font exch def |
|---|
| 27 | /label exch def /dy exch def /dx exch def /lly exch def /llx exch def |
|---|
| 28 | gsave boxcolor setgray |
|---|
| 29 | llx lly moveto dx 0 rlineto 0 dy rlineto dx neg 0 rlineto closepath fill |
|---|
| 30 | /lines label length def |
|---|
| 31 | /yp lly dy add dy lines pts mul sub 2 div sub pts .85 mul sub def |
|---|
| 32 | font setfont charcolor setgray |
|---|
| 33 | label {dup stringwidth pop 2 div llx dx 2 div add exch sub yp moveto show |
|---|
| 34 | /yp yp pts sub def}forall grestore} bd |
|---|
| 35 | /Gaudy{/plength exch def /BarLength exch def /hy exch def /hx exch def |
|---|
| 36 | /Page exch def /Date exch def /File exch def /Comment exch def |
|---|
| 37 | hx hy BarLength 144 sub .25 U [File] ftF .97 0 14 LB |
|---|
| 38 | hx hy 360 add BarLength 144 sub .25 U [Comment] ftF 1 0 14 LB |
|---|
| 39 | hx hy 1 U .5 U Date ftD .7 0 12 LB |
|---|
| 40 | BarLength 1080 sub hy 1 U .5 U [Page] ftP .7 1 30 LB |
|---|
| 41 | 2 1 Columns {1 sub plength Columns div mul hy moveto 0 0 hy sub rlineto |
|---|
| 42 | stroke}for } bd |
|---|
| 43 | /Landscape { 90 rotate 0 exch translate } bd |
|---|
