home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_cet.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  1.8 KB  |  62 lines
  1. %!PS
  2. % Set defaults for Ghostscript to match Adobe CPSI behaviour for CET
  3. % $Id: gs_cet.ps 8954 2008-08-08 04:22:38Z ray $
  4.  
  5. % do this in the server level so it is persistent across jobs
  6. true 0 startjob not {
  7.   (*** Warning: CET startup is not in server default) = flush
  8. } if
  9.  
  10. 300 .sethiresscreen    % needed for language switch build since it
  11.             % processes gs_init.ps BEFORE setting the resolution
  12.  
  13. 0 array 0 setdash % CET 09-08 wants local setdash
  14.  
  15. currentglobal true setglobal
  16.  
  17. {
  18.   systemdict dup dup dup
  19.   /version (3017.102) put        % match CPSI 3017.102
  20.   /product (PhotoPRINT SE 5.0v2) put    % match CPSI 3017.102
  21.   /revision 0 put            % match CPSI 3017.103 Tek shows revision 5
  22.   /serialnumber 233640 put        % match CPSI 3017.102 Tek shows serialnumber 1401788461
  23.   systemdict /deviceinfo undef          % for CET 20-23-1
  24. } superexec
  25.  
  26. { } bind dup
  27. setblackgeneration
  28. setundercolorremoval
  29. 0 array cvx readonly dup dup dup setcolortransfer
  30.  
  31. % CPSI doesn't define "Localization" resource.
  32. /Localization /Category undefineresource
  33.  
  34. % Some previously compile time options such as USE_ADOBE_CMYK_RGB
  35. % and GS_CHAR_FILL are now dynamic. Force CPSI compatibility.
  36. true .setCPSImode
  37.  
  38. setglobal
  39.  
  40. % Remove all but 'letter' page size
  41. <<
  42. currentpagedevice /InputAttributes get
  43. 1 1 2 index length 1 sub {
  44.   1 index exch undef
  45. } for
  46. /InputAttributes exch
  47. >>
  48. setpagedevice
  49.  
  50. % Patch setsmoothness, currentsmoothness for a better view of shadings :
  51. userdict /.smoothness currentsmoothness put
  52. /setsmoothness { 
  53.    dup type dup /integertype eq exch /realtype eq or {
  54.      userdict /.smoothness 3 2 roll cvr put 
  55.    } {
  56.      /setsmoothness .systemvar /typecheck signalerror
  57.    } ifelse
  58. } bind odef
  59. /currentsmoothness { userdict /.smoothness get } bind odef % for 09-55.PS, 09-57.PS .
  60.  
  61. false 0 startjob pop        % re-enter encapsulated mode
  62.