page-smp.mkiv /size: 1438 b    last modification: 2020-07-01 14:35
1
%D \module
2
%D [ file=page-smp, % was: core-mul, page-mul
3
%D version=1998.03.15,
4
%D title=\CONTEXT\ Page Macros,
5
%D subtitle=Simple Multi Column Output,
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
\unprotect
15 16
%D The old one:
17 18
\definemixedcolumns
19
[
\v!columns
]
20
% compatible with columns default :
21
[
\c!balance
=
\v!yes
,
22
\c!blank
=
{
\v!line
,
\v!fixed
}
]
23 24
\unexpanded
\def
\setupcolumns
25
{
\setupmixedcolumns
[
\v!columns
]
}
26 27
%D This will be replaced by mixed box.
28 29
\unexpanded
\def
\startsimplecolumns
30
{
\dosingleempty
\page_simple_start
}
31 32
\def
\page_simple_start
[#
1
]
%
33
{
\bgroup
34
\setsimplecolumnshsize
[#
1
]
%
35
\nopenalties
36
\setbox
\scratchbox
\vbox
\bgroup
37
\forgetall
}
% \blank[\v!disable]
38 39
\unexpanded
\def
\stopsimplecolumns
40
{
\removebottomthings
41
\egroup
42
\rigidcolumnbalance
\scratchbox
43
\egroup
}
44 45
\unexpanded
\def
\setsimplecolumnshsize
[#
1
]
%
46
{
\getdummyparameters
47
[
\c!width
=
\hsize
,
48
\c!distance
=
1
.
5
\bodyfontsize
,
49
\c!n
=
2
,
50
\c!lines
=
0
,
51
#
1
]
%
52
\edef
\rigidcolumnlines
53
{
\directdummyparameter
\c!lines
}
%
54
\setrigidcolumnhsize
55
{
\directdummyparameter
\c!width
}
%
56
{
\directdummyparameter
\c!distance
}
%
57
{
\directdummyparameter
\c!n
}}
58 59
\protect
\endinput
60