summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_cet.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_cet.ps')
-rw-r--r--Master/tlpkg/tlgs/Resource/Init/gs_cet.ps111
1 files changed, 111 insertions, 0 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_cet.ps b/Master/tlpkg/tlgs/Resource/Init/gs_cet.ps
new file mode 100644
index 00000000000..8eb79bb06e0
--- /dev/null
+++ b/Master/tlpkg/tlgs/Resource/Init/gs_cet.ps
@@ -0,0 +1,111 @@
+%!PS
+% Set defaults for Ghostscript to match Adobe CPSI behaviour for CET
+
+% do this in the server level so it is persistent across jobs
+//true 0 startjob not {
+ (*** Warning: CET startup is not in server default) = flush
+} if
+
+300 .sethiresscreen % needed for language switch build since it
+ % processes gs_init.ps BEFORE setting the resolution
+
+0 array 0 setdash % CET 09-08 wants local setdash
+
+currentglobal //true setglobal
+
+{
+ systemdict dup dup dup
+ /version (3017.102) readonly put % match CPSI 3017.102
+ /product (PhotoPRINT SE 5.0v2) readonly put % match CPSI 3017.102
+ /revision 0 put % match CPSI 3017.103 Tek shows revision 5
+ /serialnumber dup {233640} readonly .makeoperator put % match CPSI 3017.102 Tek shows serialnumber 1401788461
+ systemdict /deviceinfo undef % for CET 20-23-1
+% /UNROLLFORMS true put % CET files do unreasonable things inside forms
+} superexec
+
+/UNROLLFORMS true def
+
+{ } bind dup
+setblackgeneration
+setundercolorremoval
+0 array cvx readonly dup dup dup setcolortransfer
+
+% CPSI doesn't define "Localization" resource.
+/Localization /Category undefineresource
+
+% Quality Logic test 09-59.ps tries to set each listed /OutputDevice.
+% This can cause problems with some devices (eg mswinpr2 on Windows)
+% so for the CET files we define the OutputDevice resource as
+% being empty. We need to redefine /.definecategory as that definition
+% gets destroyed at the end of gs_res.ps
+/OutputDevice /Category undefineresource
+
+/.definecategory % <name> -mark- <key1> ... <valuen> .definecategory -
+ { counttomark 2 idiv 2 add % .Instances, Category
+ /Generic /Category findresource dup maxlength 3 -1 roll add
+ dict .copydict begin
+ counttomark 2 idiv { def } repeat pop % pop the mark
+ currentdict end /Category defineresource pop
+ } bind def
+
+/OutputDevice mark /InstanceType /dicttype .definecategory
+
+% Redefine Font category to return -1 (unknown) VM usage
+% in all cases to avoid differences between hosts.
+/Font /Category findresource
+dup length dict copy
+dup
+dup /.loadfontresource get
+dup length array copy cvx
+dup 1 0 put
+dup 7 -1 put
+/.loadfontresource exch put
+/Font exch /Category defineresource pop
+
+% Some previously compile time options such as USE_ADOBE_CMYK_RGB
+% and GS_CHAR_FILL are now dynamic. Force CPSI compatibility.
+//true .setCPSImode
+
+setglobal
+
+% Remove all but 'letter' page size
+<<
+currentpagedevice /InputAttributes get
+1 1 2 index length 1 sub {
+ 1 index exch undef
+} for
+/InputAttributes exch
+>>
+setpagedevice
+
+% Patch setsmoothness, currentsmoothness for a better view of shadings :
+userdict /.smoothness currentsmoothness put
+/setsmoothness {
+ dup type dup /integertype eq exch /realtype eq or {
+ userdict /.smoothness 3 2 roll cvr put
+ } {
+ /setsmoothness .systemvar /typecheck signalerror
+ } ifelse
+} bind odef
+/currentsmoothness { userdict /.smoothness get } bind odef % for 09-55.PS, 09-57.PS .
+
+% slightly nasty hack to give consistent cluster results
+/ofnfa systemdict /filenameforall get def
+
+/filenameforall
+{
+ 2 index dup length 1 eq
+ {
+ (*) eq
+ {
+ 3 -1 roll pop ( ) 3 1 roll
+ } if
+ }
+ {
+ pop
+ } ifelse
+ ofnfa
+} bind def
+% end of slightly nasty hack to give consistent cluster results
+
+//false 0 startjob pop % re-enter encapsulated mode