ok
Direktori : /proc/thread-self/root/usr/share/ghostscript/Resource/Init/ |
Current File : //proc/thread-self/root/usr/share/ghostscript/Resource/Init/gs_cet.ps |
% Set defaults for Ghostscript to match Adobe CPSI behaviour for CET % skip if we've already run this -- based on fake "product" systemdict /product get (PhotoPRINT SE 5.0v2) readonly eq { (%END GS_CET) .skipeof } if % Note: this must be run at save level 0 and when systemdict is writeable currentglobal //true setglobal systemdict dup dup dup /version (3017.102) readonly .forceput % match CPSI 3017.102 /product (PhotoPRINT SE 5.0v2) readonly .forceput % match CPSI 3017.102 /revision 0 put % match CPSI 3017.103 Tek shows revision 5 /serialnumber dup {233640} readonly .makeoperator .forceput % match CPSI 3017.102 Tek shows serialnumber 1401788461 systemdict /.odef { % <name> <proc> odef - 1 index exch //.makeoperator def } .bind .forceput % this will be undefined at the end 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 /UNROLLFORMS true def (%.defaultbgrucrproc) cvn { } bind def (%.defaultbgrucrproc) cvn load 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 exec /currentsmoothness { userdict /.smoothness get } bind //.odef exec % 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 systemdict /.odef .undef % end of slightly nasty hack to give consistent cluster results %END GS_CET