home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / gs_ll3.ps < prev    next >
Text File  |  2003-12-13  |  11KB  |  341 lines
  1. %    Copyright (C) 1997, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_ll3.ps,v 1.18.2.1 2003/12/12 22:07:58 giles Exp $
  17. % Initialization file for PostScript LanguageLevel 3 functions.
  18. % This file must be loaded after gs_lev2.ps and gs_res.ps.
  19. % These definitions go into ll3dict or various ProcSets.
  20. % NOTE: the interpreter creates ll3dict.
  21.  
  22. ll3dict begin
  23.  
  24. % We need LanguageLevel 2 or higher in order to have setuserparams and
  25. % defineresource.
  26. languagelevel dup 2 .max .setlanguagelevel
  27.  
  28. % ------ Idiom recognition ------ %
  29.  
  30. /IdiomRecognition false .definepsuserparam
  31.  
  32. % Modify `bind' to apply idiom recognition afterwards.
  33. /.bindscratch 128 string def
  34. % Note that since this definition of `bind' may get bound in,
  35. % it has to function properly even at lower language levels,
  36. % where IdiomRecognition may not be defined.
  37. /.bind {        % <proc> .bind <proc'>
  38.   //.bind currentuserparams /IdiomRecognition
  39.   .knownget not { false } if {
  40.     (*) {
  41.       /IdiomSet findresource
  42.       false exch {
  43.         % Stack: proc false dummykey [template substitute]
  44.     exch pop dup 1 get exch 0 get
  45.         % Stack: proc false substitute template
  46.     3 index .eqproc {
  47.       2 index gcheck 1 index gcheck not and {
  48.         pop
  49.       } {
  50.         3 -1 roll pop exch not exit
  51.       } ifelse
  52.     } {
  53.       pop
  54.     } ifelse
  55.       } forall { exit } if
  56.     } //.bindscratch /IdiomSet resourceforall
  57.   } if
  58. } odef
  59. currentdict /.bindscratch .undef
  60.  
  61. DELAYBIND NOBIND or not { 
  62.   /bind /.bind load def
  63. } if
  64.  
  65. % ------ HalftoneTypes 6, 10, 16 and HalftoneMode ------ %
  66.  
  67. % This code depends on an internal HalftoneType 7 with the following keys:
  68. %    Width, Height, Width2, Height2, TransferFunction:
  69. %      as for HalftoneType 16.
  70. %    Thresholds: a string or bytestring holding the thresholds,
  71. %      (Width x Height + Width2 x Height2) x BitsPerSample / 8 bytes,
  72. %      as for HalftoneType 16 except that the samples may be either
  73. %      8 or 16 bits wide.
  74. %    BitsPerSample: 8 or 16.
  75.  
  76. % Note that this HalftoneType never appears in halftone dictionaries given
  77. % to sethalftone, only as a component in those given to .sethalftone5,
  78. % so its numeric value can be chosen ad lib as long as it differs from the
  79. % other values that are legal in component dictionaries for .sethalftone5
  80. % (currently only 1 and 3).
  81.  
  82. /.makehalftone7 {    % <dict> <dict> <source> <Width> <Height>
  83.             %   (<Width2> <Height2> | null) <BPS> .makehalftone7
  84.             %   <setdict> <dict5> { .sethalftone5 }
  85.   8 dict begin
  86.   /HalftoneType 7 def
  87.   /BitsPerSample exch def
  88.   dup null eq {
  89.     pop 0
  90.   } {
  91.     /Height2 1 index def /Width2 2 index def mul
  92.   } ifelse 3 1 roll
  93.   /Height 1 index def
  94.   /Width 2 index def
  95.   mul add BitsPerSample 8 idiv mul .bigstring
  96.         % Stack: dict dict source str
  97.   dup type /stringtype eq { readstring } { .readbytestring } ifelse
  98.   not { /sethalftone load /rangecheck signalerror exit } if
  99.   readonly /Thresholds exch def
  100.   /TransferFunction .knownget { /TransferFunction exch def } if
  101.         % If the original Thresholds was a file, replace it with
  102.         % a new one.
  103.   dup /Thresholds get type /filetype eq {
  104.     dup /Thresholds [ Thresholds ] cvx 0 () .subfiledecode put
  105.   } if
  106.   mark /HalftoneType 5 /Default currentdict end .dicttomark
  107.   { .sethalftone5 }
  108. } bind def
  109.  
  110. /.bigstring {    % <size> .bigstring <string|bytestring>
  111.   dup 65400 gt { .bytestring } { string } ifelse
  112. } bind def
  113.  
  114. /.readbytestring {    % <source> <bytestring> .readbytestring
  115.             %   <bytestring> <filled>
  116.         % Note that since bytestrings don't implement getinterval,
  117.         % if filled is false, there is no way to tell how much
  118.         % was read.
  119.   true exch 0 1 2 index length 1 sub {
  120.         % Stack: source true str index
  121.     3 index read not { pop exch not exch exit } if
  122.     3 copy put pop pop
  123.   } for 3 -1 roll pop exch
  124. } bind def
  125.  
  126. /.sethalftone6 {    % <dict> <dict> .sethalftone6 <setdict> <dict5>
  127.             %   { .sethalftone5 }
  128.             % Keys: Width, Height, Thresholds, T'Function
  129.   dup /Thresholds get
  130.   1 index /Width get 2 index /Height get
  131.   null 8 .makehalftone7
  132. } bind def
  133.  
  134. /.sethalftone10 {    % <dict> <dict> .sethalftone10 <setdict> <dict5>
  135.             %   { .sethalftone5 }
  136.             % Keys: Xsquare, Ysquare, Thresholds, T'Function
  137.         % Note that this is the only one of these three HalftoneTypes
  138.         % that allows either a file or a string for Thresholds.
  139.   dup /Thresholds get dup type /stringtype eq { 0 () .subfiledecode } if
  140.   1 index /Xsquare get dup 3 index /Ysquare get dup
  141.   8 .makehalftone7
  142. } bind def
  143.  
  144. /.sethalftone16 {    % <dict> <dict> .sethalftone16 <setdict> <dict5>
  145.             %   { .sethalftone5 }
  146.             % Keys: Width, Height, Width2, Height2,
  147.             %   Thresholds, T'Function
  148.   dup /Thresholds get
  149.   1 index /Width get 2 index /Height get
  150.   3 index /Width2 .knownget {  % 2-rectangle case
  151.     4 index /Height2 get
  152.   } {            % 1-rectangle case
  153.     null
  154.   } ifelse 16 .makehalftone7
  155. } bind def
  156.  
  157. .halftonetypes begin
  158.   6 /.sethalftone6 load def
  159.   10 /.sethalftone10 load def
  160.   16 /.sethalftone16 load def
  161. end
  162.  
  163. % Redefine the halftone-setting operators to honor HalftoneMode.
  164. /setcolorscreen {
  165.   /HalftoneMode getuserparam 0 eq {
  166.     //setcolorscreen
  167.   } {
  168.     12 { pop } repeat .getdefaulthalftone
  169.     { //sethalftone }
  170.     { .setdefaulthalftone }
  171.     ifelse
  172.   } ifelse
  173. } odef
  174. /setscreen {
  175.   /HalftoneMode getuserparam 0 eq {
  176.     //setscreen
  177.   } {
  178.     pop pop pop .getdefaulthalftone
  179.     { //sethalftone }
  180.     { .setdefaulthalftone }
  181.     ifelse
  182.   } ifelse
  183. } odef
  184. /sethalftone {
  185.   /HalftoneMode getuserparam 0 eq {
  186.     //sethalftone
  187.   } {
  188.     pop .getdefaulthalftone
  189.     { //sethalftone }
  190.     { .setdefaulthalftone }
  191.     ifelse
  192.   } ifelse
  193. } odef
  194.  
  195. % ------ ImageTypes 3 and 4 (masked images) ------ %
  196.  
  197. .imagetypes
  198.   dup 3 /.image3 load put
  199.   dup 4 /.image4 load put
  200. % We also detect ImageType 103 here: it isn't worth making a separate file
  201. % just for this.
  202.   /.image3x where { pop dup 103 /.image3x load put } if
  203. pop
  204.  
  205. % ------ Functions ------ %
  206.  
  207. % Define the FunctionType resource category.
  208. /Generic /Category findresource dup maxlength 3 add dict .copydict begin
  209.   /InstanceType /integertype def
  210. /FunctionType currentdict end /Category defineresource pop
  211.  
  212. {0 2 3} { dup /FunctionType defineresource pop } forall
  213.  
  214. % ------ Smooth shading ------ %
  215.  
  216. % Define the ShadingType resource category.
  217. /Generic /Category findresource dup maxlength 3 add dict .copydict begin
  218.   /InstanceType /integertype def
  219. /ShadingType currentdict end /Category defineresource pop
  220.  
  221. systemdict /.shadingtypes mark        % not ll3dict
  222.   1 /.buildshading1 load
  223.   2 /.buildshading2 load
  224.   3 /.buildshading3 load
  225.   4 /.buildshading4 load
  226.   5 /.buildshading5 load
  227.   6 /.buildshading6 load
  228.   7 /.buildshading7 load
  229. .dicttomark put
  230.  
  231. systemdict /.reuseparamdict mark
  232.   /Intent 2
  233.   /AsyncRead false
  234.   /CloseSource true
  235. .dicttomark readonly put
  236. /.buildshading {    % <shadingdict> .buildshading <shading>
  237.         % Unfortunately, we always need to make the DataSource reusable,
  238.         % because if clipping is involved, even shfill may need to read
  239.         % the source data multiple times.  If it weren't for this,
  240.         % we would only need to create a reusable stream if the ultimate
  241.         % source of the data is a procedure (since the library can't
  242.         % suspend shading to do a procedure callout).
  243.   dup /DataSource .knownget {
  244.     dup type /filetype eq {
  245.       //.reuseparamdict /ReusableStreamDecode filter
  246.       .currentglobal 1 index gcheck .setglobal
  247.         % Stack: shdict rsdfile saveglobal
  248.       2 index dup length dict copy exch .setglobal
  249.       dup /DataSource 4 -1 roll put exch pop
  250.     } {
  251.       pop
  252.     } ifelse
  253.   } if
  254.     % The .buildshading operators use the current color space
  255.     % for ColorSpace.
  256.   dup /ShadingType get //.shadingtypes exch get
  257.   1 index /ColorSpace get setcolorspace exec
  258. } bind def
  259. systemdict /.reuseparamdict undef
  260.  
  261. /.buildpattern2 {    % <template> <matrix> .buildpattern2
  262.             %   <template> <pattern>
  263.     % We want to build the pattern without doing gsave/grestore,
  264.     % since we want it to load the CIE caches.
  265.   1 index /Shading get
  266.   mark currentcolor currentcolorspace
  267.   counttomark 4 add -3 roll mark 4 1 roll
  268.     % Stack: -mark- ..color.. cspace -mark- template matrix shadingdict
  269.   { .buildshading } stopped {
  270.     cleartomark setcolorspace setcolor pop stop
  271.   } if
  272.   .buildshadingpattern
  273.   3 -1 roll pop counttomark 1 add 2 roll setcolorspace setcolor pop
  274. } bind def
  275.  
  276. .patterntypes
  277.   2 /.buildpattern2 load put
  278.  
  279. /shfill {        % <shadingdict> shfill -
  280.     % Currently, .shfill requires that the color space
  281.     % in the pattern be the current color space.
  282.     % Disable overprintmode for shfill
  283.   dup gsave
  284.   0 .setoverprintmode { .buildshading .shfill } stopped
  285.   grestore { stop } if
  286.   pop
  287. } odef
  288.  
  289. % Establish an initial smoothness value that matches Adobe RIPs.
  290. 0.02 setsmoothness
  291.  
  292. % ------ DeviceN color space ------ %
  293.  
  294. %% Replace 1 (gs_ciecs3.ps)
  295. (gs_ciecs3.ps) runlibfile
  296.  
  297. %% Replace 1 (gs_devn.ps)
  298. (gs_devn.ps) runlibfile
  299.  
  300. % ------ Miscellaneous ------ %
  301.  
  302. % Make the setoverprintmode and currentoverprintmode operators visible (3015)
  303. % Because of the requirements of PDF, the .currentoverprintmode and
  304. % .setoverprintmode operators have integer parameters.  Thus wee need to
  305. % convert the Postscript bool parameters to integers.
  306. %
  307. /setoverprintmode         % bool setoverprint -
  308. {
  309.   { 1 } { 0 } ifelse        % convert bool to integer
  310.   //.setoverprintmode
  311. } odef
  312.  
  313. /currentoverprintmode         % - currentoverprintmode bool
  314. {
  315.   //.currentoverprintmode
  316.   0 ne                % convert integers to bool
  317. } odef
  318.  
  319. % Define additional user and system parameters.
  320. /HalftoneMode 0 .definepsuserparam
  321. /MaxSuperScreen 1016 .definepsuserparam
  322. pssystemparams begin        % read-only, so use .forcedef
  323.   /MaxDisplayAndSourceList 160000 .forcedef
  324. end
  325.  
  326. % Define the IdiomSet resource category.
  327. { /IdiomSet } {
  328.   /Generic /Category findresource dup maxlength 3 add dict .copydict begin
  329.     /InstanceType /dicttype def
  330.   currentdict end /Category defineresource pop
  331. } forall
  332.  
  333. /languagelevel 3 def
  334. % When running in LanguageLevel 3 mode, this interpreter is supposed to be
  335. % compatible with Adobe version 3010.
  336. /version (3010) readonly def
  337.  
  338. .setlanguagelevel
  339.  
  340. end            % ll3dict
  341.