home *** CD-ROM | disk | FTP | other *** search
/ Serif Graphics Collection / Serif_Graphics_Collection_6_DTP_Porgrams_on_One_CD_Serif-SPF.iso / DISK1 / PPCNF.Z / PSHEADER.CNF < prev   
Text File  |  1995-11-28  |  5KB  |  77 lines
  1. /serifdict where not { /serifdict 200 dict def serifdict begin
  2. /bd { bind def } bind def
  3. /ppsepmode 0 def /ppink 0 def
  4. /ppsetscr /setscreen load def
  5. /setscreen {pop pop pop} def
  6. /ppcr false def /ppca false def /pptr 0 def /pptg 0 def /pptb 0 def /pptint 100
  7. def /ppminc 0 def /ppyinm 0 def /ppdc false def /pptrp false def /ppsprd 0 def
  8. /setrgbcolor {pprc {ppreclr} if setrgbcolor} bind def
  9. /pprc { pptint 100 ne ppcr or ppca or } bind def
  10. /ppreclr { ppcr { 2 div add exch 3 mul 5 div add 2.1 div 1 exch sub /ppt exch
  11. def pptr 1 sub ppt mul 1 add pptg 1 sub ppt mul 1 add pptb 1 sub ppt mul 1 add }
  12. { ppca {pop pop pop pptr pptg pptb} if } ifelse pptint 100 ne { 3 {1 sub pptint
  13. mul 100 div 1 add 3 1 roll } repeat } if } def
  14. /sc { scignore {pop pop pop} {3{255 div 3 1 roll}repeat setrgbcolor} ifelse } def
  15. /sco  { setrgbcolor } def
  16. /sgco { {setgray}{sco}? } def
  17. /ppbc { 0 index 2 index eq 2 index
  18. 4 index eq and {pop pop 1 exch sub}{pop pop pop 0} ifelse } bind def /ppcc { 100
  19. div mul 1 index mul sub } bind def /ppci { /ppblk exch def /ppye exch def /ppma
  20. exch def /ppcy exch def ppma ppcy ppminc ppcc /ppma exch def ppye ppma ppyinm
  21. ppcc /ppye exch def ppcy ppma ppye ppblk } bind def /pprtc { /ppb exch def /ppg
  22. exch def /ppr exch def ppr ppg ppb ppbc /ppblk exch def 1 ppr sub ppblk sub 1
  23. ppg sub ppblk sub 1 ppb sub ppblk sub ppblk ppdc { ppci } if } bind def
  24. /cmyktorgb {3{dup 5 -1 roll add 1 exch sub dup 0 lt{pop 0}if exch}repeat pop}bd
  25. /setcmykcolor where{pop /ppsetcmykcolor /setcmykcolor load def}{/ppsetcmykcolor
  26. {cmyktorgb setrgbcolor}bd }ifelse
  27. /setcmykcolor { ppca ppcr or { cmyktorgb setrgbcolor }{ pptint 100 ne
  28. { 4 {pptint mul 100 div 4 1 roll} repeat }if ppsepmode 0 eq {ppsetcmykcolor}
  29. {3 ppink sub index 5 1 roll 4 {pop} repeat 1 exch sub setgray} ifelse } ifelse
  30. } bind def
  31. /sethsbcolor {ppsepmode 0 eq{sethsbcolor}{sethsbcolor currentrgbcolor
  32. setrgbcolor}ifelse}bd
  33. /ppp[ {pprc {ppreclr} if pprtc pop pop pop 1 exch sub setgray}{pprc {ppreclr} if
  34. pprtc pop pop exch pop 1 exch sub setgray}{pprc {ppreclr} if pprtc pop 3 1 roll
  35. pop pop 1 exch sub setgray}{pprc {ppreclr} if pprtc 4 1 roll pop pop pop 1 exch
  36. sub setgray}] bind def /ppcs 0 def /ppms 1 def /ppys 2 def /ppbs 3 def
  37. /ppssrgbp {serifdict /ppp get exch get /setrgbcolor exch def } bind def
  38. /ppsssp {dup serifdict /ppsa get exch get exch serifdict /ppf get exch
  39. get exch currentscreen 3 1 roll pop pop ppsetscr} bind def
  40. /setgray {dup dup setrgbcolor} def
  41. /ppfill {gsave eofill grestore} bd
  42. /pppp {{rlineto} repeat} bd
  43. end
  44.  
  45. userdict begin
  46. /stroke { serifdict /pptrp get currentgray 1 ne and { /pplc currentlinecap def
  47. 2 setlinecap currentlinewidth serifdict /ppsprd get add setlinewidth stroke
  48. pplc setlinecap }{ stroke } ifelse } bd
  49. /eofill { serifdict /pptrp get { gsave eofill grestore stroke }{ eofill } ifelse
  50. } bd
  51. /fill { serifdict /pptrp get { gsave fill grestore stroke }{ fill } ifelse
  52. } bd
  53. /pptrapchar { currentpoint /cpy2 exch def /cpx2 exch def /clw currentlinewidth
  54. def 0 setlinewidth moveto false charpath stroke clw setlinewidth cpx2 cpy2
  55. moveto } bd
  56. /show { serifdict /pptrp get { /str 1 string def { str 0 3 -1 roll put
  57. currentpoint /cpy exch def /cpx exch def str show str cpx cpy pptrapchar }
  58. forall }{ show } ifelse } bd
  59. /widthshow { serifdict /pptrp get { 4 1 roll /ch exch def /cy exch def /cx exch
  60. def /str 1 string def { /ch2 exch def str 0 ch2 put currentpoint /cpy exch def
  61. /cpx exch def cx cy ch str widthshow str cpx cpy pptrapchar } forall }
  62. { widthshow } ifelse } bd
  63. /ashow { serifdict /pptrp get { 3 1 roll /ay exch def /ax exch def /str 1 string
  64. def { str 0 3 -1 roll put currentpoint /cpy exch def /cpx exch def ax ay str
  65. ashow str cpx cpy pptrapchar } forall }{ ashow } ifelse } bd
  66. /awidthshow { serifdict /pptrp get { 6 1 roll /ay exch def /ax exch def
  67. /ch exch def /cy exch def /cx exch def /str 1 string def { /ch2 exch def str 0
  68. ch2 put currentpoint /cpy exch def /cpx exch def cx cy ch ax ay str awidthshow
  69. str cpx cpy pptrapchar }forall }{ awidthshow } ifelse } bd
  70. end
  71. /Pscript_Win_Driver_Incr where { pop Pscript_Win_Driver_Incr begin /S /show load
  72. def /W /widthshow load def /A /ashow load def /D /awidthshow load def /K /stroke
  73. load def /L /fill load def /O /eofill load def end } if
  74. /Adobe_Win_Driver_Incr where { pop Adobe_Win_Driver_Incr begin /S /show load
  75. def /W /widthshow load def /A /ashow load def /D /awidthshow load def /K /stroke
  76. load def /L /fill load def /O /eofill load def end } if }{pop} ifelse
  77.