blob: 79614ba8b1fd84e7ac80449dc99d33e62267ca5e (
plain)
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
|
userdict begin
% [PL] Domy/slne parametry | [E] Default parameters
% Odst/ep linii obci/ecia od | Cutting distance from the sheet
% arkusza (mm) | body (in mm)
/cropmarkdistance 3 def % [0..5]
% Rozmiar paser/ow (mm) | Cropmarks size (in mm)
/cropmarksize 10 def
% Rozmiar pask/ow barwnych (mm) | Color bar size (in mm)
/barsize 5 def
/colorbars 1 def
% 0 - bez paskow barwnych | 0 - without color steps and bars
% (np. do monta/zu) | (e.g. for plate composition)
% 1 - komplet pask/ow barwnych | 1 - complete set of color steps and bars
% 2 - tylko ze skalami kolor/ow | 2 - color steps only
% 3 - tylko z brudzikami | 3 - color bars only
%
/mirror 0 def
% 0 - normalny widok | 0 - normal view
% 1 - lustrzane odbicie | 1 - mirror
%
% opis na marginesie | marginal label
/marglabel 1 def % 0 -- off, 1 -- on
% dodatkowe przesuni/ecie strony | additional page offset
/xoffset 0 def
/yoffset 0 def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/h_size {hsize} def /v_size {vsize} def
statusdict /setpageparams known {
statusdict /orisetpageparams statusdict /setpageparams get put
statusdict /setpageparams {4 2 roll CMdim 2 mul add x_offset add 4 1 roll
CMdim 2 mul add y_offset add 4 1 roll orisetpageparams} put
}{
statusdict /setpage known {
statusdict /orisetpage statusdict /setpage get put
statusdict /setpage {3 1 roll CMdim 2 mul add x_offset add 3 1 roll
CMdim 2 mul add y_offset add 3 1 roll orisetpage} put
} if
} ifelse
%
/mm{25.4 div 72 mul}def
/bd{bind def}def
/_y{exch}def
/origin{0 0 moveto}def
/T{translate}def
/K{setcmykcolor}def
/box{_y dup 0 rlineto _y 0 _y rlineto neg 0 rlineto closepath}bd
/_distance {cropmarkdistance mm} def
/CMdim {cropmarksize mm} def
/boxdim {barsize mm} def
/dist{_distance 5 mm le{_distance}{5 mm}ifelse}def
/x_offset {xoffset mm} def
/y_offset {yoffset mm} def
/cmdim{dist neg CMdim add}def
/cmhalf{cmdim 2 div}def
/horver{h_size v_size le}def
/setsep 0 def
%
/rm {
0 cmhalf moveto cmdim cmhalf lineto stroke
cmhalf 0 moveto cmhalf cmdim lineto stroke
cmhalf cmhalf cmdim 3 div 0 360 arc stroke
} bd
/cm {
0 CMdim moveto cmdim CMdim lineto stroke
CMdim 0 moveto CMdim cmdim lineto stroke
rm} bd
/cmarks{ cm
h_size CMdim 2 mul add 0 T -1 1 scale cm
0 v_size CMdim 2 mul add T 1 -1 scale cm
CMdim 2 mul h_size add 0 T -1 1 scale cm
} bd
%
/halfmarks{gsave
0 v_size 2 div CMdim 2 div add dist 2 div add T rm
h_size cmdim add dist 2 mul add 0 T rm
h_size 2 div neg cmhalf sub dist sub
v_size 2 div cmdim 2 div add dist add T rm
0 v_size neg cmdim sub dist 2 mul sub T rm
grestore}bd
%
/boxfill{boxdim boxdim box fill}bd
/_step{boxfill horver{0 boxdim}{boxdim 0} ifelse T}bd
/contour{origin
horver{boxdim boxdim 11 mul}{boxdim 11 mul boxdim} ifelse
box stroke}bd
/csteps{
setsep 1 eq {
gsave 0 .1 1 {origin setgray _step} for grestore
0 setgray contour % /cbar {0 setgray} bd
}{
setsep 0 eq {
gsave 1 .1 neg 0 {origin 0 _y 0 0 _y 0 _y K _step} for grestore
1 0 0 0 K contour % /cbar {1 0 0 0 K} bd
}{ % /cbar {1 setgray} bd
} ifelse
} ifelse
} bd
/cbar {setsep 1 eq {0 setgray}{setsep 0 eq {1 0 0 0 K}{1 setgray
} ifelse} ifelse} bd
%
/msteps{setsep 2 eq {gsave 0 .1 1 {origin setgray _step} for grestore
0 setgray contour % /mbar {0 setgray} bd
}{setsep 0 eq {
gsave 1 .1 neg 0 {origin 0 _y 0 _y 0 0 _y K _step} for grestore
0 1 0 0 K contour %/mbar {0 1 0 0 K} bd
}{ % /mbar {1 setgray} bd
} ifelse
} ifelse } bd
/mbar {setsep 2 eq {0 setgray}{setsep 0 eq {0 1 0 0 K}{1 setgray
} ifelse} ifelse} bd
%
/ysteps{setsep 3 eq {gsave 0 .1 1 {origin setgray _step} for grestore
0 setgray contour % /ybar {0 setgray} bd
}{setsep 0 eq {
gsave 1 .1 neg 0 {origin 0 _y 0 _y 0 _y 0 K _step} for grestore
0 0 1 0 K contour % /ybar {0 0 1 0 K} bd
}{ % /ybar {1 setgray} bd
} ifelse
} ifelse } bd
/ybar {setsep 3 eq {0 setgray}{setsep 0 eq {0 0 1 0 K}{1 setgray
} ifelse} ifelse} bd
%
/gsteps{setsep 4 eq {gsave 0 .1 1 {origin setgray _step} for grestore
0 setgray contour % /gbar {0 setgray} bd
}{setsep 0 eq {
gsave 0 .1 1 {origin setgray _step} for grestore
0 setgray contour % /gbar {0 setgray} bd
}{ % /gbar {1 setgray} bd
} ifelse
} ifelse } bd
/gbar {setsep 4 eq {0 setgray}{setsep 0 eq {0 setgray}{1 setgray
} ifelse} ifelse} bd
%
/colorsteps{gsave
horver {CMdim boxdim sub dist sub CMdim boxdim add}
{CMdim boxdim add CMdim boxdim sub dist sub} ifelse T gsteps
horver {0 boxdim 12 mul}{boxdim 12 mul 0} ifelse T ysteps
grestore gsave
horver {CMdim boxdim sub dist sub v_size CMdim add boxdim 12 mul sub}
{h_size CMdim add boxdim 12 mul sub CMdim boxdim sub dist sub}
ifelse T csteps
horver {0 boxdim 12 mul neg}{boxdim 12 mul neg 0} ifelse T msteps
grestore} bd
%
/colorbar {gsave
horver {
h_size CMdim add dist add CMdim T
/begbar {boxdim 4 boxdim mul v_size CMdim 2 mul sub} bd
/endbar {for 0 boxdim T}bd /mt {0 exch moveto} bd
}{
CMdim boxdim add v_size CMdim add dist add T
/begbar {boxdim 4 boxdim mul h_size CMdim 2 mul sub} bd
/endbar {for boxdim 0 T} bd /mt {exch 0 moveto} bd
} ifelse
begbar {mt cbar boxfill} endbar begbar {mt mbar boxfill} endbar
begbar {mt ybar boxfill} endbar begbar {mt gbar boxfill} endbar
grestore} bd
%
/color_sep -1 def
/label_s{
marglabel 1 eq {
/Helvetica findfont 8 scalefont setfont
(Page (PS/TeX): ) show page_num_ps 20 string cvs show
( / ) show page_num_tex 20 string cvs show
color_sep 0 ge {
color_sep 0 eq {(, \ \ Plate CYAN ) show} if
color_sep 1 eq {(, \ \ Plate MAGENTA ) show} if
color_sep 2 eq {(, \ \ Plate YELLOW ) show} if
color_sep 3 eq {(, \ \ Plate BLACK ) show} if
}{(, \ \ COMPOSITE) show} ifelse
} if
} bd
/page_number{gsave
horver {CMdim 2 mul 10 moveto label_s}
{10 CMdim 2 mul moveto 90 rotate label_s} ifelse
grestore} def
%
/_mirror {mirror 1 eq {-1 1 scale h_size neg 0 T} if}bd
%
/full {.1 setlinewidth
1 colorbars eq {colorsteps colorbar}{
2 colorbars eq {colorsteps}{
3 colorbars eq {colorbar}{} ifelse
} ifelse
} ifelse
1 1 1 1 setcmykcolor page_number cmarks halfmarks} bd
%
/save_page_num{pstack 2 copy 1 add
/page_num_ps exch def /page_num_tex exch def}def
%
[/bop-hook where {pop /bop-hook load aload pop} if
{x_offset y_offset T
gsave save_page_num full grestore
CMdim CMdim T _mirror} aload pop] cvx
/bop-hook exch def
end
|
