home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s053 / 28.ddi / reloc.2 / $POSTSCRIPT / dpost.ps < prev    next >
Encoding:
Text File  |  1990-12-08  |  4.4 KB  |  193 lines
  1. %ident    "@(#)////usr/lib/lp/postscript/dpost.ps.sl 1.1 4.0 12/08/90 61048 AT&T-USL"
  2. %
  3. % Version 3.15 prologue for troff files.
  4. %
  5.  
  6. /#copies 1 store
  7. /aspectratio 1 def
  8. /formsperpage 1 def
  9. /landscape false def
  10. /linewidth .3 def
  11. /magnification 1 def
  12. /margin 0 def
  13. /orientation 0 def
  14. /resolution 720 def
  15. /xoffset 0 def
  16. /yoffset 0 def
  17.  
  18. /roundpage true def
  19. /useclippath true def
  20. /pagebbox [0 0 612 792] def
  21.  
  22. /R  /Times-Roman def
  23. /I  /Times-Italic def
  24. /B  /Times-Bold def
  25. /BI /Times-BoldItalic def
  26. /H  /Helvetica def
  27. /HI /Helvetica-Oblique def
  28. /HB /Helvetica-Bold def
  29. /HX /Helvetica-BoldOblique def
  30. /CW /Courier def
  31. /CO /Courier def
  32. /CI /Courier-Oblique def
  33. /CB /Courier-Bold def
  34. /CX /Courier-BoldOblique def
  35. /PA /Palatino-Roman def
  36. /PI /Palatino-Italic def
  37. /PB /Palatino-Bold def
  38. /PX /Palatino-BoldItalic def
  39. /Hr /Helvetica-Narrow def
  40. /Hi /Helvetica-Narrow-Oblique def
  41. /Hb /Helvetica-Narrow-Bold def
  42. /Hx /Helvetica-Narrow-BoldOblique def
  43. /KR /Bookman-Light def
  44. /KI /Bookman-LightItalic def
  45. /KB /Bookman-Demi def
  46. /KX /Bookman-DemiItalic def
  47. /AR /AvantGarde-Book def
  48. /AI /AvantGarde-BookOblique def
  49. /AB /AvantGarde-Demi def
  50. /AX /AvantGarde-DemiOblique def
  51. /NR /NewCenturySchlbk-Roman def
  52. /NI /NewCenturySchlbk-Italic def
  53. /NB /NewCenturySchlbk-Bold def
  54. /NX /NewCenturySchlbk-BoldItalic def
  55. /ZD /ZapfDingbats def
  56. /ZI /ZapfChancery-MediumItalic def
  57. /VR /Varitimes#Roman def
  58. /VI /Varitimes#Italic def
  59. /VB /Varitimes#Bold def
  60. /VX /Varitimes#BoldItalic def
  61. /S  /S def
  62. /S1 /S1 def
  63. /GR /Symbol def
  64.  
  65. /inch {72 mul} bind def
  66. /min {2 copy gt {exch} if pop} bind def
  67.  
  68. /setup {
  69.     counttomark 2 idiv {def} repeat pop
  70.  
  71.     landscape {/orientation 90 orientation add def} if
  72.     /scaling 72 resolution div def
  73.     linewidth setlinewidth
  74.     1 setlinecap
  75.  
  76.     pagedimensions
  77.     xcenter ycenter translate
  78.     orientation neg rotate
  79.     width 2 div neg height 2 div translate
  80.     xoffset inch yoffset inch translate
  81.     margin 2 div dup neg translate
  82.     magnification dup aspectratio mul scale
  83.     scaling scaling scale
  84.  
  85.     /Symbol /S Sdefs cf
  86.     /Times-Roman /S1 S1defs cf
  87.     0 0 moveto
  88. } def
  89.  
  90. /pagedimensions {
  91.     useclippath userdict /gotpagebbox known not and {
  92.         /pagebbox [clippath pathbbox newpath] def
  93.         roundpage currentdict /roundpagebbox known and {roundpagebbox} if
  94.     } if
  95.     pagebbox aload pop
  96.     4 -1 roll exch 4 1 roll 4 copy
  97.     landscape {4 2 roll} if
  98.     sub /width exch def
  99.     sub /height exch def
  100.     add 2 div /xcenter exch def
  101.     add 2 div /ycenter exch def
  102.     userdict /gotpagebbox true put
  103. } def
  104.  
  105. /pagesetup {
  106.     /page exch def
  107.     currentdict /pagedict known currentdict page known and {
  108.         page load pagedict exch get cvx exec
  109.     } if
  110. } def
  111.  
  112. /decodingdefs [
  113.     {counttomark 2 idiv {y moveto show} repeat}
  114.     {neg /y exch def counttomark 2 idiv {y moveto show} repeat}
  115.     {neg moveto {2 index stringwidth pop sub exch div 0 32 4 -1 roll widthshow} repeat}
  116.     {neg moveto {spacewidth sub 0.0 32 4 -1 roll widthshow} repeat}
  117.     {counttomark 2 idiv {y moveto show} repeat}
  118.     {neg setfunnytext}
  119. ] def
  120.  
  121. /setdecoding {/t decodingdefs 3 -1 roll get bind def} bind def
  122.  
  123. /w {neg moveto show} bind def
  124. /m {neg dup /y exch def moveto} bind def
  125. /done {/lastpage where {pop lastpage} if} def
  126.  
  127. /f {
  128.     dup /font exch def findfont exch
  129.     dup /ptsize exch def scaling div dup /size exch def scalefont setfont
  130.     linewidth ptsize mul scaling 10 mul div setlinewidth
  131.     /spacewidth ( ) stringwidth pop def
  132. } bind def
  133.  
  134. /changefont {
  135.     /fontheight exch def
  136.     /fontslant exch def
  137.     currentfont [
  138.         1 0
  139.         fontheight ptsize div fontslant sin mul fontslant cos div
  140.         fontheight ptsize div
  141.         0 0
  142.     ] makefont setfont
  143. } bind def
  144.  
  145. /sf {f} bind def
  146.  
  147. /cf {
  148.     dup length 2 idiv
  149.     /entries exch def
  150.     /chtab exch def
  151.     /newfont exch def
  152.  
  153.     findfont dup length 1 add dict
  154.     /newdict exch def
  155.     {1 index /FID ne {newdict 3 1 roll put} {pop pop} ifelse} forall
  156.  
  157.     newdict /Metrics entries dict put
  158.     newdict /Metrics get
  159.     begin
  160.         chtab aload pop
  161.         1 1 entries {pop def} for
  162.         newfont newdict definefont pop
  163.     end
  164. } bind def
  165.  
  166. %
  167. % A few arrays used to adjust reference points and character widths in some
  168. % of the printer resident fonts. If square roots are too high try changing
  169. % the lines describing /radical and /radicalex to,
  170. %
  171. %    /radical    [0 -75 550 0]
  172. %    /radicalex    [-50 -75 500 0]
  173. %
  174.  
  175. /Sdefs [
  176.     /bracketlefttp        [220 500]
  177.     /bracketleftbt        [220 500]
  178.     /bracketrighttp        [-70 380]
  179.     /bracketrightbt        [-70 380]
  180.     /braceleftbt        [220 490]
  181.     /bracketrightex        [220 -125 500 0]
  182.     /radical        [0 0 550 0]
  183.     /radicalex        [-50 0 500 0]
  184.     /parenleftex        [-20 -170 0 0]
  185.     /integral        [100 -50 500 0]
  186.     /infinity        [10 -75 730 0]
  187. ] def
  188.  
  189. /S1defs [
  190.     /underscore        [0 80 500 0]
  191.     /endash            [7 90 650 0]
  192. ] def
  193.