From d6c24a529d922ac67d2a30595c52b6b9547dce77 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Wed, 26 Sep 2018 15:15:30 +0200
Subject: 2018-09-26 14:34:00

---
 tex/context/base/mkiv/page-smp.mkiv | 59 +++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 tex/context/base/mkiv/page-smp.mkiv

(limited to 'tex/context/base/mkiv/page-smp.mkiv')

diff --git a/tex/context/base/mkiv/page-smp.mkiv b/tex/context/base/mkiv/page-smp.mkiv
new file mode 100644
index 000000000..2711c9944
--- /dev/null
+++ b/tex/context/base/mkiv/page-smp.mkiv
@@ -0,0 +1,59 @@
+%D \module
+%D   [       file=page-smp,  % was: core-mul, page-mul
+%D        version=1998.03.15,
+%D          title=\CONTEXT\ Page Macros,
+%D       subtitle=Simple Multi Column Output,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\unprotect
+
+%D The old one:
+
+\definemixedcolumns
+  [\v!columns]
+  % compatible with columns default :
+  [\c!balance=\v!yes,
+   \c!blank={\v!line,\v!fixed}]
+
+\unexpanded\def\setupcolumns
+  {\setupmixedcolumns[\v!columns]}
+
+%D This will be replaced by mixed box.
+
+\unexpanded\def\startsimplecolumns
+  {\dosingleempty\page_simple_start}
+
+\def\page_simple_start[#1]%
+  {\bgroup
+   \setsimplecolumnshsize[#1]%
+   \nopenalties
+   \setbox\scratchbox\vbox\bgroup
+   \forgetall} % \blank[\v!disable]
+
+\unexpanded\def\stopsimplecolumns
+  {\removebottomthings
+   \egroup
+   \rigidcolumnbalance\scratchbox
+   \egroup}
+
+\unexpanded\def\setsimplecolumnshsize[#1]%
+  {\getdummyparameters
+     [\c!width=\hsize,
+      \c!distance=1.5\bodyfontsize,
+      \c!n=2,
+      \c!lines=0,
+      #1]%
+   \edef\rigidcolumnlines
+     {\directdummyparameter\c!lines}%
+   \setrigidcolumnhsize
+     {\directdummyparameter\c!width}%
+     {\directdummyparameter\c!distance}%
+     {\directdummyparameter\c!n}}
+
+\protect \endinput
-- 
cgit v1.2.3