diff options
| author | Hans Hagen <pragma@wxs.nl> | 2017-04-27 01:41:25 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2017-04-27 01:41:25 +0200 |
| commit | 762562da00d0ec1d50e6d3c2a701156ab42e6d71 (patch) | |
| tree | 2dc664caa951963a393b0a2a9c9c85d1db6b8e10 /tex/context/base/mkiv/trac-vis.lua | |
| parent | f2a20e191bf71094aa21d37dee2ecd2f804dbc56 (diff) | |
| download | context-762562da00d0ec1d50e6d3c2a701156ab42e6d71.tar.gz | |
2017-04-27 01:06:00
Diffstat (limited to 'tex/context/base/mkiv/trac-vis.lua')
| -rw-r--r-- | tex/context/base/mkiv/trac-vis.lua | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tex/context/base/mkiv/trac-vis.lua b/tex/context/base/mkiv/trac-vis.lua index 1e7165abd..5d98bc24f 100644 --- a/tex/context/base/mkiv/trac-vis.lua +++ b/tex/context/base/mkiv/trac-vis.lua @@ -575,7 +575,8 @@ local ruledbox do local baseline, baseskip if dp ~= 0 and ht ~= 0 then if wd > 20*linewidth then - baseline = b_cache[size] + local targetsize = wd - size + baseline = b_cache[targetsize] if not baseline then -- due to an optimized leader color/transparency we need to set the glue node in order -- to trigger this mechanism @@ -585,8 +586,8 @@ local ruledbox do setleader(baseline,leader) setsubtype(baseline,cleaders_code) setlisttransparency(baseline,c_text) - baseline = hpack_nodes(baseline,wd-size) - b_cache[size] = baseline + baseline = hpack_nodes(baseline,targetsize) + b_cache[targetsize] = baseline end baseline = copy_list(baseline) baseskip = new_kern(-wd+linewidth) |