home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / gs_ll3.ps < prev    next >
Text File  |  2000-03-29  |  15KB  |  468 lines
  1. %    Copyright (C) 1997, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: gs_ll3.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % Initialization file for PostScript LanguageLevel 3 functions.
  20. % This file must be loaded after gs_lev2.ps and gs_res.ps.
  21. % These definitions go into ll3dict or various ProcSets.
  22. % NOTE: the interpreter creates ll3dict.
  23.  
  24. ll3dict begin
  25.  
  26. % We need LanguageLevel 2 or higher in order to have setuserparams and
  27. % defineresource.
  28. languagelevel dup 2 max .setlanguagelevel
  29.  
  30. % ------ Idiom recognition ------ %
  31.  
  32. /IdiomRecognition false .definepsuserparam
  33.  
  34. % Modify `bind' to apply idiom recognition afterwards.
  35. /.bindscratch 128 string def
  36. % Do the right thing if NOBIND or DELAYBIND is in effect.
  37. % Note also that since this definition of `bind' may get bound in,
  38. % it has to function properly even at lower language levels,
  39. % where IdiomRecognition may not be defined.
  40. /bind load /.bind load ne
  41. /bind {        % <proc> bind <proc'>
  42.   //.bind currentuserparams /IdiomRecognition
  43.   .knownget not { false } if {
  44.     (*) {
  45.       /IdiomSet findresource
  46.       false exch {
  47.         % Stack: proc false dummykey [template substitute]
  48.     exch pop dup 1 get exch 0 get
  49.         % Stack: proc false substitute template
  50.     3 index .eqproc {
  51.       2 index gcheck 1 index gcheck not and {
  52.         pop
  53.       } {
  54.         3 -1 roll pop exch not exit
  55.       } ifelse
  56.     } {
  57.       pop
  58.     } ifelse
  59.       } forall { exit } if
  60.     } //.bindscratch /IdiomSet resourceforall
  61.   } if
  62. } odef
  63. { /.bind /bind load def
  64.   /bind { } def
  65. } if
  66. currentdict /.bindscratch .undef
  67.  
  68. % ------ HalftoneTypes 6, 10, 16 and HalftoneMode ------ %
  69.  
  70. % This code depends on an internal HalftoneType 7 with the following keys:
  71. %    Width, Height, Width2, Height2, TransferFunction:
  72. %      as for HalftoneType 16.
  73. %    Thresholds: a string or bytestring holding the thresholds,
  74. %      (Width x Height + Width2 x Height2) x BitsPerSample / 8 bytes,
  75. %      as for HalftoneType 16 except that the samples may be either
  76. %      8 or 16 bits wide.
  77. %    BitsPerSample: 8 or 16.
  78.  
  79. % Note that this HalftoneType never appears in halftone dictionaries given
  80. % to sethalftone, only as a component in those given to .sethalftone5,
  81. % so its numeric value can be chosen ad lib as long as it differs from the
  82. % other values that are legal in component dictionaries for .sethalftone5
  83. % (currently only 1 and 3).
  84.  
  85. /.makehalftone7 {    % <dict> <dict> <source> <Width> <Height>
  86.             %   (<Width2> <Height2> | null) <BPS> .makehalftone7
  87.             %   <setdict> <dict5> { .sethalftone5 }
  88.   8 dict begin
  89.   /HalftoneType 7 def
  90.   /BitsPerSample exch def
  91.   dup null eq {
  92.     pop 0
  93.   } {
  94.     /Height2 1 index def /Width2 2 index def mul
  95.   } ifelse 3 1 roll
  96.   /Height 1 index def
  97.   /Width 2 index def
  98.   mul add BitsPerSample 8 idiv mul .bigstring
  99.         % Stack: dict dict source str
  100.   dup type /stringtype eq { readstring } { .readbytestring } ifelse
  101.   not { /sethalftone load /rangecheck signalerror exit } if
  102.   readonly /Thresholds exch def
  103.   /TransferFunction .knownget { /TransferFunction exch def } if
  104.         % If the original Thresholds was a file, replace it with
  105.         % a new one.
  106.   dup /Thresholds get type /filetype eq {
  107.     dup /Thresholds [ Thresholds ] cvx 0 () .subfiledecode put
  108.   } if
  109.   mark /HalftoneType 5 /Default currentdict end .dicttomark
  110.   { .sethalftone5 }
  111. } bind def
  112.  
  113. /.bigstring {    % <size> .bigstring <string|bytestring>
  114.   dup 65400 gt { .bytestring } { string } ifelse
  115. } bind def
  116.  
  117. /.readbytestring {    % <source> <bytestring> .readbytestring
  118.             %   <bytestring> <filled>
  119.         % Note that since bytestrings don't implement getinterval,
  120.         % if filled is false, there is no way to tell how much
  121.         % was read.
  122.   true exch 0 1 2 index length 1 sub {
  123.         % Stack: source true str index
  124.     3 index read not { pop exch not exch exit } if
  125.     3 copy put pop pop
  126.   } for 3 -1 roll pop exch
  127. } bind def
  128.  
  129. /.sethalftone6 {    % <dict> <dict> .sethalftone6 <setdict> <dict5>
  130.             %   { .sethalftone5 }
  131.             % Keys: Width, Height, Thresholds, T'Function
  132.   dup /Thresholds get
  133.   1 index /Width get 2 index /Height get
  134.   null 8 .makehalftone7
  135. } bind def
  136.  
  137. /.sethalftone10 {    % <dict> <dict> .sethalftone10 <setdict> <dict5>
  138.             %   { .sethalftone5 }
  139.             % Keys: Xsquare, Ysquare, Thresholds, T'Function
  140.         % Note that this is the only one of these three HalftoneTypes
  141.         % that allows either a file or a string for Thresholds.
  142.   dup /Thresholds get dup type /stringtype eq { 0 () .subfiledecode } if
  143.   1 index /Xsquare get dup 3 index /Ysquare get dup
  144.   8 .makehalftone7
  145. } bind def
  146.  
  147. /.sethalftone16 {    % <dict> <dict> .sethalftone16 <setdict> <dict5>
  148.             %   { .sethalftone5 }
  149.             % Keys: Width, Height, Width2, Height2,
  150.             %   Thresholds, T'Function
  151.   dup /Thresholds get
  152.   1 index /Width get 2 index /Height get
  153.   3 index /Width2 .knownget {  % 2-rectangle case
  154.     4 index /Height2 get
  155.   } {            % 1-rectangle case
  156.     null
  157.   } ifelse 16 .makehalftone7
  158. } bind def
  159.  
  160. .halftonetypes begin
  161.   6 /.sethalftone6 load def
  162.   10 /.sethalftone10 load def
  163.   16 /.sethalftone16 load def
  164. end
  165.  
  166. % Redefine the halftone-setting operators to honor HalftoneMode.
  167. /setcolorscreen {
  168.   /HalftoneMode getuserparam 0 eq {
  169.     //setcolorscreen
  170.   } {
  171.     12 { pop } repeat .getdefaulthalftone
  172.     { //sethalftone }
  173.     { .setdefaulthalftone }
  174.     ifelse
  175.   } ifelse
  176. } odef
  177. /setscreen {
  178.   /HalftoneMode getuserparam 0 eq {
  179.     //setscreen
  180.   } {
  181.     pop pop pop .getdefaulthalftone
  182.     { //sethalftone }
  183.     { .setdefaulthalftone }
  184.     ifelse
  185.   } ifelse
  186. } odef
  187. /sethalftone {
  188.   /HalftoneMode getuserparam 0 eq {
  189.     //sethalftone
  190.   } {
  191.     pop .getdefaulthalftone
  192.     { //sethalftone }
  193.     { .setdefaulthalftone }
  194.     ifelse
  195.   } ifelse
  196. } odef
  197.  
  198. % ------ ImageTypes 3 and 4 (masked images) ------ %
  199.  
  200. .imagetypes
  201.   dup 3 /.image3 load put
  202.   4 /.image4 load put
  203.  
  204. % ------ Functions ------ %
  205.  
  206. % Define the FunctionType resource category.
  207. /Generic /Category findresource dup maxlength 3 add dict .copydict begin
  208.   /InstanceType /integertype def
  209. /FunctionType currentdict end /Category defineresource pop
  210.  
  211. {0 2 3} { dup /FunctionType defineresource pop } forall
  212.  
  213. % ------ Smooth shading ------ %
  214.  
  215. % Define the ShadingType resource category.
  216. /Generic /Category findresource dup maxlength 3 add dict .copydict begin
  217.   /InstanceType /integertype def
  218. /ShadingType currentdict end /Category defineresource pop
  219.  
  220. systemdict /.shadingtypes mark        % not ll3dict
  221.   1 /.buildshading1 load
  222.   2 /.buildshading2 load
  223.   3 /.buildshading3 load
  224.   4 /.buildshading4 load
  225.   5 /.buildshading5 load
  226.   6 /.buildshading6 load
  227.   7 /.buildshading7 load
  228. .dicttomark put
  229.  
  230. systemdict /.reuseparamdict mark
  231.   /Intent 2
  232.   /AsyncRead false
  233.   /CloseSource true
  234. .dicttomark readonly put
  235. /.buildshading {    % <shadingdict> .buildshading <shading>
  236.     % The current implementation of shadings can't deal with
  237.     % procedure-based DataSource.
  238.   dup /DataSource .knownget {
  239.     dup type /filetype eq {
  240.       dup .isprocfilter {
  241.     //.reuseparamdict /ReusableStreamDecode filter
  242.     .currentglobal 1 index gcheck .setglobal
  243.         % Stack: shdict rsdfile saveglobal
  244.     2 index dup length dict copy exch .setglobal
  245.     dup /DataSource 4 -1 roll put exch pop
  246.       } {
  247.     pop
  248.       } ifelse
  249.     } {
  250.       pop
  251.     } ifelse
  252.   } if
  253.     % The .buildshading operators use the current color space
  254.     % for ColorSpace.
  255.   dup /ShadingType get //.shadingtypes exch get
  256.   1 index /ColorSpace get setcolorspace exec
  257. } bind def
  258. systemdict /.reuseparamdict undef
  259.  
  260. /.buildpattern2 {    % <template> <matrix> .buildpattern2
  261.             %   <template> <pattern>
  262.     % We want to build the pattern without doing gsave/grestore,
  263.     % since we want it to load the CIE caches.
  264.   1 index /Shading get
  265.   mark currentcolor currentcolorspace
  266.   counttomark 4 add -3 roll mark 4 1 roll
  267.     % Stack: -mark- ..color.. cspace -mark- template matrix shadingdict
  268.   { .buildshading } stopped {
  269.     cleartomark setcolorspace setcolor pop stop
  270.   } if
  271.   .buildshadingpattern
  272.   3 -1 roll pop counttomark 1 add 2 roll setcolorspace setcolor pop
  273. } bind def
  274.  
  275. .patterntypes
  276.   2 /.buildpattern2 load put
  277.  
  278. /shfill {        % <shadingdict> shfill -
  279.     % Currently, .shfill requires that the color space
  280.     % in the pattern be the current color space.
  281.   dup gsave { .buildshading .shfill } stopped grestore { stop } if
  282.   pop
  283. } odef
  284.  
  285. % Establish an initial smoothness value that matches Adobe RIPs.
  286. 0.02 setsmoothness
  287.  
  288. % ------ ReusableStreamDecode filter ------ %
  289.  
  290. /.reusablestreamdecode {    % <source> <dict> .reusablestreamdecode <file>
  291.                 % <source> .reusablestreamdecode <file>
  292.         % Collect the filter parameters.
  293.   dup type /dicttype eq { 2 copy } { dup 0 dict } ifelse
  294.   dup .rsdparams
  295.         % Construct the filter pipeline.
  296.         % The very first filter should use the value of CloseSource
  297.         % from the RSD dictionary; all the others should have
  298.         % CloseSource = true.
  299.         % Stack: source dict filters parms
  300.   2 index /CloseSource .knownget not { false } if 5 -1 roll
  301.         % Stack: dict filters parms CloseSource source
  302.   0 1 5 index length 1 sub {
  303.     4 index 1 index get
  304.         % Stack: dict filters parms CloseSource source index filtname
  305.     4 index null eq {
  306.       0 dict
  307.     } {
  308.       4 index 2 index get dup null eq { pop } if
  309.     } ifelse
  310.     3 -1 roll pop exch filter
  311.     exch pop true exch        % set CloseSource for further filters
  312.   } for
  313.         % See if we can create the filter directly.
  314.         % Stack: dict filters parms CloseSource file
  315.   null 2 index { .reusablestream } .internalstopped {
  316.     pop pop
  317.         % No luck.  Read the entire contents of the stream now.
  318.     dup type /filetype ne {
  319.         % Make a stream from a procedure or string data source.
  320.       0 () .subfiledecode
  321.     } if
  322.     10 dict exch {
  323.         % Stack: dict filters parms CloseSource contdict file
  324.       dup 1000 string readstring
  325.       3 index dup length 4 -1 roll put not { exit } if
  326.     } loop pop
  327.         % Concatenate the contents into one big string.
  328.         % Stack: dict filters parms CloseSource contdict
  329.     0 1 index { length exch pop add } forall
  330.     .bigstring exch {
  331.         % Stack: dict filters parms CloseSource string index substring
  332.       exch 1000 mul exch 2 index 3 1 roll putinterval
  333.     } forall
  334.         % Now create the stream on the string.
  335.     null 2 index .reusablestream
  336.   } if
  337.         % We created the stream successfully: clean up.
  338.   4 { exch pop } repeat
  339.   1 index type /dicttype eq { exch pop } if exch pop
  340. } odef
  341.  
  342. filterdict /ReusableStreamDecode /.reusablestreamdecode load put
  343.  
  344. % ------ UseCIEColor ------ %
  345.  
  346. % The library maintains and detects the UseCIEColor device parameter,
  347. % but it doesn't have access to the resource dictionaries.  We also
  348. % want color space substitution to work in systems without a PostScript
  349. % interpreter.  Therefore, we eagerly inform the library of changes in
  350. % the (effective) ColorSpace category that might affect the operation of
  351. % UseCIEColor.  We must notice the following events:
  352. %    1) defineresource and undefineresource of the Default ColorSpaces.
  353. %    2) restore.
  354. %    3) Changes in current VM, which cause a different set of resources
  355. %    to become visible.
  356. % #1 is rare.  #2 is handled in C code.  If checking the ColorSpace
  357. % category on #3 turns out to be expensive, we can cache more information
  358. % about whether these operations actually affect UseCIEColor.
  359.  
  360. % This operator implements color space substitution in the library:
  361. %    <index> <bool> .setsubstitutecolorspace -
  362. % <bool> = true means substitute the current color space for the one given
  363. % by <index>; <bool> = false means stop substituting.  Substitution is not
  364. % affected by grestore/setgstate, but it is affected by restore.
  365.  
  366. % ColorSpace defineresource and undefineresource for the Default keys
  367. % call .definedefaultcs and .undefinedefaultcs.  See gs_res.ps.
  368.  
  369. /.useciecolorkeydict mark
  370.   /UseCIEColor null
  371. .dicttomark readonly def
  372. /.definedefaultcs {    % <index> <value> .definedefaultcs -
  373.   currentcolorspace
  374.     % Temporarily disable color substitution, in case the substitute
  375.     % color space is or mentions a color space that is currently
  376.     %  being substituted.
  377.   currentdevice //.useciecolorkeydict .getdeviceparams exch pop exch pop
  378.   mark 5 -2 roll
  379.     % Stack: cspace UseCIEColor mark index value
  380.    { setcolorspace true .setsubstitutecolorspace }
  381.   stopped counttomark 1 add 1 roll cleartomark
  382.     % Stack: cspace UseCIEColor stopped?
  383.   3 1 roll
  384.   currentdevice null true mark /UseCIEColor 6 -1 roll .putdeviceparams pop pop
  385.   setcolorspace { stop } if
  386. } bind def
  387. currentdict /.useciecolorkeydict undef
  388.  
  389. /.undefinedefaultcs {    % <index> .undefinedefaultcs -
  390.   false .setsubstitutecolorspace
  391. } bind def
  392.  
  393. /.setdefaultcs {    % <index> <value|null> .setdefaultcs -
  394.   dup null eq { pop .undefinedefaultcs } { .definedefaultcs } ifelse
  395. } bind def
  396.  
  397. /.getdefaultcs {    % <key> .getdefaultcs <value|null>
  398.   .GetInstance { 0 get } { null } ifelse
  399. } bind def
  400.  
  401. /.setglobal {        % <bool> .setglobal -
  402.   dup .currentglobal ne {
  403.     % We only want to change substitutions for color spaces
  404.     % whose definitions are actually changing.
  405.     /ColorSpace /Category findresource begin
  406.     % If there are no local definitions of the Default keys,
  407.     % changing VM can't affect the definition of any resource.
  408.     .LocalDefaults {
  409.       /DefaultGray .getdefaultcs
  410.       /DefaultRGB .getdefaultcs
  411.       /DefaultCMYK .getdefaultcs
  412.       end
  413.       3 index .setglobal
  414.       /ColorSpace /Category findresource begin
  415.       /DefaultGray .getdefaultcs
  416.       /DefaultRGB .getdefaultcs
  417.       /DefaultCMYK .getdefaultcs
  418.       end
  419.             % Stack: bool oldgray oldrgb oldcmyk
  420.             %   newgray newrgb newcmyk
  421.       dup 4 index ne { 2 exch .setdefaultcs } { pop } ifelse
  422.       dup 4 index ne { 1 exch .setdefaultcs } { pop } ifelse
  423.       dup 4 index ne { 0 exch .setdefaultcs } { pop } ifelse
  424.       pop pop pop pop
  425.     } {
  426.       end .setglobal
  427.     } ifelse
  428.   } {
  429.     .setglobal
  430.   } ifelse
  431. } .bind odef        % bind in .setglobal
  432.  
  433. % ------ DeviceN color space ------ %
  434.  
  435. % This isn't quite right, because the ColorSpaceFamily resource will exist
  436. % even with languagelevel < 3, but it's close enough.
  437.  
  438. /.setdevicenspace where {
  439.   pop colorspacedict /DeviceN {
  440.     dup 2 get setcolorspace dup .setdevicenspace
  441.   } bind put
  442. } if
  443.  
  444. % ------ Miscellaneous ------ %
  445.  
  446. % Define additional user and system parameters.
  447. /HalftoneMode 0 .definepsuserparam
  448. /MaxSuperScreen 1016 .definepsuserparam
  449. pssystemparams begin        % read-only, so use .forcedef
  450.   /MaxDisplayAndSourceList 160000 .forcedef
  451. end
  452.  
  453. % Define the IdiomSet resource category.
  454. { /IdiomSet } {
  455.   /Generic /Category findresource dup maxlength 3 add dict .copydict begin
  456.     /InstanceType /dicttype def
  457.   currentdict end /Category defineresource pop
  458. } forall
  459.  
  460. /languagelevel 3 def
  461. % When running in LanguageLevel 3 mode, this interpreter is supposed to be
  462. % compatible with Adobe version 3010.
  463. /version (3010) readonly def
  464.  
  465. .setlanguagelevel
  466.  
  467. end            % ll3dict
  468.