diff options
| author | Hans Hagen <pragma@wxs.nl> | 2021-01-24 16:24:42 +0100 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-01-24 16:24:42 +0100 |
| commit | c80fc815f3b6db50716f9fe56f86ce068728221f (patch) | |
| tree | b8cb7a598c23a4758c48dd88be55ef849c8c76a8 /metapost | |
| parent | dee0d939a50007dbe52f7035d67c01a78289e585 (diff) | |
| download | context-c80fc815f3b6db50716f9fe56f86ce068728221f.tar.gz | |
2021-01-24 16:05:00
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mpxl/mp-lmtx.mpxl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/metapost/context/base/mpxl/mp-lmtx.mpxl b/metapost/context/base/mpxl/mp-lmtx.mpxl index cfa169316..57794e544 100644 --- a/metapost/context/base/mpxl/mp-lmtx.mpxl +++ b/metapost/context/base/mpxl/mp-lmtx.mpxl @@ -2225,8 +2225,12 @@ newscriptindex mfid_registerglyph ; mfid_registerglyph := scriptindex "registe vardef registercomposedglyph (expr u) (suffix snippets) = save llx, lly, urx, ury ; -snippets[u] := snippets[u] shifted (-xpart llcorner snippets[u], 0) ; llx := xpart llcorner snippets[u] ; + if llx <> 0 : + % this should be an option or we need a lsb + snippets[u] := snippets[u] shifted (-llx, 0) ; + llx := 0; + fi ; lly := ypart llcorner snippets[u] ; urx := xpart urcorner snippets[u] ; ury := ypart urcorner snippets[u] ; |