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
|
%D \module
%D [ file=page-spr,
%D version=2002.11.11,
%D title=\CONTEXT\ Page Macros,
%D subtitle=Spreading,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
\writestatus{loading}{Context Page Macros / Spreading}
% This module is experimental and not yet official!
\unprotect
\newbox\spreadbox
\newif \ifinspread
\chardef\showspreadmode=1
% beware, ugly overload, to be redone
\def\normalsettextpagecontent#1#2#3% #2 and #3 will disappear
{\setbox#1\hbox
{\vbox to \textheight
{\offinterlineskip
\freezetextwidth
\hsize\textwidth % local variant of \sethsize
\boxmaxdepth\maxdepth
\noindent % content can be < \hsize
\dopagecontents#2#3}}%
\dp#1\zeropoint
\setbox#1\hbox to \makeupwidth
{\ifinspread
\ifvoid\spreadbox
\global\setbox\spreadbox\box#1%
\copy\spreadbox\hss % left page
\else
% prevent duplicate writes in normal run
\ifarrangingpages \else \ifcase\showspreadmode
\global\setbox\spreadbox\null
\wd\spreadbox\makeupwidth
\ht\spreadbox\textheight
\fi \fi
\hss\box\spreadbox % right page
\fi
\else
\hss\box#1\hss % never change the \hss's
\fi}}
\def\doflushspread
{\ifinspread \ifvoid\spreadbox\else
% this page will be discarded later
\null \page
\fi \fi }
\def\startspread
{\bgroup
\ifdubbelzijdig
\page[\v!left]%
%\setsystemmode{spread}%
\inspreadtrue
\scratchdimen2\textwidth
\advance\scratchdimen2\backspace
\expanded{\setuplayout[\c!textwidth=\the\scratchdimen]}%
\def\startspread{\bgroup\let\stopspread\egroup}%
\let\stopspread\dostopspread
\else
\let\stopspread\egroup
\fi}
\let\stopspread\relax
\def\dostopspread
{\kern\zeropoint\page
\inspreadfalse
\setuplayout[\c!textwidth=\textwidth]
\page[\v!left]
\egroup}
\protect \endinput
% texexec --arr --pdf test
%
% \setuplayout[width=middle]
% \setuppapersize[A4][A3,landscape]
% \setuppagenumbering[alternative=doublesided]
% \setuparranging[2UP]
%
% \starttext
%
% \dorecurse{3}{\input tufte }
%
% \startspread
% \dorecurse{10}{\input tufte }
% \stopspread
%
% \dorecurse{3}{\input tufte }
%
% \stoptext
|
