home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J / os42j.iso / usr / lib / transcript / enscript.pro < prev    next >
Encoding:
Text File  |  1997-04-25  |  2.4 KB  |  47 lines
  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: /disks/hobo/vp6/snichols/rel3.0/transcript/lib/RCS/enscript.pro,v 3.0 1991/06/17 17:08:31 snichols Exp $
  6. /$enscript 50 dict def $enscript begin
  7. /S {aload length -2 1 {-2 roll $fv exch get setfont show} for} bind 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 dup dup length 1 sub get 0.1 mul /$fs exch def /$fv exch def} bd
  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 {dup /$fd exch array def {3 array astore {findfont 1 index scalefont exch} forall 4 array astore $fd 3 1 roll put} repeat} bd
  20. /InitGaudy{/Columns exch def
  21.  /ftD [[/Times-Bold /GothicBBB-Medium.Hankaku /GothicBBB-Medium-EUC-H]
  22.   {findfont 12 UP scalefont}forall] def
  23.  /ftF [[/Times-Roman /Ryumin-Light.Hankaku /Ryumin-Light-EUC-H]
  24.   {findfont 14 UP scalefont}forall] def
  25.  /ftP [[/Helvetica-Bold /GothicBBB-Medium.Hankaku /GothicBBB-Medium-EUC-H]
  26.   {findfont 30 UP scalefont}forall] def} bd
  27. /LB{/pts exch UP def /charcolor exch def /boxcolor exch def /$fv exch def
  28.  /label exch def /dy exch def /dx exch def /lly exch def /llx exch def
  29.  /$fs 0 def gsave boxcolor setgray
  30.  llx lly moveto dx 0 rlineto 0 dy rlineto dx neg 0 rlineto closepath fill
  31.  /lines label length def
  32.  /yp lly dy add dy lines pts mul sub 2 div sub pts .85 mul sub def
  33.  charcolor setgray
  34.  label {/wid 0 def dup aload length -2 1 {-2 roll $fv exch get setfont
  35.  stringwidth pop wid add /wid exch def}for
  36.  wid 2 div llx dx 2 div add exch sub yp moveto S
  37.    /yp yp pts sub def}forall grestore} bd
  38. /Gaudy{/plength exch def /BarLength exch def /hy exch def /hx exch def
  39.  /Page exch def /Date exch def  /File exch def /Comment exch def
  40.  hx hy  BarLength 144 sub .25 U [File] ftF .97 0 14 LB
  41.  hx hy 360 add BarLength 144 sub .25 U [Comment] ftF 1 0 14 LB
  42.  hx hy 1 U .5 U Date ftD .7 0 12 LB
  43.  BarLength 1080 sub hy 1 U .5 U [Page] ftP .7 1 30 LB
  44.  2 1 Columns {1 sub plength Columns div mul hy moveto 0 0 hy sub rlineto
  45.  stroke}for } bd
  46. /Landscape { 90 rotate 0 exch translate } bd
  47.