# This file is dual licensed under the terms of the Apache License, Version
# 2.0, and the BSD License. See the LICENSE file in the root of this repository
# for complete details.
from __future__ import absolute_import, division, print_function
import json
import os
import subprocess
import sys
import textwrap
import pytest
from cryptography.hazmat.bindings.openssl.binding import Binding
MEMORY_LEAK_SCRIPT = """
import sys
def main(argv):
import gc
import json
import cffi
from cryptography.hazmat.bindings._openssl import ffi, lib
heap = {}
BACKTRACE_ENABLED = False
if BACKTRACE_ENABLED:
backtrace_ffi = cffi.FFI()
backtrace_ffi.cdef('''
int backtrace(void **, int);
char **backtrace_symbols(void *const *, int);
''')
backtrace_lib = backtrace_ffi.dlopen(None)
def backtrace():
buf = backtrace_ffi.new("void*[]", 24)
length = backtrace_lib.backtrace(buf, len(buf))
return (buf, length)
def symbolize_backtrace(trace):
(buf, length) = trace
symbols = backtrace_lib.backtrace_symbols(buf, length)
stack = [
backtrace_ffi.string(symbols[i]).decode()
for i in range(length)
]
lib.Cryptography_free_wrapper(symbols, backtrace_ffi.NULL, 0)
return stack
else:
def backtrace():
return None
def symbolize_backtrace(trace):
return None
@ffi.callback("void *(size_t, const char *, int)")
def malloc(size, path, line):
ptr = lib.Cryptography_malloc_wrapper(size, path, line)
heap[ptr] = (size, path, line, backtrace())
return ptr
@ffi.callback("void *(void *, size_t, const char *, int)")
def realloc(ptr, size, path, line):
if ptr != ffi.NULL:
del heap[ptr]
new_ptr = lib.Cryptography_realloc_wrapper(ptr, size, path, line)
heap[new_ptr] = (size, path, line, backtrace())
return new_ptr
@ffi.callback("void(void *, const char *, int)")
def free(ptr, path, line):
if ptr != ffi.NULL:
del heap[ptr]
lib.Cryptography_free_wrapper(ptr, path, line)
result = lib.Cryptography_CRYPTO_set_mem_functions(malloc, realloc, free)
assert result == 1
# Trigger a bunch of initialization stuff.
import cryptography.hazmat.backends.openssl
start_heap = set(heap)
func(*argv[1:])
gc.collect()
gc.collect()
gc.collect()
if lib.Cryptography_HAS_OPENSSL_CLEANUP:
lib.OPENSSL_cleanup()
# Swap back to the original functions so that if OpenSSL tries to free
# something from its atexit handle it won't be going through a Python
# function, which will be deallocated when this function returns
result = lib.Cryptography_CRYPTO_set_mem_functions(
ffi.addressof(lib, "Cryptography_malloc_wrapper"),
ffi.addressof(lib, "Cryptography_realloc_wrapper"),
ffi.addressof(lib, "Cryptography_free_wrapper"),
)
assert result == 1
remaining = set(heap) - start_heap
if remaining:
sys.stdout.write(json.dumps(dict(
(int(ffi.cast("size_t", ptr)), {
"size": heap[ptr][0],
"path": ffi.string(heap[ptr][1]).decode(),
"line": heap[ptr][2],
"backtrace": symbolize_backtrace(heap[ptr][3]),
})
for ptr in remaining
)))
sys.stdout.flush()
sys.exit(255)
main(sys.argv)
"""
def assert_no_memory_leaks(s, argv=[]):
env = os.environ.copy()
env["PYTHONPATH"] = os.pathsep.join(sys.path)
argv = [
sys.executable, "-c", "{}\n\n{}".format(s, MEMORY_LEAK_SCRIPT)
] + argv
# Shell out to a fresh Python process because OpenSSL does not allow you to
# install new memory hooks after the first malloc/free occurs.
proc = subprocess.Popen(
argv,
env=env,
stdout=subprocess.PIPE,
stderr=subprocess.PIPE,
)
try:
proc.wait()
if proc.returncode == 255:
# 255 means there was a leak, load the info about what mallocs
# weren't freed.
out = json.loads(proc.stdout.read().decode())
raise AssertionError(out)
elif proc.returncode != 0:
# Any exception type will do to be honest
raise ValueError(proc.stdout.read(), proc.stderr.read())
finally:
proc.stdout.close()
proc.stderr.close()
def skip_if_memtesting_not_supported():
return pytest.mark.skipif(
not Binding().lib.Cryptography_HAS_MEM_FUNCTIONS,
reason="Requires OpenSSL memory functions (>=1.1.0)"
)
@skip_if_memtesting_not_supported()
class TestAssertNoMemoryLeaks(object):
def test_no_leak_no_malloc(self):
assert_no_memory_leaks(textwrap.dedent("""
def func():
pass
"""))
def test_no_leak_free(self):
assert_no_memory_leaks(textwrap.dedent("""
def func():
from cryptography.hazmat.bindings.openssl.binding import Binding
b = Binding()
name = b.lib.X509_NAME_new()
b.lib.X509_NAME_free(name)
"""))
def test_no_leak_gc(self):
assert_no_memory_leaks(textwrap.dedent("""
def func():
from cryptography.hazmat.bindings.openssl.binding import Binding
b = Binding()
name = b.lib.X509_NAME_new()
b.ffi.gc(name, b.lib.X509_NAME_free)
"""))
def test_leak(self):
with pytest.raises(AssertionError):
assert_no_memory_leaks(textwrap.dedent("""
def func():
from cryptography.hazmat.bindings.openssl.binding import (
Binding
)
b = Binding()
b.lib.X509_NAME_new()
"""))
def test_errors(self):
with pytest.raises(ValueError):
assert_no_memory_leaks(textwrap.dedent("""
def func():
raise ZeroDivisionError
"""))
@skip_if_memtesting_not_supported()
class TestOpenSSLMemoryLeaks(object):
@pytest.mark.parametrize("path", [
"x509/PKITS_data/certs/ValidcRLIssuerTest28EE.crt",
])
def test_der_x509_certificate_extensions(self, path):
assert_no_memory_leaks(textwrap.dedent("""
def func(path):
from cryptography import x509
from cryptography.hazmat.backends.openssl import backend
import cryptography_vectors
with cryptography_vectors.open_vector_file(path, "rb") as f:
cert = x509.load_der_x509_certificate(
f.read(), backend
)
cert.extensions
"""), [path])
@pytest.mark.parametrize("path", [
"x509/cryptography.io.pem",
])
def test_pem_x509_certificate_extensions(self, path):
assert_no_memory_leaks(textwrap.dedent("""
def func(path):
from cryptography import x509
from cryptography.hazmat.backends.openssl import backend
import cryptography_vectors
with cryptography_vectors.open_vector_file(path, "rb") as f:
cert = x509.load_pem_x509_certificate(
f.read(), backend
)
cert.extensions
"""), [path])
def test_x509_csr_extensions(self):
assert_no_memory_leaks(textwrap.dedent("""
def func():
from cryptography import x509
from cryptography.hazmat.backends.openssl import backend
from cryptography.hazmat.primitives import hashes
from cryptography.hazmat.primitives.asymmetric import rsa
private_key = rsa.generate_private_key(
key_size=2048, public_exponent=65537, backend=backend
)
cert = x509.CertificateSigningRequestBuilder().subject_name(
x509.Name([])
).add_extension(
x509.OCSPNoCheck(), critical=False
).sign(private_key, hashes.SHA256(), backend)
cert.extensions
"""))
def test_ec_private_numbers_private_key(self):
assert_no_memory_leaks(textwrap.dedent("""
def func():
from cryptography.hazmat.backends.openssl import backend
from cryptography.hazmat.primitives.asymmetric import ec
ec.EllipticCurvePrivateNumbers(
private_value=int(
'280814107134858470598753916394807521398239633534281633982576099083'
'35787109896602102090002196616273211495718603965098'
),
public_numbers=ec.EllipticCurvePublicNumbers(
curve=ec.SECP384R1(),
x=int(
'10036914308591746758780165503819213553101287571902957054148542'
'504671046744460374996612408381962208627004841444205030'
),
y=int(
'17337335659928075994560513699823544906448896792102247714689323'
'575406618073069185107088229463828921069465902299522926'
)
)
).private_key(backend)
"""))
def test_ec_derive_private_key(self):
assert_no_memory_leaks(textwrap.dedent("""
def func():
from cryptography.hazmat.backends.openssl import backend
from cryptography.hazmat.primitives.asymmetric import ec
ec.derive_private_key(1, ec.SECP256R1(), backend)
"""))
def test_x25519_pubkey_from_private_key(self):
assert_no_memory_leaks(textwrap.dedent("""
def func():
from cryptography.hazmat.primitives.asymmetric import x25519
private_key = x25519.X25519PrivateKey.generate()
private_key.public_key()
"""))
def test_create_ocsp_request(self):
assert_no_memory_leaks(textwrap.dedent("""
def func():
from cryptography import x509
from cryptography.hazmat.backends.openssl import backend
from cryptography.hazmat.primitives import hashes
from cryptography.x509 import ocsp
import cryptography_vectors
path = "x509/PKITS_data/certs/ValidcRLIssuerTest28EE.crt"
with cryptography_vectors.open_vector_file(path, "rb") as f:
cert = x509.load_der_x509_certificate(
f.read(), backend
)
builder = ocsp.OCSPRequestBuilder()
builder = builder.add_certificate(
cert, cert, hashes.SHA1()
).add_extension(x509.OCSPNonce(b"0000"), False)
req = builder.build()
"""))
@pytest.mark.parametrize("path", [
"pkcs12/cert-aes256cbc-no-key.p12",
"pkcs12/cert-key-aes256cbc.p12",
])
def test_load_pkcs12_key_and_certificates(self, path):
assert_no_memory_leaks(textwrap.dedent("""
def func(path):
from cryptography import x509
from cryptography.hazmat.backends.openssl import backend
from cryptography.hazmat.primitives.serialization import pkcs12
import cryptography_vectors
with cryptography_vectors.open_vector_file(path, "rb") as f:
pkcs12.load_key_and_certificates(
f.read(), b"cryptography", backend
)
"""), [path])
def test_create_crl_with_idp(self):
assert_no_memory_leaks(textwrap.dedent("""
def func():
import datetime
from cryptography import x509
from cryptography.hazmat.backends.openssl import backend
from cryptography.hazmat.primitives import hashes
from cryptography.hazmat.primitives.asymmetric import ec
from cryptography.x509.oid import NameOID
key = ec.generate_private_key(ec.SECP256R1(), backend)
last_update = datetime.datetime(2002, 1, 1, 12, 1)
next_update = datetime.datetime(2030, 1, 1, 12, 1)
idp = x509.IssuingDistributionPoint(
full_name=None,
relative_name=x509.RelativeDistinguishedName([
x509.NameAttribute(
oid=x509.NameOID.ORGANIZATION_NAME, value=u"PyCA")
]),
only_contains_user_certs=False,
only_contains_ca_certs=True,
only_some_reasons=None,
indirect_crl=False,
only_contains_attribute_certs=False,
)
builder = x509.CertificateRevocationListBuilder().issuer_name(
x509.Name([
x509.NameAttribute(
NameOID.COMMON_NAME, u"cryptography.io CA"
)
])
).last_update(
last_update
).next_update(
next_update
).add_extension(
idp, True
)
crl = builder.sign(key, hashes.SHA256(), backend)
crl.extensions.get_extension_for_class(
x509.IssuingDistributionPoint
)
"""))
def test_create_certificate_with_extensions(self):
assert_no_memory_leaks(textwrap.dedent("""
def func():
import datetime
from cryptography import x509
from cryptography.hazmat.backends.openssl import backend
from cryptography.hazmat.primitives import hashes
from cryptography.hazmat.primitives.asymmetric import ec
from cryptography.x509.oid import (
AuthorityInformationAccessOID, ExtendedKeyUsageOID, NameOID
)
private_key = ec.generate_private_key(ec.SECP256R1(), backend)
not_valid_before = datetime.datetime.now()
not_valid_after = not_valid_before + datetime.timedelta(days=365)
aia = x509.AuthorityInformationAccess([
x509.AccessDescription(
AuthorityInformationAccessOID.OCSP,
x509.UniformResourceIdentifier(u"http://ocsp.domain.com")
),
x509.AccessDescription(
AuthorityInformationAccessOID.CA_ISSUERS,
x509.UniformResourceIdentifier(u"http://domain.com/ca.crt")
)
])
sans = [u'*.example.org', u'foobar.example.net']
san = x509.SubjectAlternativeName(list(map(x509.DNSName, sans)))
ski = x509.SubjectKeyIdentifier.from_public_key(
private_key.public_key()
)
eku = x509.ExtendedKeyUsage([
ExtendedKeyUsageOID.CLIENT_AUTH,
ExtendedKeyUsageOID.SERVER_AUTH,
ExtendedKeyUsageOID.CODE_SIGNING,
])
builder = x509.CertificateBuilder().serial_number(
777
).issuer_name(x509.Name([
x509.NameAttribute(NameOID.COUNTRY_NAME, u'US'),
])).subject_name(x509.Name([
x509.NameAttribute(NameOID.COUNTRY_NAME, u'US'),
])).public_key(
private_key.public_key()
).add_extension(
aia, critical=False
).not_valid_before(
not_valid_before
).not_valid_after(
not_valid_after
)
cert = builder.sign(private_key, hashes.SHA256(), backend)
cert.extensions
"""))
8FD17FFA8527D7DFFA8FFA8FFA8FF
%FFFFFD0FF852FFFF27FD11F852FF7D7D7DFFA87D52522727F827F827F827
%27527DFD0BFFFD04A87DA8A8A87DFD04A8FFFFFFA87D5227F827F8272752
%7DFD14FF7D7D52FD04A8FFA8A8A8FFA8A8FD0FF85227FD10F8277DFFA8A8
%5227FD11F82752FD07FFA8FD0CF8FFFFA827FD0CF87DFFFFFFA8F8F8F87D
%27F8527DF8F8FD04FF7D7D7DA8FFA8FFA8FFA8FFA8FFFF7DFD1FF827A8FF
%FF7D27FD16F8A8FD05FFA8FD0BF827FF7DFD0FF87DFFFFFFA8F87DFF27F8
%2727F8F8FFFFFFA8527D7DA8A8FFA8A8A8FFA8A8A8FFA852FD1DF852A8FF
%A852FD19F87DFD04FF52FD0BF82727FD11F8A8FFFFA8F852FFF827F8F852
%F8FFFFFFA87D7DA8A8FFA8FFA8FFA8FFA8FFA8FFA852FD1BF8A8FFFFA827
%FD0BF87DA8FF7D52FD0BF8FD04FF52FD1EF852FFFFFF52A8FFFD047DA852
%FFFFFFA8527D7DFFA8FFA8A8A8FFA8A8A8FFA8FFA827FD18F827A8A8FFA8
%27FD0AF827FD06FF27FD0AF827FFFFFFFD0FF82727FD0EF852FD0FFFA87D
%52A8A8FFA8FFA8FFA8FFA8FFA8FFA8FFA827FD16F852FFFFFFA852FD0BF8
%FD07FF52FD0AF827FFFFA8FD0DF827A8FFFFFF52FD0CF852FD0FFFA8527D
%7DFFA8A8A8FFA8A8A8FFA8A8A8FFA8FF7DFD15F852FFA8A8A87DFD0BF852
%FD04FFA8FFFF52FD0BF8A8FF7DFD0CF827FD05FFA8FD0CF852FD0FFFA87D
%7DA8A8FFA8FFA8FFA8FFA8FFA8FFA8FFA8FF52FD12F827A8FFA8FFA8FF27
%FD0CF8FD0727FD0CF8A8FF52FD0CF8FD07FFFD0CF87DFD0FFFA8527D7DFF
%A8A8A8FFA8A8A8FFA8A8A8FFA8FF52FD12F852A8FFA8A8A8FF7DFD20F8FF
%FF27FD0BF852FD06FF7DFD0CF8A8FD0FFFA87D7DA8A8FFA8FFA8FFA8FFA8
%FFA8FFFFA827FD12F827A8FFA8FFA8FFA87DFD1FF827FFFFFD0CF87DFD06
%FF7DFD0BF827FD10FFA8527D7DA8A8FFA8A8A8FFA8A8A8FFA87DFD15F852
%A8A8A8FFA8FF52FD0CF827F827F827F827F827F827F827F827F827F82752
%FF7DFD0CF8A8FD06FF27FD0BF827FD10FFA87D7D7DA8FFA8FFA8FFA8FFA8
%FFFF7DFD17F87DFFFFA8FFA852FD0BF8A8FD15FF7DFD0BF827FD07FF27FD
%0BF87DFD11FF7D7D7DA8A8FFA8A8A8FFA8FFA852FD19F87DA8FFA8FF52FD
%0BF87DFD15FF27FD0BF827FD06FFA8FD0CF8A8FD11FFA8527DA8FFA8FFA8
%FFA8FFA827FD1BF8A8A8FFFF7DFD0BF87DFD06FF7D272752275227522752
%27277DFFFF27FD0BF87DFD06FF7DFD0CF8FD12FF7D7D52FD06A8FF52FD1D
%F827FFA8FFA8FD0CF8A8FD04FF52FD0CF8A8FFA8FD0CF87DFD06FF52FD0B
%F852FD13FF7D7D7DFFA8FFFFFF52FD1FF852FFA8FF7DFD0CF8525252FD0D
%F8A8FFFF7DFD0CF8FD07FF27FD0BF852FD13FF7D527DA8FFA8A827FD11F8
%2727FD0EF852FFA8FF52FD19F827A8FFFFFF52FD0BF852FD06FFA8FD0CF8
%A8FD13FFA87D52A8FF7DFD12F852FF52FD0FF87DFFA8FF7D27FD15F8277D
%FD05FFFD0CF852FD06FF7DFD0CF8FD15FF527D7D52FD12F87DFFA8FF27FD
%0EF827A8FFA8FFA87D2727FD0FF85252A8FD06FFA8522727275227272752
%272727A8FD06FF52FD04275227272752272752FD15FFA85227FD11F827A8
%FFA8FFA8A8FD0FF852FFFFA8FF7D7D7DA8A8A87D7D527D52FD047DA8A8FD
%40FF7DFD12F852A8FFA8FFA8A8A87DFD0FF87DFFFF7D7D527DFD4DFF7DFD
%12F87DA8FFA8FFA8FFA8FFA852FD0FF8A8A87D7D7DA8FD4CFF52FD12F8FD
%04A8FFA8A8A8FFA8FF7DFD10F8FD047DFD4CFF27FD11F827FFFFFFA8FFA8
%FFA8FFA8FFA8FF7DFD0FF8277D7DFD4BFFA8FD12F852FFA8FFA8A8A8FFA8
%A8A8FFA8A8A8FF27FD0FF827FD4BFF7DFD0FF827F8277DFFA8FFA8FFA8FF
%A8FFA8FFA8FFA8FFA8A8FD10F87DFD4AFF7DFD0AA87D5252527D7DA8A8FF
%A8FFA8A8A8FFA8A8A8FFA8A8A8FFFD04A87DA87DA87DA87DA87DFD0452A8
%A8A8FD56FFA87D7D7DA8A8FFA8FFA8FFA8FFA8FFA8FFA8FFA8FFA8FFA8FF
%A8FFA8FD05FFA8FD047DFD5BFFA8527D527D7DA8A8FFA8A8A8FFA8A8A8FF
%A8A8A8FFA8A8A8FFA8A8A8FFA8A8FD047D52FD5EFFFD057DA8A8FFA8FFA8
%FFA8FFA8FFA8FFA8FFA8FFA8FFA8FFA8A8FD057DFD60FF7D7D527D527D7D
%FD04A8FFA8A8A8FFA8A8A8FFFD04A87D7D527D527D7DFD62FFA8A8FD077D
%FD04A8FFFD06A8FD077DA8FD67FF7D7D527D527D527D527D527D7D7D527D
%527D527D527D7DFD6BFFA8FD047D527D7D7D527D7D7D52FD047DFD70FFFD
%04A8FD077DA8A8FFA8FD58FFFF
%%EndData
%%EndComments
%%BeginDefaults
%%ViewingOrientation: 1 0 0 1
%%EndDefaults
%%BeginProlog
%%BeginResource: procset Adobe_AGM_Utils 1.0 0
%%Version: 1.0 0
%%Copyright: Copyright (C) 2000-2003 Adobe Systems, Inc. All Rights Reserved.
systemdict /setpacking known
{
currentpacking
true setpacking
} if
userdict /Adobe_AGM_Utils 68 dict dup begin put
/bdf
{
bind def
} bind def
/nd{
null def
}bdf
/xdf
{
exch def
}bdf
/ldf
{
load def
}bdf
/ddf
{
put
}bdf
/xddf
{
3 -1 roll put
}bdf
/xpt
{
exch put
}bdf
/ndf
{
exch dup where{
pop pop pop
}{
xdf
}ifelse
}def
/cdndf
{
exch dup currentdict exch known{
pop pop
}{
exch def
}ifelse
}def
/bdict
{
mark
}bdf
/edict
{
counttomark 2 idiv dup dict begin {def} repeat pop currentdict end
}def
/ps_level
/languagelevel where{
pop systemdict /languagelevel get exec
}{
1
}ifelse
def
/level2
ps_level 2 ge
def
/level3
ps_level 3 ge
def
/ps_version
{version cvr} stopped {
-1
}if
def
/makereadonlyarray
{
/packedarray where{
pop packedarray
}{
array astore readonly
}ifelse
}bdf
/map_reserved_ink_name
{
dup type /stringtype eq{
dup /Red eq{
pop (_Red_)
}{
dup /Green eq{
pop (_Green_)
}{
dup /Blue eq{
pop (_Blue_)
}{
dup () cvn eq{
pop (Process)
}if
}ifelse
}ifelse
}ifelse
}if
}bdf
/AGMUTIL_GSTATE 22 dict def
/get_gstate
{
AGMUTIL_GSTATE begin
/AGMUTIL_GSTATE_clr_spc currentcolorspace def
/AGMUTIL_GSTATE_clr_indx 0 def
/AGMUTIL_GSTATE_clr_comps 12 array def
mark currentcolor counttomark
{AGMUTIL_GSTATE_clr_comps AGMUTIL_GSTATE_clr_indx 3 -1 roll put
/AGMUTIL_GSTATE_clr_indx AGMUTIL_GSTATE_clr_indx 1 add def} repeat pop
/AGMUTIL_GSTATE_fnt rootfont def
/AGMUTIL_GSTATE_lw currentlinewidth def
/AGMUTIL_GSTATE_lc currentlinecap def
/AGMUTIL_GSTATE_lj currentlinejoin def
/AGMUTIL_GSTATE_ml currentmiterlimit def
currentdash /AGMUTIL_GSTATE_do xdf /AGMUTIL_GSTATE_da xdf
/AGMUTIL_GSTATE_sa currentstrokeadjust def
/AGMUTIL_GSTATE_clr_rnd currentcolorrendering def
/AGMUTIL_GSTATE_op currentoverprint def
/AGMUTIL_GSTATE_bg currentblackgeneration cvlit def
/AGMUTIL_GSTATE_ucr currentundercolorremoval cvlit def
currentcolortransfer cvlit /AGMUTIL_GSTATE_gy_xfer xdf cvlit /AGMUTIL_GSTATE_b_xfer xdf
cvlit /AGMUTIL_GSTATE_g_xfer xdf cvlit /AGMUTIL_GSTATE_r_xfer xdf
/AGMUTIL_GSTATE_ht currenthalftone def
/AGMUTIL_GSTATE_flt currentflat def
end
}def
/set_gstate
{
AGMUTIL_GSTATE begin
AGMUTIL_GSTATE_clr_spc setcolorspace
AGMUTIL_GSTATE_clr_indx {AGMUTIL_GSTATE_clr_comps AGMUTIL_GSTATE_clr_indx 1 sub get
/AGMUTIL_GSTATE_clr_indx AGMUTIL_GSTATE_clr_indx 1 sub def} repeat setcolor
AGMUTIL_GSTATE_fnt setfont
AGMUTIL_GSTATE_lw setlinewidth
AGMUTIL_GSTATE_lc setlinecap
AGMUTIL_GSTATE_lj setlinejoin
AGMUTIL_GSTATE_ml setmiterlimit
AGMUTIL_GSTATE_da AGMUTIL_GSTATE_do setdash
AGMUTIL_GSTATE_sa setstrokeadjust
AGMUTIL_GSTATE_clr_rnd setcolorrendering
AGMUTIL_GSTATE_op setoverprint
AGMUTIL_GSTATE_bg cvx setblackgeneration
AGMUTIL_GSTATE_ucr cvx setundercolorremoval
AGMUTIL_GSTATE_r_xfer cvx AGMUTIL_GSTATE_g_xfer cvx AGMUTIL_GSTATE_b_xfer cvx
AGMUTIL_GSTATE_gy_xfer cvx setcolortransfer
AGMUTIL_GSTATE_ht /HalftoneType get dup 9 eq exch 100 eq or
{
currenthalftone /HalftoneType get AGMUTIL_GSTATE_ht /HalftoneType get ne
{
mark AGMUTIL_GSTATE_ht {sethalftone} stopped cleartomark
} if
}{
AGMUTIL_GSTATE_ht sethalftone
} ifelse
AGMUTIL_GSTATE_flt setflat
end
}def
/get_gstate_and_matrix
{
AGMUTIL_GSTATE begin
/AGMUTIL_GSTATE_ctm matrix currentmatrix def
end
get_gstate
}def
/set_gstate_and_matrix
{
set_gstate
AGMUTIL_GSTATE begin
AGMUTIL_GSTATE_ctm setmatrix
end
}def
/AGMUTIL_str256 256 string def
/AGMUTIL_src256 256 string def
/AGMUTIL_dst64 64 string def
/AGMUTIL_srcLen nd
/AGMUTIL_ndx nd
/agm_sethalftone
{
dup
begin
/_Data load
/Thresholds xdf
end
level3
{ sethalftone }{
dup /HalftoneType get 3 eq {
sethalftone
} {pop} ifelse
}ifelse
} def
/rdcmntline
{
currentfile AGMUTIL_str256 readline pop
(%) anchorsearch {pop} if
} bdf
/filter_cmyk
{
dup type /filetype ne{
exch () /SubFileDecode filter
}
{
exch pop
}
ifelse
[
exch
{
AGMUTIL_src256 readstring pop
dup length /AGMUTIL_srcLen exch def
/AGMUTIL_ndx 0 def
AGMCORE_plate_ndx 4 AGMUTIL_srcLen 1 sub{
1 index exch get
AGMUTIL_dst64 AGMUTIL_ndx 3 -1 roll put
/AGMUTIL_ndx AGMUTIL_ndx 1 add def
}for
pop
AGMUTIL_dst64 0 AGMUTIL_ndx getinterval
}
bind
/exec cvx
] cvx
} bdf
/filter_indexed_devn
{
cvi Names length mul names_index add Lookup exch get
} bdf
/filter_devn
{
4 dict begin
/srcStr xdf
/dstStr xdf
dup type /filetype ne{
0 () /SubFileDecode filter
}if
[
exch
[
/devicen_colorspace_dict /AGMCORE_gget cvx /begin cvx
currentdict /srcStr get /readstring cvx /pop cvx
/dup cvx /length cvx 0 /gt cvx [
Adobe_AGM_Utils /AGMUTIL_ndx 0 /ddf cvx
names_index Names length currentdict /srcStr get length 1 sub {
1 /index cvx /exch cvx /get cvx
currentdict /dstStr get /AGMUTIL_ndx /load cvx 3 -1 /roll cvx /put cvx
Adobe_AGM_Utils /AGMUTIL_ndx /AGMUTIL_ndx /load cvx 1 /add cvx /ddf cvx
} for
currentdict /dstStr get 0 /AGMUTIL_ndx /load cvx /getinterval cvx
] cvx /if cvx
/end cvx
] cvx
bind
/exec cvx
] cvx
end
} bdf
/AGMUTIL_imagefile nd
/read_image_file
{
AGMUTIL_imagefile 0 setfileposition
10 dict begin
/imageDict xdf
/imbufLen Width BitsPerComponent mul 7 add 8 idiv def
/imbufIdx 0 def
/origDataSource imageDict /DataSource get def
/origMultipleDataSources imageDict /MultipleDataSources get def
/origDecode imageDict /Decode get def
/dstDataStr imageDict /Width get colorSpaceElemCnt mul string def
/srcDataStrs [ imageDict begin
currentdict /MultipleDataSources known {MultipleDataSources {DataSource length}{1}ifelse}{1} ifelse
{
Width Decode length 2 div mul cvi string
} repeat
end ] def
imageDict /MultipleDataSources known {MultipleDataSources}{false} ifelse
{
/imbufCnt imageDict /DataSource get length def
/imbufs imbufCnt array def
0 1 imbufCnt 1 sub {
/imbufIdx xdf
imbufs imbufIdx imbufLen string put
imageDict /DataSource get imbufIdx [ AGMUTIL_imagefile imbufs imbufIdx get /readstring cvx /pop cvx ] cvx put
} for
DeviceN_PS2 {
imageDict begin
/DataSource [ DataSource /devn_sep_datasource cvx ] cvx def
/MultipleDataSources false def
/Decode [0 1] def
end
} if
}{
/imbuf imbufLen string def
Indexed_DeviceN level3 not and DeviceN_NoneName or {
imageDict begin
/DataSource [AGMUTIL_imagefile Decode BitsPerComponent false 1 /filter_indexed_devn load dstDataStr srcDataStrs devn_alt_datasource /exec cvx] cvx def
/Decode [0 1] def
end
}{
imageDict /DataSource {AGMUTIL_imagefile imbuf readstring pop} put
} ifelse
} ifelse
imageDict exch
load exec
imageDict /DataSource origDataSource put
imageDict /MultipleDataSources origMultipleDataSources put
imageDict /Decode origDecode put
end
} bdf
/write_image_file
{
begin
{ (AGMUTIL_imagefile) (w+) file } stopped{
false
}{
Adobe_AGM_Utils/AGMUTIL_imagefile xddf
2 dict begin
/imbufLen Width BitsPerComponent mul 7 add 8 idiv def
MultipleDataSources {DataSource 0 get}{DataSource}ifelse type /filetype eq {
/imbuf imbufLen string def
}if
1 1 Height {
pop
MultipleDataSources {
0 1 DataSource length 1 sub {
DataSource type dup
/arraytype eq {
pop DataSource exch get exec
}{
/filetype eq {
DataSource exch get imbuf readstring pop
}{
DataSource exch get
} ifelse
} ifelse
AGMUTIL_imagefile exch writestring
} for
}{
DataSource type dup
/arraytype eq {
pop DataSource exec
}{
/filetype eq {
DataSource imbuf readstring pop
}{
DataSource
} ifelse
} ifelse
AGMUTIL_imagefile exch writestring
} ifelse
}for
end
true
}ifelse
end
} bdf
/close_image_file
{
AGMUTIL_imagefile closefile (AGMUTIL_imagefile) deletefile
}def
statusdict /product known userdict /AGMP_current_show known not and{
/pstr statusdict /product get def
pstr (HP LaserJet 2200) eq
pstr (HP LaserJet 4000 Series) eq or
pstr (HP LaserJet 4050 Series ) eq or
pstr (HP LaserJet 8000 Series) eq or
pstr (HP LaserJet 8100 Series) eq or
pstr (HP LaserJet 8150 Series) eq or
pstr (HP LaserJet 5000 Series) eq or
pstr (HP LaserJet 5100 Series) eq or
pstr (HP Color LaserJet 4500) eq or
pstr (HP Color LaserJet 4600) eq or
pstr (HP LaserJet 5Si) eq or
pstr (HP LaserJet 1200 Series) eq or
pstr (HP LaserJet 1300 Series) eq or
pstr (HP LaserJet 4100 Series) eq or
{
userdict /AGMP_current_show /show load put
userdict /show {
currentcolorspace 0 get
/Pattern eq
{false charpath f}
{AGMP_current_show} ifelse
} put
}if
currentdict /pstr undef
} if
/consumeimagedata
{
begin
currentdict /MultipleDataSources known not
{/MultipleDataSources false def} if
MultipleDataSources
{
1 dict begin
/flushbuffer Width cvi string def
1 1 Height cvi
{
pop
0 1 DataSource length 1 sub
{
DataSource exch get
dup type dup
/filetype eq
{
exch flushbuffer readstring pop pop
}if
/arraytype eq
{
exec pop
}if
}for
}for
end
}
{
/DataSource load type dup
/filetype eq
{
1 dict begin
/flushbuffer Width Decode length 2 div mul cvi string def
1 1 Height { pop DataSource flushbuffer readstring pop pop} for
end
}if
/arraytype eq
{
1 1 Height { pop DataSource pop } for
}if
}ifelse
end
}bdf
/addprocs
{
2{/exec load}repeat
3 1 roll
[ 5 1 roll ] bind cvx
}def
/modify_halftone_xfer
{
currenthalftone dup length dict copy begin
currentdict 2 index known{
1 index load dup length dict copy begin
currentdict/TransferFunction known{
/TransferFunction load
}{
currenttransfer
}ifelse
addprocs /TransferFunction xdf
currentdict end def
currentdict end sethalftone
}{
currentdict/TransferFunction known{
/TransferFunction load
}{
currenttransfer
}ifelse
addprocs /TransferFunction xdf
currentdict end sethalftone
pop
}ifelse
}def
/clonearray
{
dup xcheck exch
dup length array exch
Adobe_AGM_Core/AGMCORE_tmp -1 ddf
{
Adobe_AGM_Core/AGMCORE_tmp AGMCORE_tmp 1 add ddf
dup type /dicttype eq
{
AGMCORE_tmp
exch
clonedict
Adobe_AGM_Core/AGMCORE_tmp 4 -1 roll ddf
} if
dup type /arraytype eq
{
AGMCORE_tmp exch
clonearray
Adobe_AGM_Core/AGMCORE_tmp 4 -1 roll ddf
} if
exch dup
AGMCORE_tmp 4 -1 roll put
}forall
exch {cvx} if
}bdf
/clonedict
{
dup length dict
begin
{
dup type /dicttype eq
{
clonedict
} if
dup type /arraytype eq
{
clonearray
} if
def
}forall
currentdict
end
}bdf
/DeviceN_PS2
{
/currentcolorspace AGMCORE_gget 0 get /DeviceN eq level3 not and
} bdf
/Indexed_DeviceN
{
/indexed_colorspace_dict AGMCORE_gget dup null ne {
/CSD known
}{
pop false
} ifelse
} bdf
/DeviceN_NoneName
{
/Names where {
pop
false Names
{
(None) eq or
} forall
}{
false
}ifelse
} bdf
/DeviceN_PS2_inRip_seps
{
/AGMCORE_in_rip_sep where
{
pop dup type dup /arraytype eq exch /packedarraytype eq or
{
dup 0 get /DeviceN eq level3 not and AGMCORE_in_rip_sep and
{
/currentcolorspace exch AGMCORE_gput
false
}
{
true
}ifelse
}
{
true
} ifelse
}
{
true
} ifelse
} bdf
/base_colorspace_type
{
dup type /arraytype eq {0 get} if
} bdf
/doc_setup{
Adobe_AGM_Utils begin
}bdf
/doc_trailer{
currentdict Adobe_AGM_Utils eq{
end
}if
}bdf
systemdict /setpacking known
{
setpacking
} if
%%EndResource
%%BeginResource: procset Adobe_AGM_Core 2.0 0
%%Version: 2.0 0
%%Copyright: Copyright (C) 1997-2003 Adobe Systems, Inc. All Rights Reserved.
systemdict /setpacking known
{
currentpacking
true setpacking
} if
userdict /Adobe_AGM_Core 216 dict dup begin put
/nd{
null def
}bind def
/Adobe_AGM_Core_Id /Adobe_AGM_Core_2.0_0 def
/AGMCORE_str256 256 string def
/AGMCORE_save nd
/AGMCORE_graphicsave nd
/AGMCORE_c 0 def
/AGMCORE_m 0 def
/AGMCORE_y 0 def
/AGMCORE_k 0 def
/AGMCORE_cmykbuf 4 array def
/AGMCORE_screen [currentscreen] cvx def
/AGMCORE_tmp 0 def
/AGMCORE_&setgray nd
/AGMCORE_&setcolor nd
/AGMCORE_&setcolorspace nd
/AGMCORE_&setcmykcolor nd
/AGMCORE_cyan_plate nd
/AGMCORE_magenta_plate nd
/AGMCORE_yellow_plate nd
/AGMCORE_black_plate nd
/AGMCORE_plate_ndx nd
/AGMCORE_get_ink_data nd
/AGMCORE_is_cmyk_sep nd
/AGMCORE_host_sep nd
/AGMCORE_avoid_L2_sep_space nd
/AGMCORE_distilling nd
/AGMCORE_composite_job nd
/AGMCORE_producing_seps nd
/AGMCORE_ps_level -1 def
/AGMCORE_ps_version -1 def
/AGMCORE_environ_ok nd
/AGMCORE_CSA_cache 0 dict def
/AGMCORE_CSD_cache 0 dict def
/AGMCORE_pattern_cache 0 dict def
/AGMCORE_currentoverprint false def
/AGMCORE_deltaX nd
/AGMCORE_deltaY nd
/AGMCORE_name nd
/AGMCORE_sep_special nd
/AGMCORE_err_strings 4 dict def
/AGMCORE_cur_err nd
/AGMCORE_ovp nd
/AGMCORE_current_spot_alias false def
/AGMCORE_inverting false def
/AGMCORE_feature_dictCount nd
/AGMCORE_feature_opCount nd
/AGMCORE_feature_ctm nd
/AGMCORE_ConvertToProcess false def
/AGMCORE_Default_CTM matrix def
/AGMCORE_Default_PageSize nd
/AGMCORE_currentbg nd
/AGMCORE_currentucr nd
/AGMCORE_gradientcache 32 dict def
/AGMCORE_in_pattern false def
/knockout_unitsq nd
/AGMCORE_CRD_cache where{
pop
}{
/AGMCORE_CRD_cache 0 dict def
}ifelse
/AGMCORE_key_known
{
where{
/Adobe_AGM_Core_Id known
}{
false
}ifelse
}ndf
/flushinput
{
save
2 dict begin
/CompareBuffer 3 -1 roll def
/readbuffer 256 string def
mark
{
currentfile readbuffer {readline} stopped
{cleartomark mark}
{
not
{pop exit}
if
CompareBuffer eq
{exit}
if
}ifelse
}loop
cleartomark
end
restore
}bdf
/getspotfunction
{
AGMCORE_screen exch pop exch pop
dup type /dicttype eq{
dup /HalftoneType get 1 eq{
/SpotFunction get
}{
dup /HalftoneType get 2 eq{
/GraySpotFunction get
}{
pop
{
abs exch abs 2 copy add 1 gt{
1 sub dup mul exch 1 sub dup mul add 1 sub
}{
dup mul exch dup mul add 1 exch sub
}ifelse
}bind
}ifelse
}ifelse
}if
} def
/clp_npth
{
clip newpath
} def
/eoclp_npth
{
eoclip newpath
} def
/npth_clp
{
newpath clip
} def
/add_grad
{
AGMCORE_gradientcache 3 1 roll put
}bdf
/exec_grad
{
AGMCORE_gradientcache exch get exec
}bdf
/graphic_setup
{
/AGMCORE_graphicsave save def
concat
0 setgray
0 setlinecap
0 setlinejoin
1 setlinewidth
[] 0 setdash
10 setmiterlimit
newpath
false setoverprint
false setstrokeadjust
Adobe_AGM_Core/spot_alias get exec
/Adobe_AGM_Image where {
pop
Adobe_AGM_Image/spot_alias 2 copy known{
get exec
}{
pop pop
}ifelse
} if
100 dict begin
/dictstackcount countdictstack def
/showpage {} def
mark
} def
/graphic_cleanup
{
cleartomark
dictstackcount 1 countdictstack 1 sub {end}for
end
AGMCORE_graphicsave restore
} def
/compose_error_msg
{
grestoreall initgraphics
/Helvetica findfont 10 scalefont setfont
/AGMCORE_deltaY 100 def
/AGMCORE_deltaX 310 def
clippath pathbbox newpath pop pop 36 add exch 36 add exch moveto
0 AGMCORE_deltaY rlineto AGMCORE_deltaX 0 rlineto
0 AGMCORE_deltaY neg rlineto AGMCORE_deltaX neg 0 rlineto closepath
0 AGMCORE_&setgray
gsave 1 AGMCORE_&setgray fill grestore
1 setlinewidth gsave stroke grestore
currentpoint AGMCORE_deltaY 15 sub add exch 8 add exch moveto
/AGMCORE_deltaY 12 def
/AGMCORE_tmp 0 def
AGMCORE_err_strings exch get
{
dup 32 eq
{
pop
AGMCORE_str256 0 AGMCORE_tmp getinterval
stringwidth pop currentpoint pop add AGMCORE_deltaX 28 add gt
{
currentpoint AGMCORE_deltaY sub exch pop
clippath pathbbox pop pop pop 44 add exch moveto
} if
AGMCORE_str256 0 AGMCORE_tmp getinterval show ( ) show
0 1 AGMCORE_str256 length 1 sub
{
AGMCORE_str256 exch 0 put
}for
/AGMCORE_tmp 0 def
}
{
AGMCORE_str256 exch AGMCORE_tmp xpt
/AGMCORE_tmp AGMCORE_tmp 1 add def
} ifelse
} forall
} bdf
/doc_setup{
Adobe_AGM_Core begin
/AGMCORE_ps_version xdf
/AGMCORE_ps_level xdf
errordict /AGM_handleerror known not{
errordict /AGM_handleerror errordict /handleerror get put
errordict /handleerror {
Adobe_AGM_Core begin
$error /newerror get AGMCORE_cur_err null ne and{
$error /newerror false put
AGMCORE_cur_err compose_error_msg
}if
$error /newerror true put
end
errordict /AGM_handleerror get exec
} bind put
}if
/AGMCORE_environ_ok
ps_level AGMCORE_ps_level ge
ps_version AGMCORE_ps_version ge and
AGMCORE_ps_level -1 eq or
def
AGMCORE_environ_ok not
{/AGMCORE_cur_err /AGMCORE_bad_environ def} if
/AGMCORE_&setgray systemdict/setgray get def
level2{
/AGMCORE_&setcolor systemdict/setcolor get def
/AGMCORE_&setcolorspace systemdict/setcolorspace get def
}if
/AGMCORE_currentbg currentblackgeneration def
/AGMCORE_currentucr currentundercolorremoval def
/AGMCORE_distilling
/product where{
pop systemdict/setdistillerparams known product (Adobe PostScript Parser) ne and
}{
false
}ifelse
def
level2 not{
/xput{
dup load dup length exch maxlength eq{
dup dup load dup
length dup 0 eq {pop 1} if 2 mul dict copy def
}if
load begin
def
end
}def
}{
/xput{
load 3 1 roll put
}def
}ifelse
/AGMCORE_GSTATE AGMCORE_key_known not{
/AGMCORE_GSTATE 21 dict def
/AGMCORE_tmpmatrix matrix def
/AGMCORE_gstack 32 array def
/AGMCORE_gstackptr 0 def
/AGMCORE_gstacksaveptr 0 def
/AGMCORE_gstackframekeys 10 def
/AGMCORE_&gsave /gsave ldf
/AGMCORE_&grestore /grestore ldf
/AGMCORE_&grestoreall /grestoreall ldf
/AGMCORE_&save /save ldf
/AGMCORE_gdictcopy {
begin
{ def } forall
end
}def
/AGMCORE_gput {
AGMCORE_gstack AGMCORE_gstackptr get
3 1 roll
put
}def
/AGMCORE_gget {
AGMCORE_gstack AGMCORE_gstackptr get
exch
get
}def
/gsave {
AGMCORE_&gsave
AGMCORE_gstack AGMCORE_gstackptr get
AGMCORE_gstackptr 1 add
dup 32 ge {limitcheck} if
Adobe_AGM_Core exch
/AGMCORE_gstackptr xpt
AGMCORE_gstack AGMCORE_gstackptr get
AGMCORE_gdictcopy
}def
/grestore {
AGMCORE_&grestore
AGMCORE_gstackptr 1 sub
dup AGMCORE_gstacksaveptr lt {1 add} if
Adobe_AGM_Core exch
/AGMCORE_gstackptr xpt
}def
/grestoreall {
AGMCORE_&grestoreall
Adobe_AGM_Core
/AGMCORE_gstackptr AGMCORE_gstacksaveptr put
}def
/save {
AGMCORE_&save
AGMCORE_gstack AGMCORE_gstackptr get
AGMCORE_gstackptr 1 add
dup 32 ge {limitcheck} if
Adobe_AGM_Core begin
/AGMCORE_gstackptr exch def
/AGMCORE_gstacksaveptr AGMCORE_gstackptr def
end
AGMCORE_gstack AGMCORE_gstackptr get
AGMCORE_gdictcopy
}def
0 1 AGMCORE_gstack length 1 sub {
AGMCORE_gstack exch AGMCORE_gstackframekeys dict put
} for
}if
level3 /AGMCORE_&sysshfill AGMCORE_key_known not and
{
/AGMCORE_&sysshfill systemdict/shfill get def
/AGMCORE_&usrshfill /shfill load def
/AGMCORE_&sysmakepattern systemdict/makepattern get def
/AGMCORE_&usrmakepattern /makepattern load def
}if
/currentcmykcolor [0 0 0 0] AGMCORE_gput
/currentstrokeadjust false AGMCORE_gput
/currentcolorspace [/DeviceGray] AGMCORE_gput
/sep_tint 0 AGMCORE_gput
/devicen_tints [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0] AGMCORE_gput
/sep_colorspace_dict null AGMCORE_gput
/devicen_colorspace_dict null AGMCORE_gput
/indexed_colorspace_dict null AGMCORE_gput
/currentcolor_intent () AGMCORE_gput
/customcolor_tint 1 AGMCORE_gput
<<
/MaxPatternItem currentsystemparams /MaxPatternCache get
>>
setuserparams
end
}def
/page_setup
{
/setcmykcolor where{
pop
Adobe_AGM_Core/AGMCORE_&setcmykcolor /setcmykcolor load put
}if
Adobe_AGM_Core begin
/setcmykcolor
{
4 copy AGMCORE_cmykbuf astore /currentcmykcolor exch AGMCORE_gput
1 sub 4 1 roll
3 {
3 index add neg dup 0 lt {
pop 0
} if
3 1 roll
} repeat
setrgbcolor pop
}ndf
/currentcmykcolor
{
/currentcmykcolor AGMCORE_gget aload pop
}ndf
/setoverprint
{
pop
}ndf
/currentoverprint
{
false
}ndf
/AGMCORE_deviceDPI 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def
/AGMCORE_cyan_plate 1 0 0 0 test_cmyk_color_plate def
/AGMCORE_magenta_plate 0 1 0 0 test_cmyk_color_plate def
/AGMCORE_yellow_plate 0 0 1 0 test_cmyk_color_plate def
/AGMCORE_black_plate 0 0 0 1 test_cmyk_color_plate def
/AGMCORE_plate_ndx
AGMCORE_cyan_plate{
0
}{
AGMCORE_magenta_plate{
1
}{
AGMCORE_yellow_plate{
2
}{
AGMCORE_black_plate{
3
}{
4
}ifelse
}ifelse
}ifelse
}ifelse
def
/AGMCORE_have_reported_unsupported_color_space false def
/AGMCORE_report_unsupported_color_space
{
AGMCORE_have_reported_unsupported_color_space false eq
{
(Warning: Job contains content that cannot be separated with on-host methods. This content appears on the black plate, and knocks out all other plates.) ==
Adobe_AGM_Core /AGMCORE_have_reported_unsupported_color_space true ddf
} if
}def
/AGMCORE_composite_job
AGMCORE_cyan_plate AGMCORE_magenta_plate and AGMCORE_yellow_plate and AGMCORE_black_plate and def
/AGMCORE_in_rip_sep
/AGMCORE_in_rip_sep where{
pop AGMCORE_in_rip_sep
}{
AGMCORE_distilling
{
false
}{
userdict/Adobe_AGM_OnHost_Seps known{
false
}{
level2{
currentpagedevice/Separations 2 copy known{
get
}{
pop pop false
}ifelse
}{
false
}ifelse
}ifelse
}ifelse
}ifelse
def
/AGMCORE_producing_seps AGMCORE_composite_job not AGMCORE_in_rip_sep or def
/AGMCORE_host_sep AGMCORE_producing_seps AGMCORE_in_rip_sep not and def
/AGM_preserve_spots
/AGM_preserve_spots where{
pop AGM_preserve_spots
}{
AGMCORE_distilling AGMCORE_producing_seps or
}ifelse
def
/AGM_is_distiller_preserving_spotimages
{
currentdistillerparams/PreserveOverprintSettings known
{
currentdistillerparams/PreserveOverprintSettings get
{
currentdistillerparams/ColorConversionStrategy known
{
currentdistillerparams/ColorConversionStrategy get
/LeaveColorUnchanged eq
}{
true
}ifelse
}{
false
}ifelse
}{
false
}ifelse
}def
/convert_spot_to_process where {pop}{
/convert_spot_to_process
{
dup map_alias {
/Name get exch pop
} if
dup dup (None) eq exch (All) eq or
{
pop false
}{
AGMCORE_host_sep
{
gsave
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
add add add 0 eq
{
pop false
}{
false setoverprint
1 1 1 1 5 -1 roll findcmykcustomcolor 1 setcustomcolor
currentgray 0 eq
}ifelse
grestore
}{
AGMCORE_distilling
{
pop AGM_is_distiller_preserving_spotimages not
}{
Adobe_AGM_Core/AGMCORE_name xddf
false
Adobe_AGM_Core/AGMCORE_in_pattern known {Adobe_AGM_Core/AGMCORE_in_pattern get}{false} ifelse
not currentpagedevice/OverrideSeparations known and
{
currentpagedevice/OverrideSeparations get
{
/HqnSpots /ProcSet resourcestatus
{
pop pop pop true
}if
}if
}if
{
AGMCORE_name /HqnSpots /ProcSet findresource /TestSpot get exec not
}{
gsave
[/Separation AGMCORE_name /DeviceGray {}]setcolorspace
false
currentpagedevice/SeparationColorNames 2 copy known
{
get
{ AGMCORE_name eq or}forall
not
}{
pop pop pop true
}ifelse
grestore
}ifelse
}ifelse
}ifelse
}ifelse
}def
}ifelse
/convert_to_process where {pop}{
/convert_to_process
{
dup length 0 eq
{
pop false
}{
AGMCORE_host_sep
{
dup true exch
{
dup (Cyan) eq exch
dup (Magenta) eq 3 -1 roll or exch
dup (Yellow) eq 3 -1 roll or exch
dup (Black) eq 3 -1 roll or
{pop}
{convert_spot_to_process and}ifelse
}
forall
{
true exch
{
dup (Cyan) eq exch
dup (Magenta) eq 3 -1 roll or exch
dup (Yellow) eq 3 -1 roll or exch
(Black) eq or and
}forall
not
}{pop false}ifelse
}{
false exch
{
dup (Cyan) eq exch
dup (Magenta) eq 3 -1 roll or exch
dup (Yellow) eq 3 -1 roll or exch
dup (Black) eq 3 -1 roll or
{pop}
{convert_spot_to_process or}ifelse
}
forall
}ifelse
}ifelse
}def
}ifelse
/AGMCORE_avoid_L2_sep_space
version cvr 2012 lt
level2 and
AGMCORE_producing_seps not and
def
/AGMCORE_is_cmyk_sep
AGMCORE_cyan_plate AGMCORE_magenta_plate or AGMCORE_yellow_plate or AGMCORE_black_plate or
def
/AGM_avoid_0_cmyk where{
pop AGM_avoid_0_cmyk
}{
AGM_preserve_spots
userdict/Adobe_AGM_OnHost_Seps known
userdict/Adobe_AGM_InRip_Seps known or
not and
}ifelse
{
/setcmykcolor[
{
4 copy add add add 0 eq currentoverprint and{
pop 0.0005
}if
}/exec cvx
/AGMCORE_&setcmykcolor load dup type/operatortype ne{
/exec cvx
}if
]cvx def
}if
AGMCORE_host_sep{
/setcolortransfer
{
AGMCORE_cyan_plate{
pop pop pop
}{
AGMCORE_magenta_plate{
4 3 roll pop pop pop
}{
AGMCORE_yellow_plate{
4 2 roll pop pop pop
}{
4 1 roll pop pop pop
}ifelse
}ifelse
}ifelse
settransfer
}
def
/AGMCORE_get_ink_data
AGMCORE_cyan_plate{
{pop pop pop}
}{
AGMCORE_magenta_plate{
{4 3 roll pop pop pop}
}{
AGMCORE_yellow_plate{
{4 2 roll pop pop pop}
}{
{4 1 roll pop pop pop}
}ifelse
}ifelse
}ifelse
def
/AGMCORE_RemoveProcessColorNames
{
1 dict begin
/filtername
{
dup /Cyan eq 1 index (Cyan) eq or
{pop (_cyan_)}if
dup /Magenta eq 1 index (Magenta) eq or
{pop (_magenta_)}if
dup /Yellow eq 1 index (Yellow) eq or
{pop (_yellow_)}if
dup /Black eq 1 index (Black) eq or
{pop (_black_)}if
}def
dup type /arraytype eq
{[exch {filtername}forall]}
{filtername}ifelse
end
}def
/AGMCORE_IsSeparationAProcessColor
{
dup (Cyan) eq exch dup (Magenta) eq exch dup (Yellow) eq exch (Black) eq or or or
}def
level3 {
/AGMCORE_IsCurrentColor
{
gsave
false setoverprint
1 1 1 1 5 -1 roll findcmykcustomcolor 1 setcustomcolor
currentgray 0 eq
grestore
}def
/AGMCORE_filter_functiondatasource
{
5 dict begin
/data_in xdf
data_in type /stringtype eq
{
/ncomp xdf
/comp xdf
/string_out data_in length ncomp idiv string def
0 ncomp data_in length 1 sub
{
string_out exch dup ncomp idiv exch data_in exch ncomp getinterval comp get 255 exch sub put
}for
string_out
}{
string /string_in xdf
/string_out 1 string def
/component xdf
[
data_in string_in /readstring cvx
[component /get cvx 255 /exch cvx /sub cvx string_out /exch cvx 0 /exch cvx /put cvx string_out]cvx
[/pop cvx ()]cvx /ifelse cvx
]cvx /ReusableStreamDecode filter
}ifelse
end
}def
/AGMCORE_separateShadingFunction
{
2 dict begin
/paint? xdf
/channel xdf
begin
FunctionType 0 eq
{
/DataSource channel Range length 2 idiv DataSource AGMCORE_filter_functiondatasource def
currentdict /Decode known
{/Decode Decode channel 2 mul 2 getinterval def}if
paint? not
{/Decode [1 1]def}if
}if
FunctionType 2 eq
{
paint?
{
/C0 [C0 channel get 1 exch sub] def
/C1 [C1 channel get 1 exch sub] def
}{
/C0 [1] def
/C1 [1] def
}ifelse
}if
FunctionType 3 eq
{
/Functions [Functions {channel paint? AGMCORE_separateShadingFunction} forall] def
}if
currentdict /Range known
{/Range [0 1] def}if
currentdict
end
end
}def
/AGMCORE_separateShading
{
3 -1 roll begin
currentdict /Function known
{
currentdict /Background known
{[1 index{Background 3 index get 1 exch sub}{1}ifelse]/Background xdf}if
Function 3 1 roll AGMCORE_separateShadingFunction /Function xdf
/ColorSpace [/DeviceGray] def
}{
ColorSpace dup type /arraytype eq {0 get}if /DeviceCMYK eq
{
/ColorSpace [/DeviceN [/_cyan_ /_magenta_ /_yellow_ /_black_] /DeviceCMYK {}] def
}{
ColorSpace dup 1 get AGMCORE_RemoveProcessColorNames 1 exch put
}ifelse
ColorSpace 0 get /Separation eq
{
{
[1 /exch cvx /sub cvx]cvx
}{
[/pop cvx 1]cvx
}ifelse
ColorSpace 3 3 -1 roll put
pop
}{
{
[exch ColorSpace 1 get length 1 sub exch sub /index cvx 1 /exch cvx /sub cvx ColorSpace 1 get length 1 add 1 /roll cvx ColorSpace 1 get length{/pop cvx} repeat]cvx
}{
pop [ColorSpace 1 get length {/pop cvx} repeat cvx 1]cvx
}ifelse
ColorSpace 3 3 -1 roll bind put
}ifelse
ColorSpace 2 /DeviceGray put
}ifelse
end
}def
/AGMCORE_separateShadingDict
{
dup /ColorSpace get
dup type /arraytype ne
{[exch]}if
dup 0 get /DeviceCMYK eq
{
exch begin
currentdict
AGMCORE_cyan_plate
{0 true}if
AGMCORE_magenta_plate
{1 true}if
AGMCORE_yellow_plate
{2 true}if
AGMCORE_black_plate
{3 true}if
AGMCORE_plate_ndx 4 eq
{0 false}if
dup not currentoverprint and
{/AGMCORE_ignoreshade true def}if
AGMCORE_separateShading
currentdict
end exch
}if
dup 0 get /Separation eq
{
exch begin
ColorSpace 1 get dup /None ne exch /All ne and
{
ColorSpace 1 get AGMCORE_IsCurrentColor AGMCORE_plate_ndx 4 lt and ColorSpace 1 get AGMCORE_IsSeparationAProcessColor not and
{
ColorSpace 2 get dup type /arraytype eq {0 get}if /DeviceCMYK eq
{
/ColorSpace
[
/Separation
ColorSpace 1 get
/DeviceGray
[
ColorSpace 3 get /exec cvx
4 AGMCORE_plate_ndx sub -1 /roll cvx
4 1 /roll cvx
3 [/pop cvx]cvx /repeat cvx
1 /exch cvx /sub cvx
]cvx
]def
}{
AGMCORE_report_unsupported_color_space
AGMCORE_black_plate not
{
currentdict 0 false AGMCORE_separateShading
}if
}ifelse
}{
currentdict ColorSpace 1 get AGMCORE_IsCurrentColor
0 exch
dup not currentoverprint and
{/AGMCORE_ignoreshade true def}if
AGMCORE_separateShading
}ifelse
}if
currentdict
end exch
}if
dup 0 get /DeviceN eq
{
exch begin
ColorSpace 1 get convert_to_process
{
ColorSpace 2 get dup type /arraytype eq {0 get}if /DeviceCMYK eq
{
/ColorSpace
[
/DeviceN
ColorSpace 1 get
/DeviceGray
[
ColorSpace 3 get /exec cvx
4 AGMCORE_plate_ndx sub -1 /roll cvx
4 1 /roll cvx
3 [/pop cvx]cvx /repeat cvx
1 /exch cvx /sub cvx
]cvx
]def
}{
AGMCORE_report_unsupported_color_space
AGMCORE_black_plate not
{
currentdict 0 false AGMCORE_separateShading
/ColorSpace [/DeviceGray] def
}if
}ifelse
}{
currentdict
false -1 ColorSpace 1 get
{
AGMCORE_IsCurrentColor
{
1 add
exch pop true exch exit
}if
1 add
}forall
exch
dup not currentoverprint and
{/AGMCORE_ignoreshade true def}if
AGMCORE_separateShading
}ifelse
currentdict
end exch
}if
dup 0 get dup /DeviceCMYK eq exch dup /Separation eq exch /DeviceN eq or or not
{
exch begin
ColorSpace dup type /arraytype eq
{0 get}if
/DeviceGray ne
{
AGMCORE_report_unsupported_color_space
AGMCORE_black_plate not
{
ColorSpace 0 get /CIEBasedA eq
{
/ColorSpace [/Separation /_ciebaseda_ /DeviceGray {}] def
}if
ColorSpace 0 get dup /CIEBasedABC eq exch dup /CIEBasedDEF eq exch /DeviceRGB eq or or
{
/ColorSpace [/DeviceN [/_red_ /_green_ /_blue_] /DeviceRGB {}] def
}if
ColorSpace 0 get /CIEBasedDEFG eq
{
/ColorSpace [/DeviceN [/_cyan_ /_magenta_ /_yellow_ /_black_] /DeviceCMYK {}]
}if
currentdict 0 false AGMCORE_separateShading
}if
}if
currentdict
end exch
}if
pop
dup /AGMCORE_ignoreshade known
{
begin
/ColorSpace [/Separation (None) /DeviceGray {}] def
currentdict end
}if
}def
/shfill
{
clonedict
AGMCORE_separateShadingDict
dup /AGMCORE_ignoreshade known
{pop}
{AGMCORE_&sysshfill}ifelse
}def
/makepattern
{
exch
dup /PatternType get 2 eq
{
clonedict
begin
/Shading Shading AGMCORE_separateShadingDict def
currentdict end
exch AGMCORE_&sysmakepattern
}{
exch AGMCORE_&usrmakepattern
}ifelse
}def
}if
}if
AGMCORE_in_rip_sep{
/setcustomcolor
{
exch aload pop
dup 7 1 roll inRip_spot_has_ink not {
4 {4 index mul 4 1 roll}
repeat
/DeviceCMYK setcolorspace
6 -2 roll pop pop
}{
Adobe_AGM_Core begin
/AGMCORE_k xdf /AGMCORE_y xdf /AGMCORE_m xdf /AGMCORE_c xdf
end
[/Separation 4 -1 roll /DeviceCMYK
{dup AGMCORE_c mul exch dup AGMCORE_m mul exch dup AGMCORE_y mul exch AGMCORE_k mul}
]
setcolorspace
}ifelse
setcolor
}ndf
/setseparationgray
{
[/Separation (All) /DeviceGray {}] setcolorspace_opt
1 exch sub setcolor
}ndf
}{
/setseparationgray
{
AGMCORE_&setgray
}ndf
}ifelse
/findcmykcustomcolor
{
5 makereadonlyarray
}ndf
/setcustomcolor
{
exch aload pop pop
4 {4 index mul 4 1 roll} repeat
setcmykcolor pop
}ndf
/has_color
/colorimage where{
AGMCORE_producing_seps{
pop true
}{
systemdict eq
}ifelse
}{
false
}ifelse
def
/map_index
{
1 index mul exch getinterval {255 div} forall
} bdf
/map_indexed_devn
{
Lookup Names length 3 -1 roll cvi map_index
} bdf
/n_color_components
{
base_colorspace_type
dup /DeviceGray eq{
pop 1
}{
/DeviceCMYK eq{
4
}{
3
}ifelse
}ifelse
}bdf
level2{
/mo /moveto ldf
/li /lineto ldf
/cv /curveto ldf
/knockout_unitsq
{
1 setgray
0 0 1 1 rectfill
}def
/level2ScreenFreq{
begin
60
HalftoneType 1 eq{
pop Frequency
}if
HalftoneType 2 eq{
pop GrayFrequency
}if
HalftoneType 5 eq{
pop Default level2ScreenFreq
}if
end
}def
/currentScreenFreq{
currenthalftone level2ScreenFreq
}def
level2 /setcolorspace AGMCORE_key_known not and{
/AGMCORE_&&&setcolorspace /setcolorspace ldf
/AGMCORE_ReplaceMappedColor
{
dup type dup /arraytype eq exch /packedarraytype eq or
{
dup 0 get dup /Separation eq
{
pop
dup length array copy
dup dup 1 get
current_spot_alias
{
dup map_alias
{
begin
/sep_colorspace_dict currentdict AGMCORE_gput
pop pop pop
[
/Separation Name
CSA map_csa
dup /MappedCSA xdf
/sep_colorspace_proc load
]
dup Name
end
}if
}if
map_reserved_ink_name 1 xpt
}{
/DeviceN eq
{
dup length array copy
dup dup 1 get [
exch {
current_spot_alias{
dup map_alias{
/Name get exch pop
}if
}if
map_reserved_ink_name
} forall
] 1 xpt
}if
}ifelse
}if
}def
/setcolorspace
{
dup type dup /arraytype eq exch /packedarraytype eq or
{
dup 0 get /Indexed eq
{
AGMCORE_distilling
{
/PhotoshopDuotoneList where
{
pop false
}{
true
}ifelse
}{
true
}ifelse
{
aload pop 3 -1 roll
AGMCORE_ReplaceMappedColor
3 1 roll 4 array astore
}if
}{
AGMCORE_ReplaceMappedColor
}ifelse
}if
DeviceN_PS2_inRip_seps {AGMCORE_&&&setcolorspace} if
}def
}if
}{
/adj
{
currentstrokeadjust{
transform
0.25 sub round 0.25 add exch
0.25 sub round 0.25 add exch
itransform
}if
}def
/mo{
adj moveto
}def
/li{
adj lineto
}def
/cv{
6 2 roll adj
6 2 roll adj
6 2 roll adj curveto
}def
/knockout_unitsq
{
1 setgray
8 8 1 [8 0 0 8 0 0] {<ffffffffffffffff>} image
}def
/currentstrokeadjust{
/currentstrokeadjust AGMCORE_gget
}def
/setstrokeadjust{
/currentstrokeadjust exch AGMCORE_gput
}def
/currentScreenFreq{
currentscreen pop pop
}def
/setcolorspace
{
/currentcolorspace exch AGMCORE_gput
} def
/currentcolorspace
{
/currentcolorspace AGMCORE_gget
} def
/setcolor_devicecolor
{
base_colorspace_type
dup /DeviceGray eq{
pop setgray
}{
/DeviceCMYK eq{
setcmykcolor
}{
setrgbcolor
}ifelse
}ifelse
}def
/setcolor
{
currentcolorspace 0 get
dup /DeviceGray ne{
dup /DeviceCMYK ne{
dup /DeviceRGB ne{
dup /Separation eq{
pop
currentcolorspace 3 get exec
currentcolorspace 2 get
}{
dup /Indexed eq{
pop
currentcolorspace 3 get dup type /stringtype eq{
currentcolorspace 1 get n_color_components
3 -1 roll map_index
}{
exec
}ifelse
currentcolorspace 1 get
}{
/AGMCORE_cur_err /AGMCORE_invalid_color_space def
AGMCORE_invalid_color_space
}ifelse
}ifelse
}if
}if
}if
setcolor_devicecolor
} def
}ifelse
/sop /setoverprint ldf
/lw /setlinewidth ldf
/lc /setlinecap ldf
/lj /setlinejoin ldf
/ml /setmiterlimit ldf
/dsh /setdash ldf
/sadj /setstrokeadjust ldf
/gry /setgray ldf
/rgb /setrgbcolor ldf
/cmyk /setcmykcolor ldf
/sep /setsepcolor ldf
/devn /setdevicencolor ldf
/idx /setindexedcolor ldf
/colr /setcolor ldf
/csacrd /set_csa_crd ldf
/sepcs /setsepcolorspace ldf
/devncs /setdevicencolorspace ldf
/idxcs /setindexedcolorspace ldf
/cp /closepath ldf
/clp /clp_npth ldf
/eclp /eoclp_npth ldf
/f /fill ldf
/ef /eofill ldf
/@ /stroke ldf
/nclp /npth_clp ldf
/gset /graphic_setup ldf
/gcln /graphic_cleanup ldf
currentdict{
dup xcheck 1 index type dup /arraytype eq exch /packedarraytype eq or and {
bind
}if
def
}forall
/currentpagedevice currentpagedevice def
/getrampcolor {
/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
ColorSpaceFamily /Separation eq
{
sep
}
{
ColorSpaceFamily /DeviceN eq
{
devn
}
{
setcolor
}ifelse
}ifelse
} bind def
/sssetbackground { aload pop setcolor } bind def
/RadialShade {
40 dict begin
/ColorSpaceFamily exch def
/background exch def
/ext1 exch def
/ext0 exch def
/BBox exch def
/r2 exch def
/c2y exch def
/c2x exch def
/r1 exch def
/c1y exch def
/c1x exch def
/rampdict exch def
/setinkoverprint where {pop /setinkoverprint{pop}def}if
gsave
BBox length 0 gt {
newpath
BBox 0 get BBox 1 get moveto
BBox 2 get BBox 0 get sub 0 rlineto