% Copyright (C) 1990, 1996, 1997, 1998, 2000 Aladdin Enterprises. All rights reserved. % % This software is provided AS-IS with no warranty, either express or % implied. % % This software is distributed under license and may not be copied, % modified or distributed except as expressly authorized under the terms % of the license contained in the file LICENSE in this distribution. % % For more information about licensing, please refer to % http://www.ghostscript.com/licensing/. For information on % commercial licensing, go to http://www.artifex.com/licensing/ or % contact Artifex Software, Inc., 101 Lucas Valley Road #110, % San Rafael, CA 94903, U.S.A., +1(415)492-9861. % $Id: gs_dps2.ps 8954 2008-08-08 04:22:38Z ray $ % Initialization file for basic Display PostScript functions % that are also included in Level 2. level2dict begin % ------ Errors ------ % % These errors are only defined in Level 2 and DPS. { /configurationerror /undefinedresource /unregistered } { .registererror } forall % ------ Halftones ------ % /.makestackdict { { counttomark -1 roll } forall .dicttomark } bind def /currenthalftone % - currenthalftone { mark .currenthalftone { { exch pop } % halftone { /HalftoneType 1 % screen { /Frequency /Angle /SpotFunction } .makestackdict readonly } { /HalftoneType 2 % colorscreen { /RedFrequency /RedAngle /RedSpotFunction /GreenFrequency /GreenAngle /GreenSpotFunction /BlueFrequency /BlueAngle /BlueSpotFunction /GrayFrequency /GrayAngle /GraySpotFunction } .makestackdict readonly } } exch get exec } odef % Define sethalftone so it converts types 1-4 to type 5. /.makehalftoneRGBV { % 4 -1 roll exch { 1 index exch get exch } forall 15 1 roll 14 -2 roll mark 15 1 roll { /Gray /Blue /Green /Red } { % stack: v0 v1 v2 type keys comp mark 2 index 0 get 8 -1 roll 4 index 1 get 9 -1 roll 6 index 2 get 10 -1 roll % stack: type keys comp mark k0 v0 k1 v1 k2 v2 /HalftoneType 10 index .dicttomark counttomark 2 roll } forall pop pop /Default 1 index .dicttomark exch pop { .sethalftone5 } } bind def % The value of each entry in .halftonetypes is a procedure: % <> % This allows us to use these procedures both for actually implementing % sethalftone and for converting subsidiary dictionaries of HalftoneType 5 % halftones. systemdict begin 15 dict /.halftonetypes 1 index def begin 1 { mark exch /Default exch .dicttomark { .sethalftone5 } } bind def 2 { 1 { /Frequency /Angle /SpotFunction } { /RedFrequency /RedAngle /RedSpotFunction /GreenFrequency /GreenAngle /GreenSpotFunction /BlueFrequency /BlueAngle /BlueSpotFunction /GrayFrequency /GrayAngle /GraySpotFunction } .makehalftoneRGBV } bind def 3 { mark exch /Default exch .dicttomark { .sethalftone5 } } bind def 4 { 3 { /Width /Height /Thresholds } { /RedWidth /RedHeight /RedThresholds /GreenWidth /GreenHeight /GreenThresholds /BlueWidth /BlueHeight /BlueThresholds /GrayWidth /GrayHeight /GrayThresholds } .makehalftoneRGBV } bind def 5 { pop dup length dict copy mark 1 index { % Even HalftoneType 5 dictionaries have entries other than % subsidiary halftone dictionaries. dup type /dicttype ne { 0 } { dup /HalftoneType .knownget not { 0 } if } ifelse dup 5 gt { % Stack: dict mark ... keyN dictN httypeN % Assume that all HalftoneTypes > 5 convert to 5. 1 index 3 1 roll //.halftonetypes exch get exec pop /Default get % Stack: dict mark ... keyN setdict'N htdict'N counttomark 1 add index 3 index 4 -1 roll put } { pop } ifelse } forall .dicttomark { .sethalftone5 } } bind def end end /sethalftone { % sethalftone - % We must create the new dictionary in the same VM as the % operand; otherwise, invalidaccess errors may occur. .currentglobal 1 .argindex dup gcheck .setglobal dup //.halftonetypes 1 index /HalftoneType get dup type /integertype ne { /sethalftone .systemvar /typecheck signalerror } if .knownget not { /sethalftone .systemvar /rangecheck signalerror } if exec exec .setglobal pop } .bind odef % Redefine setscreen and setcolorscreen to recognize halftone dictionaries, % and to insert the Frequency and Angle into Type 1 halftones, per % Adobe TN 5085. /.fixsethalftonescreen % .fix...screen % { dup dup /HalftoneType get 1 eq { dup wcheck not { dup length .copydict } if dup /Frequency 5 index put dup /Angle 4 index put languagelevel 3 ge { dup /AccurateScreens dup getuserparam put } if } if } bind def /setscreen % setscreen - { dup type /dicttype eq { .fixsethalftonescreen sethalftone pop pop pop } { //setscreen } ifelse } .bind odef /setcolorscreen % setcolorscreen - { dup type /dicttype eq { .fixsethalftonescreen sethalftone 12 { pop } repeat } { //setcolorscreen } ifelse } .bind odef % Redefine currentscreen and currentcolorscreen to extract the Frequency % and Angle from Type 1 halftones, per Adobe TN 5085. /.fixcurrenthalftonescreen % .fix... { dup /HalftoneType get 1 eq { dup /Frequency get 1 index /Angle get } { 60.0 0.0 } % Adobe returns these as reals ifelse 3 2 roll } bind def /currentscreen % - currentscreen 60 0 { .currenthalftone { { .fixcurrenthalftonescreen } % halftone { } % screen { 12 3 roll 9 { pop } repeat % colorscreen dup type /dicttype eq { .fixcurrenthalftonescreen } if } } exch get exec } odef /currentcolorscreen % - currentcolorscreen (60 0 )*4 { .currenthalftone { { .fixcurrenthalftonescreen 3 copy 6 copy } % halftone { % screen % The procedure might not be readable.... dup rcheck { dup length array copy cvx } if 3 copy 6 copy } { } % colorscreen } exch get exec } odef % ------ User objects ------ % /.UserObjects { .userdict /UserObjects } odef % In order to get proper error recovery behavior, we need to be careful % not to pop any operands from the stack until we're done. % The code below faithfully duplicates the apparent array-growing % behavior of Adobe interpreters. /defineuserobject { % defineuserobject - 1 index 65535 gt { % .localvmarray throws limitcheck but CET 31-02 wants rangecheck /defineuserobject .systemvar /rangecheck signalerror } if .UserObjects .knownget { length dup 3 .argindex le { % Stack: index value len 2 index eq { 1 index 2 mul } { 1 index 1 add } ifelse .localvmarray .UserObjects get 1 index copy pop .UserObjects 3 -1 roll put } { pop } ifelse } { .UserObjects 3 .argindex 1 add 10 .max .localvmarray put } ifelse .UserObjects get 2 .argindex 2 index put pop pop } odef /execuserobject { % execuserobject - dup type /integertype ne { % Adobe validates the argument before accessing UserObjects - CET 31-03 /execuserobject .systemvar /typecheck signalerror } if .UserObjects get 1 .argindex get exch pop exec } odef /undefineuserobject { % undefineuserobject - dup type /integertype ne { % Adobe validates the argument before accessing UserObjects - CET 31-11 /undefineuserobject .systemvar /typecheck signalerror } if .UserObjects get 1 .argindex //null put pop } odef % ------ Cache control ------ % % Dummy definitions for cache control operators /ucachestatus { % - ucachestatus -mark- ? ? ? ? mark 0 0 0 0 /MaxUPathItem getuserparam } odef /setucacheparams { % -mark- ... setucacheparams - % Provoke an appropriate error if needed. counttomark 1 lt { () 0 get } if dup 0 or /MaxUPathItem getuserparam .max 1 dict dup /MaxUPathItem 4 -1 roll put setuserparams cleartomark } odef end % level2dict