luat-bwc.lua /size: 1145 b    last modification: 2020-07-01 14:35
1
if
not
modules
then
modules
=
{
}
end
modules
[
'
luat-bwc
'
]
=
{
2
version
=
1
.
001
,
3
comment
=
"
companion to luat-lib.mkiv
"
,
4
author
=
"
Hans Hagen, PRAGMA-ADE, Hasselt NL
"
,
5
copyright
=
"
PRAGMA ADE / ConTeXt Development Team
"
,
6
license
=
"
see context related readme files
"
7
}
8 9
-- backward compatibility
10 11
-- if not tex.wd then
12
--
13
-- local box = tex.box
14
--
15
-- local wd = { } setmetatable(wd, {
16
-- __index = function(t,k) local bk = box[k] return bk and bk.width or 0 end,
17
-- __newindex = function(t,k,v) local bk = box[k] if bk then bk.width = v end end,
18
-- } )
19
--
20
-- local ht = { } setmetatable(ht, {
21
-- __index = function(t,k) local bk = box[k] return bk and bk.height or 0 end,
22
-- __newindex = function(t,k,v) local bk = box[k] if bk then bk.height = v end end,
23
-- } )
24
--
25
-- local dp = { } setmetatable(dp, {
26
-- __index = function(t,k) local bk = box[k] return bk and bk.depth or 0 end,
27
-- __newindex = function(t,k,v) local bk = box[k] if bk then bk.depth = v end end,
28
-- } )
29
--
30
-- tex.wd, tex.ht, tex.dp = wd, ht, dp
31
--
32
-- end
33