diff options
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_cet.ps')
-rw-r--r-- | Master/tlpkg/tlgs/Resource/Init/gs_cet.ps | 111 |
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 |