home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 September (Special) / Chip-Special_2004-09_Digitalni-Hudba.bin / servis / reader / Data1.cab / RdLang32.CZE / PSPROCSET / 5 < prev    next >
Text File  |  2003-07-19  |  1KB  |  71 lines
  1. %%BeginResource: procset l2compat 6.0 1
  2. %%Copyright: Copyright 1987-2003 Adobe Systems Incorporated. All Rights Reserved.
  3. %%Title: Level 1 emulation of level 2 operators
  4. /setcmykcolor isdefined? not
  5. {
  6. /setcmykcolor {
  7. 1 sub 4 1 roll
  8. 3 {
  9. 3 index add neg dup 0 lt { pop 0 } if
  10. 3 1 roll
  11. } repeat
  12. setrgbcolor
  13. pop
  14. } bd
  15. } if
  16. /rectclip isdefined? not
  17. {
  18. /rectclip { newpath re clip newpath } bd
  19. } if
  20. /rectfill isdefined? not
  21. {
  22. /rectfill { gsave newpath re fill grestore } bd
  23. } if
  24. /sethalftone isdefined? not
  25. {
  26. /sethalftone {
  27. begin
  28. HalftoneType 1 eq
  29. { Frequency Angle /SpotFunction load setscreen }
  30. if
  31. end
  32. } bd
  33. } if
  34. Level1?
  35. {
  36. /pdf_show {show} bd
  37. /xshow
  38. {
  39. PDFVars /_pdf_showproc /pdf_show load put
  40. pdf_xshow
  41. } bd
  42. /yshow
  43. {
  44. PDFVars /_pdf_showproc /pdf_show load put
  45. pdf_yshow
  46. } bd
  47. /xyshow
  48. {
  49. PDFVars /_pdf_showproc /pdf_show load put
  50. pdf_xyshow
  51. } bd
  52. } if
  53. /getrampcolor {
  54. cvi
  55. /indx exch def
  56. [
  57. 0 1 NumComp 1 sub {
  58. dup
  59. Samples exch get
  60. dup type /stringtype eq { indx get } if
  61. exch
  62. Scaling exch get aload pop
  63. 3 1 roll
  64. mul add
  65. } for
  66. ]
  67. L1setcolor
  68. } bd
  69. /sssetbackground { L1setcolor } bd
  70. %%EndResource
  71.