summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/gs_init.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/gs_init.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/gs_init.ps22
1 files changed, 17 insertions, 5 deletions
diff --git a/Master/tlpkg/tlgs/lib/gs_init.ps b/Master/tlpkg/tlgs/lib/gs_init.ps
index 8e04aaf4d95..7a80d35ed51 100644
--- a/Master/tlpkg/tlgs/lib/gs_init.ps
+++ b/Master/tlpkg/tlgs/lib/gs_init.ps
@@ -13,7 +13,7 @@
% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
% San Rafael, CA 94903, U.S.A., +1(415)492-9861.
-% $Id: gs_init.ps 8054 2007-06-17 00:01:02Z alexcher $
+% $Id: gs_init.ps 8401 2007-11-21 22:42:03Z giles $
% Initialization file for the interpreter.
% When this is run, systemdict is still writable.
@@ -27,9 +27,12 @@
% initialization files, have names that begin with %, e.g.,
% (%Type1BuildChar) cvn.
-% Check the interpreter revision. NOTE: the interpreter code requires
-% that the first non-comment token in this file be an integer.
-860
+% Interpreter library version number
+% NOTE: the interpreter code requires that the first non-comment token
+% in this file be an integer, and that it match the compiled-in version!
+862
+
+% Check the interpreter revision.
dup revision ne
{ (gs: Interpreter revision \() print revision 10 string cvs print
(\) does not match gs_init.ps revision \() print 10 string cvs print
@@ -1281,7 +1284,7 @@ put % errordict /rangecheck
}
if
}
- { 0 .getdevice .devicename
+ { .getdefaultdevice .devicename
}
ifelse
}
@@ -1516,6 +1519,14 @@ setpacking
.setdefaultbgucr
} bind def
+% Rendering intent mapping for setcolorrendering1 and PDF interpreter
+/.renderingintentdict mark
+ /Perceptual 0
+ /RelativeColorimetric 1
+ /Saturation 2
+ /AbsoluteColorimetric 3
+.dicttomark readonly def
+
% Load basic color support
%% Replace 1 (gs_cspace.ps)
(gs_cspace.ps) runlibfile
@@ -2147,6 +2158,7 @@ currentdict /.imagemasktypes .undef
currentdict /.patterntypes .undef
currentdict /.shadingtypes .undef
currentdict /.wheredict .undef
+currentdict /.renderingintentdict .undef
end
% Clean up VM, and enable GC.