diff options
author | Hans Hagen <pragma@wxs.nl> | 2021-09-13 10:02:31 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-09-13 10:02:31 +0200 |
commit | a8c525cd14d77b94662021671ef8eb62d5a7fe50 (patch) | |
tree | de834dfbe0fbdf277ca206d59896cacc4f9840c9 /tex/context/base/mkxl/lpdf-img.lmt | |
parent | 0b177b615d126b85d1399fba3cc55bb0d3ddfbba (diff) | |
download | context-a8c525cd14d77b94662021671ef8eb62d5a7fe50.tar.gz |
2021-09-13 09:40:00
Diffstat (limited to 'tex/context/base/mkxl/lpdf-img.lmt')
-rw-r--r-- | tex/context/base/mkxl/lpdf-img.lmt | 67 |
1 files changed, 35 insertions, 32 deletions
diff --git a/tex/context/base/mkxl/lpdf-img.lmt b/tex/context/base/mkxl/lpdf-img.lmt index ecd154bbf..8e7427ae6 100644 --- a/tex/context/base/mkxl/lpdf-img.lmt +++ b/tex/context/base/mkxl/lpdf-img.lmt @@ -1239,38 +1239,41 @@ do s = - s end if s > 0 then - if s == 1 then - for i=1,y do - local r = d[i] - for j=1,x do - n = n + 1 ; t[n] = chars[r[j]] - end - end - elseif s == 2 then - for i=1,y do - local r = d[i] - for j=1,x do - local c = r[j] - n = n + 1 ; t[n] = chars[c[1]] - n = n + 1 ; t[n] = chars[c[2]] - n = n + 1 ; t[n] = chars[c[3]] - -- n = n + 1 ; t[n] = char(c[1],c[2],c[3]) -- test this - end - end - elseif s == 3 then - for i=1,y do - local r = d[i] - for j=1,x do - local c = r[j] - n = n + 1 ; t[n] = chars[c[1]] - n = n + 1 ; t[n] = chars[c[2]] - n = n + 1 ; t[n] = chars[c[3]] - n = n + 1 ; t[n] = chars[c[4]] - -- n = n + 1 ; t[n] = char(c[1],c[2],c[3],c[4]) -- test this - end - end - end - return concat(t) + -- if true then + return string.packrowscolumns(d) + -- end + -- if s == 1 then + -- for i=1,y do + -- local r = d[i] + -- for j=1,x do + -- n = n + 1 ; t[n] = chars[r[j]] + -- end + -- end + -- elseif s == 2 then + -- for i=1,y do + -- local r = d[i] + -- for j=1,x do + -- local c = r[j] + -- n = n + 1 ; t[n] = chars[c[1]] + -- n = n + 1 ; t[n] = chars[c[2]] + -- n = n + 1 ; t[n] = chars[c[3]] + -- -- n = n + 1 ; t[n] = char(c[1],c[2],c[3]) -- test this + -- end + -- end + -- elseif s == 3 then + -- for i=1,y do + -- local r = d[i] + -- for j=1,x do + -- local c = r[j] + -- n = n + 1 ; t[n] = chars[c[1]] + -- n = n + 1 ; t[n] = chars[c[2]] + -- n = n + 1 ; t[n] = chars[c[3]] + -- n = n + 1 ; t[n] = chars[c[4]] + -- -- n = n + 1 ; t[n] = char(c[1],c[2],c[3],c[4]) -- test this + -- end + -- end + -- end + -- return concat(t) else local z = d[0] and 0 or 1 if s == -1 then |