| 2 |
- |
1 |
% Copyright (C) 1999, 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_trap.ps,v 1.6 2002/06/02 12:03:28 mpsuzuki Exp $
|
|
|
17 |
% PostScript LanguageLevel 3 in-RIP trapping support.
|
|
|
18 |
|
|
|
19 |
ll3dict begin
|
|
|
20 |
|
|
|
21 |
% We need LanguageLevel 2 or higher in order to have setuserparams and
|
|
|
22 |
% defineresource.
|
|
|
23 |
languagelevel dup 2 .max .setlanguagelevel
|
|
|
24 |
|
|
|
25 |
% ------ Trapping ------ %
|
|
|
26 |
|
|
|
27 |
% The PostScript-level trapping parameters are maintained in userdict,
|
|
|
28 |
% and explicitly reinstalled upon restore.
|
|
|
29 |
|
|
|
30 |
/Trapping mark
|
|
|
31 |
|
|
|
32 |
/settrapparams dup { % <paramdict> settrapparams -
|
|
|
33 |
/.trapparams .uservar dup length dict .copydict
|
|
|
34 |
dup 2 index {
|
|
|
35 |
% Stack: paramdict olddict olddict key value
|
|
|
36 |
2 index 2 index known { put dup } { pop pop } ifelse
|
|
|
37 |
} forall pop
|
|
|
38 |
dup .settrapparams % Let the operator check parameter validity.
|
|
|
39 |
.userdict /.trapparams 3 -1 roll put pop
|
|
|
40 |
} bind .makeoperator
|
|
|
41 |
|
|
|
42 |
/.copyparams { % <obj> .copyparams <obj'>
|
|
|
43 |
dup type /dicttype eq {
|
|
|
44 |
dup length dict .copydict
|
|
|
45 |
dup {
|
|
|
46 |
.copyparams 3 copy put pop pop
|
|
|
47 |
} forall
|
|
|
48 |
} {
|
|
|
49 |
dup type /arraytype eq {
|
|
|
50 |
[ exch { .copyparams } forall ]
|
|
|
51 |
} if
|
|
|
52 |
} ifelse
|
|
|
53 |
} odef
|
|
|
54 |
|
|
|
55 |
/currenttrapparams dup { % - currenttrapparams <paramdict>
|
|
|
56 |
/.trapparams .uservar .copyparams
|
|
|
57 |
} bind .makeoperator
|
|
|
58 |
|
|
|
59 |
/settrapzone dup { % - settrapzone -
|
|
|
60 |
% ****** DUMMY ******
|
|
|
61 |
newpath
|
|
|
62 |
} bind .makeoperator
|
|
|
63 |
|
|
|
64 |
% Define initial (dummy) trapping parameters.
|
|
|
65 |
% These values are mostly complete guesses.
|
|
|
66 |
userdict /.trapparams mark
|
|
|
67 |
/BlackColorLimit 1.0
|
|
|
68 |
/BlackDensityLimit 1.0
|
|
|
69 |
/BlackWidth 1.0
|
|
|
70 |
/ColorantZoneDetails 0 dict
|
|
|
71 |
/Enabled true
|
|
|
72 |
/HalftoneName null
|
|
|
73 |
/ImageInternalTrapping false
|
|
|
74 |
/ImagemaskTrapping true
|
|
|
75 |
/ImageResolution 1
|
|
|
76 |
/ImageToObjectTrapping true
|
|
|
77 |
/ImageTrapPlacement /Center
|
|
|
78 |
/SlidingTrapLimit 1.0
|
|
|
79 |
/StepLimit 1.0
|
|
|
80 |
/TrapColorScaling 0.0
|
|
|
81 |
/TrapSetName null
|
|
|
82 |
/TrapWidth 1.0
|
|
|
83 |
.dicttomark readonly put
|
|
|
84 |
|
|
|
85 |
.dicttomark /ProcSet defineresource pop
|
|
|
86 |
|
|
|
87 |
% Define the InkParams and TrapParams resource categories.
|
|
|
88 |
{ /InkParams /TrapParams } {
|
|
|
89 |
/Generic /Category findresource dup maxlength 3 add dict .copydict begin
|
|
|
90 |
/InstanceType /dicttype def
|
|
|
91 |
currentdict end /Category defineresource pop
|
|
|
92 |
} forall
|
|
|
93 |
|
|
|
94 |
% Define the TrappingType resource category.
|
|
|
95 |
/Generic /Category findresource dup maxlength 3 add dict .copydict begin
|
|
|
96 |
/InstanceType /integertype def
|
|
|
97 |
/TrappingType currentdict end /Category defineresource pop
|
|
|
98 |
|
|
|
99 |
{1001} { dup /TrappingType defineresource pop } forall
|
|
|
100 |
|
|
|
101 |
.setlanguagelevel
|
|
|
102 |
|
|
|
103 |
end % ll3dict
|