diff options
author | Hans Hagen <pragma@wxs.nl> | 2019-12-02 18:57:49 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2019-12-02 18:57:49 +0100 |
commit | 4af09333cc14015426fc193878c1a35157207518 (patch) | |
tree | 51b21fab1f487bc3cf8a62a050291c79d3599f52 /tex/context/base/mkiv/driv-shp.lua | |
parent | 273b29a84706a7cefb56963300a7f54f3ffe147f (diff) | |
download | context-4af09333cc14015426fc193878c1a35157207518.tar.gz |
2019-12-02 18:38:00
Diffstat (limited to 'tex/context/base/mkiv/driv-shp.lua')
-rw-r--r-- | tex/context/base/mkiv/driv-shp.lua | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/tex/context/base/mkiv/driv-shp.lua b/tex/context/base/mkiv/driv-shp.lua index 0137fb203..7340fe523 100644 --- a/tex/context/base/mkiv/driv-shp.lua +++ b/tex/context/base/mkiv/driv-shp.lua @@ -364,12 +364,13 @@ flush_character = function(current,font,char,factor,vfcommands,pos_h,pos_v,pos_r local width, height, depth, naturalwidth if current then - width, height, depth, factor = getwhd(current,true) - naturalwidth = width - if factor ~= 0 then - -- width = (1.0 + factor/1000000.0) * width - width = width + width * factor/1000000.0 - -- width = width + width * 0.000001 * factor + naturalwidth, height, depth, factor = getwhd(current,true) + if factor == 0 then + width = naturalwidth + else + -- width = (1.0 + factor/1000000.0) * naturalwidth + width = naturalwidth + naturalwidth * factor/1000000.0 + -- width = naturalwidth + naturalwidth * 0.000001 * factor end else width = data.width or 0 |