/usr/share/ghostscript/9.22/Resource/Init/gs_dps2.ps is in libgs9-common 9.22~dfsg+1-0ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 | % Copyright (C) 2001-2012 Artifex Software, Inc.
% 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.
%
% Refer to licensing information at http://www.artifex.com or contact
% Artifex Software, Inc., 7 Mt. Lassen Drive - Suite A-134, San Rafael,
% CA 94903, U.S.A., +1(415)492-9861, for further information.
%
% 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 <dict>
{ 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 { % <dict> <type> <keys> <keysRGBV>
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:
% <setdict> <htdict> <<proc>> <setdict'> <htdict'> <sethalftoneproc>
% 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 { % <dict> 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 % <freq> <angle> <dict> .fix...screen
% <freq> <angle> <dict> <dict'>
{ dup dup /HalftoneType get 1 eq
{ dup wcheck not { dup length dict .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 % <ignore*2> <dict> setscreen -
{ dup type /dicttype eq
{ .fixsethalftonescreen sethalftone pop pop pop }
{ //setscreen }
ifelse
} .bind odef
/setcolorscreen % <ignore*11> <dict> 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 % <dict> .fix... <freq> <angle> <proc>
{ 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 <dict>
{ .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 <dict>)*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 { % <index> <value> 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 { % <index> 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 { % <index> 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- ? ? ? ? <size>
mark 0 0 0 0 /MaxUPathItem getuserparam
} odef
/setucacheparams { % -mark- ... <size> 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
|