home *** CD-ROM | disk | FTP | other *** search
- %%BeginResource: procset l2compat 6.0 1
- %%Copyright: Copyright 1987-2003 Adobe Systems Incorporated. All Rights Reserved.
- %%Title: Level 1 emulation of level 2 operators
- /setcmykcolor isdefined? not
- {
- /setcmykcolor {
- 1 sub 4 1 roll
- 3 {
- 3 index add neg dup 0 lt { pop 0 } if
- 3 1 roll
- } repeat
- setrgbcolor
- pop
- } bd
- } if
- /rectclip isdefined? not
- {
- /rectclip { newpath re clip newpath } bd
- } if
- /rectfill isdefined? not
- {
- /rectfill { gsave newpath re fill grestore } bd
- } if
- /sethalftone isdefined? not
- {
- /sethalftone {
- begin
- HalftoneType 1 eq
- { Frequency Angle /SpotFunction load setscreen }
- if
- end
- } bd
- } if
- Level1?
- {
- /pdf_show {show} bd
- /xshow
- {
- PDFVars /_pdf_showproc /pdf_show load put
- pdf_xshow
- } bd
- /yshow
- {
- PDFVars /_pdf_showproc /pdf_show load put
- pdf_yshow
- } bd
- /xyshow
- {
- PDFVars /_pdf_showproc /pdf_show load put
- pdf_xyshow
- } bd
- } if
- /getrampcolor {
- cvi
- /indx exch def
- [
- 0 1 NumComp 1 sub {
- dup
- Samples exch get
- dup type /stringtype eq { indx get } if
- exch
- Scaling exch get aload pop
- 3 1 roll
- mul add
- } for
- ]
- L1setcolor
- } bd
- /sssetbackground { L1setcolor } bd
- %%EndResource
-