From c80fc815f3b6db50716f9fe56f86ce068728221f Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Sun, 24 Jan 2021 16:24:42 +0100 Subject: 2021-01-24 16:05:00 --- metapost/context/base/mpxl/mp-lmtx.mpxl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'metapost') 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] ; -- cgit v1.2.3