home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / groff-1.09-bin.lha / lib / groff / font / devps / prologue < prev    next >
Encoding:
Text File  |  1994-02-22  |  2.6 KB  |  153 lines
  1. %!PS-Adobe-3.0 Resource-ProcSet
  2. /setpacking where{
  3. pop
  4. currentpacking
  5. true setpacking
  6. }if
  7. /grops 120 dict dup begin
  8. /SC 32 def
  9. /A/show load def
  10. /B{0 SC 3 -1 roll widthshow}bind def
  11. /C{0 exch ashow}bind def
  12. /D{0 exch 0 SC 5 2 roll awidthshow}bind def
  13. /E{0 rmoveto show}bind def
  14. /F{0 rmoveto 0 SC 3 -1 roll widthshow}bind def
  15. /G{0 rmoveto 0 exch ashow}bind def
  16. /H{0 rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def
  17. /I{0 exch rmoveto show}bind def
  18. /J{0 exch rmoveto 0 SC 3 -1 roll widthshow}bind def
  19. /K{0 exch rmoveto 0 exch ashow}bind def
  20. /L{0 exch rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def
  21. /M{rmoveto show}bind def
  22. /N{rmoveto 0 SC 3 -1 roll widthshow}bind def
  23. /O{rmoveto 0 exch ashow}bind def
  24. /P{rmoveto 0 exch 0 SC 5 2 roll awidthshow}bind def
  25. /Q{moveto show}bind def
  26. /R{moveto 0 SC 3 -1 roll widthshow}bind def
  27. /S{moveto 0 exch ashow}bind def
  28. /T{moveto 0 exch 0 SC 5 2 roll awidthshow}bind def
  29. /SF{
  30. findfont exch
  31. [exch dup 0 exch 0 exch neg 0 0]makefont
  32. dup setfont
  33. [exch/setfont cvx]cvx bind def
  34. }bind def
  35. /MF{
  36. findfont
  37. [5 2 roll
  38. 0 3 1 roll 
  39. neg 0 0]makefont
  40. dup setfont
  41. [exch/setfont cvx]cvx bind def
  42. }bind def
  43. /level0 0 def
  44. /RES 0 def
  45. /PL 0 def
  46. /LS 0 def
  47. /PLG{
  48. gsave newpath clippath pathbbox grestore
  49. exch pop add exch pop
  50. }bind def
  51. /BP{
  52. /level0 save def
  53. 1 setlinecap
  54. 1 setlinejoin
  55. 72 RES div dup scale
  56. LS{
  57. 90 rotate
  58. }{
  59. 0 PL translate
  60. }ifelse
  61. 1 -1 scale
  62. }bind def
  63. /EP{
  64. level0 restore
  65. showpage
  66. }bind def
  67. /DA{
  68. newpath arcn stroke
  69. }bind def
  70. /SN{
  71. transform
  72. .25 sub exch .25 sub exch
  73. round .25 add exch round .25 add exch
  74. itransform
  75. }bind def
  76. /DL{
  77. SN
  78. moveto
  79. SN
  80. lineto stroke
  81. }bind def
  82. /DC{
  83. newpath 0 360 arc closepath
  84. }bind def
  85. /TM matrix def
  86. /DE{
  87. TM currentmatrix pop
  88. translate scale newpath 0 0 .5 0 360 arc closepath
  89. TM setmatrix
  90. }bind def
  91. /RC/rcurveto load def
  92. /RL/rlineto load def
  93. /ST/stroke load def
  94. /MT/moveto load def
  95. /CL/closepath load def
  96. /FL{
  97. currentgray exch setgray fill setgray
  98. }bind def
  99. /BL/fill load def
  100. /LW/setlinewidth load def
  101. /RE{
  102. findfont
  103. dup maxlength 1 index/FontName known not{1 add}if dict begin
  104. {
  105. 1 index/FID ne{def}{pop pop}ifelse
  106. }forall
  107. /Encoding exch def
  108. dup/FontName exch def
  109. currentdict end definefont pop
  110. }bind def
  111. /DEFS 0 def
  112. /EBEGIN{
  113. moveto
  114. DEFS begin
  115. }bind def
  116. /EEND/end load def
  117. /CNT 0 def
  118. /level1 0 def
  119. /PBEGIN{
  120. /level1 save def
  121. translate
  122. div 3 1 roll div exch scale
  123. neg exch neg exch translate
  124. 0 setgray
  125. 0 setlinecap
  126. 1 setlinewidth
  127. 0 setlinejoin
  128. 10 setmiterlimit
  129. []0 setdash
  130. /setstrokeadjust where{
  131. pop
  132. false setstrokeadjust
  133. }if
  134. /setoverprint where{
  135. pop
  136. false setoverprint
  137. }if
  138. newpath
  139. /CNT countdictstack def
  140. userdict begin
  141. /showpage{}def
  142. }bind def
  143. /PEND{
  144. clear
  145. countdictstack CNT sub{end}repeat
  146. level1 restore
  147. }bind def
  148. end def
  149. /setpacking where{
  150. pop
  151. setpacking
  152. }if
  153.