diff options
Diffstat (limited to 'Master/texmf-dist/doc/luatex/luaintro/01-04-5.ctx1crop')
-rw-r--r-- | Master/texmf-dist/doc/luatex/luaintro/01-04-5.ctx1crop | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/luatex/luaintro/01-04-5.ctx1crop b/Master/texmf-dist/doc/luatex/luaintro/01-04-5.ctx1crop new file mode 100644 index 00000000000..fd1025580df --- /dev/null +++ b/Master/texmf-dist/doc/luatex/luaintro/01-04-5.ctx1crop @@ -0,0 +1,61 @@ +%% +%% Ein Beispiel der DANTE-Edition +%% +%% 1. Auflage +%% +%% Beispiel 01-04-5 auf Seite 26. +%% +%% Copyright (C) 2013 Herbert Voss +%% +%% It may be distributed and/or modified under the conditions +%% of the LaTeX Project Public License, either version 1.3 +%% of this license or (at your option) any later version. +%% +%% See http://www.latex-project.org/lppl.txt for details. +%% +%% +%% ==== +% Show page(s) 1 +%% +\input CTdefault.tex +%StartShownPreambleCommands +\startluacode +local format = string.format +local concat = table.concat +function document.TestBitmap(nx,ny) + nx = math.round(nx/65536) + ny = math.round(ny/65536) + nx = 2 * math.round(nx/2) + ny = 2 * math.round(ny/2) + local r = { } + local dx = 255/nx + local dy = 255/ny + for i=1,ny/2 do + local n = i*dy + local c = { } + for j=1,nx/2 do c[#c+1] = format("%02x",j*dx+n) end + for j=nx/2,1,-1 do c[#c+1] = format("%02x",j*dx+n) end + c = concat(c,"",1,nx) + r[#r+1] = c + end + for i=ny/2,1,-1 do + local n = i*dy + local c = { } + for j=1,nx/2 do c[#c+1] = format("%02x",j*dx+n) end + for j=nx/2,1,-1 do c[#c+1] = format("%02x",j*dx+n) end + c = concat(c,"",1,nx) + r[#r+1] = c + end + r = concat(r,"\r",1,ny) + figures.bitmapimage {data=r,xresolution=nx,yresolution=ny} +end +\stopluacode +%StopShownPreambleCommands +\starttext +\defineoverlay[BitMess][{\scale[width=\dimexpr\overlaywidth+2ex, + height=\dimexpr\overlayheight+2ex]{\ctxlua{% + document.TestBitmap(\number\dimexpr\overlaywidth, + \number\dimexpr\overlayheight)}}}] +\framed[width=10cm,height=10cm,frame=off, + background={BitMess,color},backgroundcolor=white]{test} +\stoptext |