1*38090Skarels 2*38090Skarels% included prolog for enscript files 3*38090Skarels% last edit: shore Sat Nov 9 13:28:41 1985 4*38090Skarels% Copyright (c) 1983, 1984 Adobe Systems Incorporated 5*38090Skarels% RCSID: $Header: enscript.pro,v 2.1 85/11/24 12:19:23 shore Rel $ 6*38090Skarelssave/EnscriptJob exch def 7*38090Skarels/StartEnscriptDoc{$enscript begin}def 8*38090Skarels/$enscript 50 dict def $enscript begin 9*38090Skarels/EndEnscriptDoc{end}def 10*38090Skarels/S/show load def 11*38090Skarels/X{exch 0 rmoveto S}def 12*38090Skarels/Y{exch 0 exch rmoveto S}def 13*38090Skarels/B{3 1 roll moveto S}def 14*38090Skarels/F{$fd exch get setfont}def 15*38090Skarels/StartPage{/svpg save def .05 dup scale}def 16*38090Skarels/EndPage{svpg restore showpage}def 17*38090Skarels/DoPreFeed{/statusdict where{pop 18*38090Skarels statusdict/prefeed known{statusdict exch/prefeed exch put 0}if}if pop}def 19*38090Skarels/Landscape{90 rotate 0 -15840 translate}def 20*38090Skarels/SetUpFonts 21*38090Skarels {dup/$fd exch array def{findfont exch scalefont $fd 3 1 roll put}repeat}def 22*38090Skarels/InitGaudy{/TwoColumn exch def /BarLength exch def 23*38090Skarels /ftD /Times-Bold findfont 12 UP scalefont def 24*38090Skarels /ftF /Times-Roman findfont 14 UP scalefont def 25*38090Skarels /ftP /Helvetica-Bold findfont 30 UP scalefont def}def 26*38090Skarels/U{1440 mul}def 27*38090Skarels/UP{U 72 div}def 28*38090Skarels/LB{/pts exch UP def /charcolor exch def /boxcolor exch def /font exch def 29*38090Skarels /label exch def /dy exch def /dx exch def /lly exch def /llx exch def 30*38090Skarels gsave boxcolor setgray 31*38090Skarels llx lly moveto dx 0 rlineto 0 dy rlineto dx neg 0 rlineto closepath fill 32*38090Skarels /lines label length def 33*38090Skarels /yp lly dy add dy lines pts mul sub 2 div sub pts .85 mul sub def 34*38090Skarels font setfont charcolor setgray 35*38090Skarels label {dup stringwidth pop 2 div llx dx 2 div add exch sub yp moveto show 36*38090Skarels /yp yp pts sub def}forall grestore}def 37*38090Skarels/Gaudy{/Page exch def /Date exch def /File exch def /Comment exch def 38*38090Skarels .25 U 10.2 U BarLength .1 sub U .25 U [File] ftF .97 0 14 LB 39*38090Skarels .25 U 10.45 U BarLength .1 sub U .25 U [Comment] ftF 1 0 14 LB 40*38090Skarels .25 U 10.2 U 1 U .5 U Date ftD .7 0 12 LB 41*38090Skarels BarLength .75 sub U 10.2 U 1 U .5 U [Page] ftP .7 1 30 LB 42*38090Skarels TwoColumn{BarLength 2 div .19 add U 10.2 U moveto 0 -10 U rlineto stroke}if 43*38090Skarels}def 44*38090Skarelsend 45