home *** CD-ROM | disk | FTP | other *** search
- %%BeginResource: procset pdflev1 6.0 1
- %%Copyright: Copyright 1987-2002 Adobe Systems Incorporated. All Rights Reserved.
- %%Title: PDF operators, with code specific for Level 1
- /docinitialize {
- PDF begin
- /_defaulthalftone
- /currenthalftone where
- { pop currenthalftone }
- { 4 dict dup begin
- currentscreen
- /SpotFunction exch def
- /Angle exch def
- /Frequency exch def
- /HalftoneType 1 def
- end }
- ifelse
- dd
- end
- PDFVars /docSetupDone true put
- } bd
- /initialize {
- PDFVars /docSetupDone get {_defaulthalftone sethalftone} if
- } bd
- /terminate { } bd
- /pl {
- transform
- 0.25 sub round 0.25 add exch
- 0.25 sub round 0.25 add exch
- itransform
- } bd
- /m { _sa? { pl } if moveto } bd
- /l { _sa? { pl } if lineto } bd
- /c
- {
- _sa? {3 {pl 6 2 roll} repeat} if
- curveto
- } bd
- /ri/pop ld
- /setSA { /_sa? xdd } bd
- /re
- {
- _sa?
- {
- 8 dict begin
- /:h exch def
- /:w exch def
- /:y exch def
- /:x exch def
- :x :y pl
- /:ymin exch def /:xmin exch def
- :x :w add :y :h add pl
- /:ymax exch def /:xmax exch def
- :xmin :ymin moveto
- :xmax :ymin lineto
- :xmax :ymax lineto
- :xmin :ymax lineto
- closepath
- end
- }
- {
- 4 2 roll moveto
- 1 index 0 rlineto
- 0 exch rlineto
- neg 0 rlineto
- closepath
- } ifelse
- } bd
- /q /gsave ld
- /Q /grestore ld
- /AlmostFull?
- { dup maxlength exch length sub 2 le
- } bd
- /Expand
- { 1 index maxlength mul cvi dict
- dup begin exch { def } forall end
- } bd
- /xput {
- 3 2 roll
- dup 3 index known not
- { dup AlmostFull? { 1.5 Expand } if
- } if
- dup 4 2 roll put
- } bd
- /defineRes {
- _categories 1 index known not
- { /_categories _categories 2 index 10 dict xput store
- } if
- _categories exch 2 copy get 5 -1 roll 4 index xput put
- } bd
- /undefineRes {
- null exch
- defineRes
- } bd
- /findRes {
- _categories exch get exch get
- } bd
- /L1setcolor {
- aload length
- dup 0 eq
- { pop .5 setgray }
- { dup 1 eq
- { pop setgray }
- { 3 eq
- { setrgbcolor }
- { setcmykcolor }
- ifelse }
- ifelse }
- ifelse
- } bind dd
- /setoverprint where
- { pop }
- { /setoverprint { pop } bd }
- ifelse
- /_safeput
- {
- Level1?
- {
- 2 index load dup dup length exch maxlength ge
- { dup length 5 add dict copy
- 3 index xdd
- }
- { pop }
- ifelse
- }
- if
- 3 -1 roll load 3 1 roll put
- }
- bd
- Level1?
- {
- /pdf_CopyDict
- {
- 1 index length add dict
- 1 index wcheck
- { copy }
- { begin
- {def} forall
- currentdict
- end
- }
- ifelse
- }
- def
- }
- if
- %%EndResource
-