home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PRINT / BREPLY.ZIP / RMD.PS < prev    next >
Text File  |  1993-07-25  |  2KB  |  67 lines
  1. %%BeginProcSet:RMD_Dict 0 0
  2. /RMD_Dict 60 dict def RMD_Dict begin
  3. %% definition operators
  4. /bdef {bind def} bind def
  5. /ldef {load def} bdef
  6. /xdef {exch def} bdef
  7. %% graphic state operators
  8. /g {/_b xdef /p {_b setgray} def} bdef
  9. /G {/_B xdef /P {_B setgray} def} bdef
  10. /d /setdash ldef
  11. /_i currentflat def
  12. /i {dup 0 eq {pop _i} if setflat} bdef
  13. /j /setlinejoin ldef
  14. /J /setlinecap ldef
  15. /M /setmiterlimit ldef
  16. /w /setlinewidth ldef
  17. %% path construction operators
  18. /_R {.25 sub round .25 add} bdef
  19. /_r {transform _R exch _R exch itransform} bdef
  20. /l {_r lineto} bdef
  21. /L /l ldef
  22. /m {_r moveto} bdef
  23. %% error operators
  24. /_e [] def
  25. /_E {_e length 0 ne {gsave 0 g 0 G 0 i 0 J 0 j 1 w 10 M [] 0 d
  26. /Courier 20 0 0 1 z [0.966 0.259 -0.259 0.966
  27. _e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div] e _f t T grestore} if} bdef
  28. /_fill {{fill} stopped
  29. {/_e [pathbbox] def /_f (ERROR: can't fill, increase flatness) def n _E} if} bdef
  30. /_stroke {{stroke} stopped
  31. {/_e [pathbbox] def /_f (ERROR: can't stroke, increase flatness) def n _E} if} bdef
  32. %% path painting operators
  33. /n /newpath ldef
  34. /N /n ldef
  35. /F {p _fill} bdef
  36. /f {closepath F} bdef
  37. /S {P _stroke} bdef
  38. /s {closepath S} bdef
  39. /_s /ashow ldef
  40. /_S {(?) exch {2 copy 0 exch put pop dup false charpath currentpoint _g setmatrix
  41. _stroke _G setmatrix moveto 3 copy pop rmoveto} forall pop pop pop n} bdef
  42. /_A {_a moveto _t exch 0 exch} bdef
  43. /_L {0 _l neg translate _G currentmatrix pop} bdef
  44. /_w {dup stringwidth exch 3 -1 roll length 1 sub _t mul add exch} bdef
  45. /_z [{0 0} bind {dup _w exch neg 2 div exch neg 2 div} bind {dup _w exch neg exch neg} bind] def
  46. /z {_z exch get /_a xdef /_t xdef /_l xdef exch findfont exch scalefont setfont} bdef
  47. /_g matrix def
  48. /_G matrix def
  49. /_D {_g currentmatrix pop gsave concat _G currentmatrix pop} bdef
  50. /e {_D p /t {_A _s _L} def} bdef
  51. /r {_D P /t {_A _S _L} def} bdef
  52. /a {_D /t {dup p _A _s P _A _S _L} def} bdef
  53. /o {_D /t {pop _L} def} bdef
  54. /T {grestore} bdef
  55. %% group construction operators
  56. /u {} bdef
  57. /U {} bdef
  58. %% font construction operators
  59. /Z {findfont begin currentdict dup length dict begin
  60. {1 index /FID ne {def} {pop pop} ifelse} forall /FontName exch def dup length 0 ne
  61. {/Encoding Encoding 256 array copy def 0 exch {dup type /nametype eq
  62. {Encoding 2 index 2 index put pop 1 add} {exch pop} ifelse} forall} if pop
  63. currentdict dup end end /FontName get exch definefont pop} bdef
  64. end
  65. %%EndProcSet
  66. %%EndProlog
  67.