72 lines
1.9 KiB
Plaintext
72 lines
1.9 KiB
Plaintext
-30000 -29999 -1 1 -29989 -30000 1 -30000 -30000 @a
|
|
-30000 -30000 :M
|
|
psb
|
|
gsave
|
|
/hascolor
|
|
/deviceinfo where
|
|
{pop deviceinfo /Colors known
|
|
{deviceinfo /Colors get exec 1 gt}
|
|
{false} ifelse}
|
|
{/statusdict where
|
|
{pop statusdict /processcolors known
|
|
{statusdict /processcolors get exec 1 gt}
|
|
{false} ifelse}
|
|
{false} ifelse}
|
|
ifelse
|
|
def
|
|
40 dict begin
|
|
/_image systemdict /image get def
|
|
/_setgray systemdict /setgray get def
|
|
/_currentgray systemdict /currentgray get def
|
|
/_settransfer systemdict /settransfer get def
|
|
/_currenttransfer systemdict /currenttransfer get def
|
|
/blank 0 _currenttransfer exec
|
|
1 _currenttransfer exec eq def
|
|
/negative blank
|
|
{0 _currenttransfer exec 0.5 lt}
|
|
{0 _currenttransfer exec 1 _currenttransfer exec gt}
|
|
ifelse def
|
|
/inverted? negative def
|
|
/level2 systemdict /languagelevel known
|
|
{languagelevel 2 ge} {false} ifelse def
|
|
/foureq {4 index eq 8 1 roll
|
|
4 index eq 8 1 roll
|
|
4 index eq 8 1 roll
|
|
4 index eq 8 1 roll
|
|
pop pop pop pop and and and} def
|
|
hascolor {/band 0 def} {/band 5 def} ifelse
|
|
/setcmykcolor where {pop
|
|
1 0 0 0 setcmykcolor _currentgray 1 exch sub
|
|
0 1 0 0 setcmykcolor _currentgray 1 exch sub
|
|
0 0 1 0 setcmykcolor _currentgray 1 exch sub
|
|
0 0 0 1 setcmykcolor _currentgray 1 exch sub
|
|
4 {4 copy} repeat
|
|
1 0 0 0 foureq {/band 1 store} if
|
|
0 1 0 0 foureq {/band 2 store} if
|
|
0 0 1 0 foureq {/band 3 store} if
|
|
0 0 0 1 foureq {/band 4 store} if
|
|
0 0 0 0 foureq {/band 6 store} if} if
|
|
blank {/band 6 store} if
|
|
blank not {
|
|
{} bind
|
|
{} bind
|
|
{} bind
|
|
{} bind
|
|
/__settransfer {{dummy1 exec dummy2 exec}
|
|
dup 0 4 -1 roll put dup 2 _currenttransfer put
|
|
_settransfer} def
|
|
band 0 eq {
|
|
systemdict /currentcolortransfer get exec
|
|
{dummy1 exec dummy2 exec}
|
|
dup 0 11 -1 roll put dup 2 7 -1 roll put
|
|
{dummy1 exec dummy2 exec}
|
|
dup 0 10 -1 roll put dup 2 7 -1 roll put
|
|
{dummy1 exec dummy2 exec}
|
|
dup 0 9 -1 roll put dup 2 7 -1 roll put
|
|
{dummy1 exec dummy2 exec}
|
|
dup 0 8 -1 roll put dup 2 7 -1 roll put
|
|
systemdict /setcolortransfer get exec} if
|
|
band 0 ne {__settransfer pop pop pop} if
|
|
} if
|
|
gsave
|