SourceBrowser

1%D \module
2%D   [       file=page-mrk,
3%D        version=2011.05.23, % moved from page-lay
4%D          title=\CONTEXT\ Page Macros,
5%D       subtitle=Cutmarks and Colorbars,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\writestatus
{
loading
}{
ConTeXt
 Page
 Macros
 /
 Cutmarks
 and
 Colorbars
}
15
16\unprotect
17
18%D This module implements curmarks and depends on \METAPOST.
19%D
20%D \starttyping
21%D \setuplayout[marking=on,location=middle]
22%D \setuplayout[marking=page,location=middle]
23%D \setuplayout[marking=empty,location=middle]
24%D \setuplayout[marking={color,page},location=middle]
25%D \setuplayout[marking={one,page},location=middle]
26%D \setuplayout[marking={two,page},location=middle]
27%D \setuplayout[marking={four,page},location=middle]
28%D \stoptyping
29
30\def
\pagecutmarklength
 {
5
mm
}
31\def
\pagecutmarkoffset
 {
3
mm
}
 % slightly larger than before, and now a fixed size
32\def
\pagecutmarkmargin
{
1
0
cm
}
33
34% maybe all these should be global
35
36\newconditional
\c_page_marks_add_more_color
37\newconditional
\c_page_marks_add_more_marking
38\newconditional
\c_page_marks_add_more_lines
39\newconditional
\c_page_marks_add_page_lines
40\newconditional
\c_page_marks_add_more_number
41
42\newcount
\c_page_marks_max
43\newcount
\c_page_marks_nx
44\newcount
\c_page_marks_ny
45
46\startuniqueMPgraphic
{
print:color
}
{
w,h,l,o
}
47    loadmodule
 "
crop
"
 ;
48    page_marks_add_color
(
\MPvar
 w
,
\MPvar
 h
,
\MPvar
 l
,
\MPvar
 o
)
 ;
49\stopuniqueMPgraphic
50
51\startuniqueMPgraphic
{
print:marking
}
{
w,h,l,o
}
52    loadmodule
 "
crop
"
 ;
53    page_marks_add_marking
(
\MPvar
 w
,
\MPvar
 h
,
\MPvar
 l
,
\MPvar
 o
)
 ;
54\stopuniqueMPgraphic
55
56\startuniqueMPgraphic
{
print:lines
}
{
w,h,l,o,x,y
}
57    loadmodule
 "
crop
"
 ;
58    page_marks_add_lines
(
\MPvar
 w
,
\MPvar
 h
,
\MPvar
 l
,
\MPvar
 o
,
\MPvar
 x
,
\MPvar
 y
,
59        \ifconditional
\c_page_marks_add_page_lines
 tru
\else
 fals
\fi
 e
)
 ;
60\stopuniqueMPgraphic
61
62\startuseMPgraphic
{
print:number
}
{
w,h,l,o,n
}
63    loadmodule
 "
crop
"
 ;
64    page_marks_add_number
(
\MPvar
 w
,
\MPvar
 h
,
\MPvar
 l
,
\MPvar
 o
,
\MPvar
 n
)
 ;
65\stopuseMPgraphic
66
67\def
\page_marks_add_color
68  {
\setlayoutcomponentattribute
{
\v!print
:
\v!color
}
%
69   \setbox
\scratchbox
\hpack
 \layoutcomponentboxattribute
\bgroup
70     \uniqueMPgraphic
71       {
print:color
}
%
72       {
w
=
\the
\scratchwidth
,
h
=
\the
\scratchheight
,
%
73        l
=
\pagecutmarklength
,
o
=
\pagecutmarkoffset
}
%
74   \egroup
75   \wd
\scratchbox\scratchwidth
\ht
\scratchbox\scratchheight
\dp
\scratchbox\scratchdepth
76   \hskip
-
\scratchwidth
\box
\scratchbox
}
77
78\def
\page_marks_add_marking
79  {
\setlayoutcomponentattribute
{
\v!print
:
\v!marking
}
%
80   \setbox
\scratchbox
\hpack
 \layoutcomponentboxattribute
\bgroup
81     \uniqueMPgraphic
82       {
print:marking
}
%
83       {
w
=
\the
\scratchwidth
,
h
=
\the
\scratchheight
,
%
84        l
=
\pagecutmarklength
,
o
=
\pagecutmarkoffset
}
%
85   \egroup
86   \wd
\scratchbox\scratchwidth
\ht
\scratchbox\scratchheight
\dp
\scratchbox\scratchdepth
87   \hskip
-
\scratchwidth
\box
\scratchbox
}
88
89\def
\page_marks_add_lines
90  {
\setlayoutcomponentattribute
{
\v!print
:
\v!lines
}
%
91   \setbox
\scratchbox
\hpack
 \layoutcomponentboxattribute
\bgroup
92     \uniqueMPgraphic
93       {
print:lines
}
%
94       {
w
=
\the
\scratchwidth
,
h
=
\the
\scratchheight
,
%
95        l
=
\pagecutmarklength
,
o
=
\pagecutmarkoffset
,
%
96        x
=
\the
\c_page_marks_nx
,
y
=
\the
\c_page_marks_ny
}
%
97   \egroup
98   \wd
\scratchbox\scratchwidth
\ht
\scratchbox\scratchheight
\dp
\scratchbox\scratchdepth
99   \hskip
-
\scratchwidth
\box
\scratchbox
}
100
101\def
\page_marks_add_number
102  {
\setlayoutcomponentattribute
{
\v!print
:
\v!number
}
%
103   \setbox
\scratchbox
\hpack
 \layoutcomponentboxattribute
\bgroup
104     \useMPgraphic
105       {
print:number
}
%
106       {
w
=
\the
\scratchwidth
 ,
h
=
\the
\scratchheight
,
%
107        l
=
\pagecutmarklength
,
o
=
\pagecutmarkoffset
,
%
108        n
=
\number\ifcase
\arrangeno
\realpageno
\else
\arrangeno
\fi
}
%
109   \egroup
110   \wd
\scratchbox\scratchwidth
\ht
\scratchbox\scratchheight
\dp
\scratchbox\scratchdepth
111   \hskip
-
\scratchwidth
\box
\scratchbox
}
112
113\def
\page_marks_add_page_indeed
#
1
%
114  {
\setbox
#
1
\hpack
\bgroup
115     \resetvisualizers
116     \let
\objectoffset
\pagecutmarkmargin
117    %\infofont
118     \scratchwidth
 \wd
#
1
%
119     \scratchheight
\ht
#
1
%
120     \scratchdepth
 \dp
#
1
%
121     \box
#
1
\relax
122     \page_marks_add_lines
123   \egroup
}
124
125\def
\page_marks_add_more_indeed
#
1
%
126  {
\setbox
#
1
\hbox
\bgroup
127     \resetvisualizers
128     \let
\objectoffset
\pagecutmarkmargin
129     \infofont
130     \scratchwidth
 \wd
#
1
% these can move out
131     \scratchheight
\ht
#
1
%
132     \scratchdepth
 \dp
#
1
%
133     \box
#
1
\relax
134     \ifconditional
\c_page_marks_add_more_color
135       \page_marks_add_color
136     \fi
137     \ifconditional
\c_page_marks_add_more_marking
138       \page_marks_add_marking
139     \fi
140     \ifconditional
\c_page_marks_add_more_lines
141       \page_marks_add_lines
142     \fi
143     \ifconditional
\c_page_marks_add_more_number
144       \page_marks_add_number
145     \fi
146     \global\advance
\c_page_marks_max
\minusone
147     \ifnum
\c_page_marks_max
>
\zerocount
\else
148       \glet
\page_marks_add_more
\gobbleoneargument
149       \glet
\page_marks_add_page
\gobbleoneargument
150     \fi
151   \egroup
}
152
153\let
\page_marks_add_page
\gobbleoneargument
154\let
\page_marks_add_more
\gobbleoneargument
155
156\installcorenamespace
{
layoutmarking
}
157
158\unexpanded
\def
\installpagecutmark
#
1
#
2
%
159  {
\setvalue
{
\??layoutmarking
#
1
}{
#
2
}}
160
161% \installpagecutmark\v!off
162%   {}
163
164% \installpagecutmark\v!text
165%   {\settrue\c_page_marks_add_more_lines
166%    \settrue\c_page_marks_add_more_number
167%    \let\pagecutmarksymbol\empty
168%    \let\pagecutmarkbottomtext\extrapagecutmarkbottomtext}
169
170\installpagecutmark
\v!on
171  {
%settrue\c_page_marks_add_page_lines
172   \settrue
\c_page_marks_add_more_lines
173   \settrue
\c_page_marks_add_more_number
}
174
175\installpagecutmark
\v!page
176  {
\settrue
\c_page_marks_add_page_lines
177   \settrue
\c_page_marks_add_more_lines
178   \settrue
\c_page_marks_add_more_number
}
179
180\installpagecutmark
\v!empty
181  {
%settrue\c_page_marks_add_page_lines
182   \settrue
\c_page_marks_add_more_lines
}
183
184\installpagecutmark
\v!color
185  {
%settrue\c_page_marks_add_page_lines
186   \settrue
\c_page_marks_add_more_lines
187   \settrue
\c_page_marks_add_more_color
188   \settrue
\c_page_marks_add_more_marking
189   \settrue
\c_page_marks_add_more_number
}
190
191\installpagecutmark
\v!one
 {
\global
\c_page_marks_max
\plusone
}
  % first page
192\installpagecutmark
\v!two
 {
\global
\c_page_marks_max
\plustwo
}
  % first two pages
193\installpagecutmark
\v!four
{
\global
\c_page_marks_max
\plusfour
}
 % first four pages
194
195\unexpanded
\def
\page_marks_set
#
1
%
196  {
\begincsname
\??layoutmarking
#
1
\endcsname
}
197
198\appendtoks
199    \setfalse
\c_page_marks_add_page_lines
200    \setfalse
\c_page_marks_add_more_color
201    \setfalse
\c_page_marks_add_more_marking
202    \setfalse
\c_page_marks_add_more_lines
203    \setfalse
\c_page_marks_add_more_number
204    \global
\c_page_marks_max
\maxcount
205    \rawprocesscommacommand
[
\layoutparameter
\c!marking
]
\page_marks_set
206    \ifnum
\c_page_marks_max
<
\maxcount
207      \ifconditional
\c_page_marks_add_page_lines
  \else
208      \ifconditional
\c_page_marks_add_more_color
  \else
209      \ifconditional
\c_page_marks_add_more_marking
\else
210      \ifconditional
\c_page_marks_add_more_lines
  \else
211      \ifconditional
\c_page_marks_add_more_number
 \else
212        \settrue
\c_page_marks_add_page_lines
213        \settrue
\c_page_marks_add_more_number
214      \fi\fi\fi\fi\fi
215    \fi
216    \ifconditional
\c_page_marks_add_page_lines
217      \let
\page_marks_add_page
\page_marks_add_page_indeed
218    \else
219      \let
\page_marks_add_page
\gobbleoneargument
220    \fi
221    % we can get a double set of (overlayed) lines .. needs to be redone (too many objects anyway)
222    \ifconditional
\c_page_marks_add_more_lines
223      \let
\page_marks_add_more
\page_marks_add_more_indeed
224    \else
\ifconditional
\c_page_marks_add_more_color
225      \let
\page_marks_add_more
\page_marks_add_more_indeed
226    \else
\ifconditional
\c_page_marks_add_more_marking
227      \let
\page_marks_add_more
\page_marks_add_more_indeed
228    \else
\ifconditional
\c_page_marks_add_more_number
229      \let
\page_marks_add_more
\page_marks_add_more_indeed
230    \else
231      \let
\page_marks_add_more
\gobbleoneargument
232    \fi\fi\fi\fi
233\to
 \everysetuplayout
234
235\setuplayout
236  [
\c!marking
=
\v!off
]
237
238\protect
 \endinput
239
Source Browser ?
