diff options
| author | Hans Hagen <pragma@wxs.nl> | 2004-01-13 00:00:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2004-01-13 00:00:00 +0100 |
| commit | 0b61aa2fbf3667649962132eadfb1d78eab0be41 (patch) | |
| tree | 781defc3254dcfbcb708a2c46e33ea9c0495c54d /tex/context/base/page-imp.tex | |
| parent | 722c56251cf3c197a4a8474aa7024265ba284ec0 (diff) | |
| download | context-0b61aa2fbf3667649962132eadfb1d78eab0be41.tar.gz | |
stable 2004.01.13
Diffstat (limited to 'tex/context/base/page-imp.tex')
| -rw-r--r-- | tex/context/base/page-imp.tex | 33 |
1 files changed, 19 insertions, 14 deletions
diff --git a/tex/context/base/page-imp.tex b/tex/context/base/page-imp.tex index 64eb21949..29501a833 100644 --- a/tex/context/base/page-imp.tex +++ b/tex/context/base/page-imp.tex @@ -157,8 +157,9 @@ {\forgetall \offinterlineskip \mindermeldingen - \vskip-1in - \hskip-1in + \scratchdimen-1in + \vskip\scratchdimen + \hskip\scratchdimen \hbox % \setbox0=\box.. is nicer {\setbox0\hbox{#1}% just in case there are objects there \setbox\scratchbox\hbox @@ -244,6 +245,9 @@ \s!reset=>\global\arrangingpagesfalse, \s!unknown=>\checkinstalledpagearrangement\commalistelement]% % no \s!default=> we can have aaa,,bbb + \ifx\handlearrangedpage\undefined + \global\arrangingpagesfalse + \fi \doifcommonelse{#1}{90,270,\v!geroteerd} {\swapmacros\horizontalcutmarks\verticalcutmarks}{}% ugly solution \setuppapersize @@ -315,9 +319,9 @@ {\dosetuparrangement{2}{1}{8}{3}{2}% \pusharrangedpageSIXTEENFOUR\poparrangedpagesAtoH\relax} -\installpagearrangement 4SIDE +\installpagearrangement 2TOPSIDE {\dosetuparrangement{1}{2}{4}{2}{3}% - \pusharrangedpageFOURSIDE\poparrangedpagesFOURSIDE\handlearrangedpageTOP} + \pusharrangedpageTWOTOPSIDE\poparrangedpagesTWOTOPSIDE\handlearrangedpageTOP} % \def\filluparrangedpages % beware: \realpageno is 1 ahead % {\ifarrangingpages @@ -605,17 +609,18 @@ \dp#1\zeropoint \vbox{\box#1}}} -\def\poparrangedpagesFOURSIDE - {\bgroup - \gdef\arrangedpageN{2}% - \poparrangedpagesTWO - \let\arrangedpageA\arrangedpageC - \let\arrangedpageB\arrangedpageD - \gdef\arrangedpageN{2}% - \poparrangedpagesTWO - \egroup} +\def\poparrangedpagesTWOTOPSIDE + {\ifnum\arrangedpageN>\zerocount + \bgroup + \gdef\arrangedpageN{2}\poparrangedpagesTWO + \let\arrangedpageA\arrangedpageC + \let\arrangedpageB\arrangedpageD + \gdef\arrangedpageN{2}\poparrangedpagesTWO + \doglobal\newcounter\arrangedpageN + \egroup + \fi} -\def\pusharrangedpageFOURSIDE#1% +\def\pusharrangedpageTWOTOPSIDE#1% {\doglobal\increment\arrangedpageN \reportarrangedpage\arrangedpageN \ifcase\arrangedpageN |