summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/luatex/luaintro/01-04-5.ctx1crop
blob: 2957c61bd63f01a9cc5bb76e6f4b0e2ee8a32e13 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
%% 
%%  Ein Beispiel der DANTE-Edition
%%  
%%  1. Auflage
%% 
%% 
%%  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