% Etiketten for address labels format 45 by 100mm
% Context file
% filename: logos.tex
% Willi Egger
% january 2004

\setupoutput[pdftex]

\mainlanguage[nl]
\language[nl]
\setuppagenumber[state=stop]
\setupcolors[state=start]
\usetypescript[modern][texnansi]
\setupbodyfont[modern,ss,12pt]

\definepapersize[Etiket][height=42.3mm,width=105mm]
\setuppapersize [Etiket][A4,portrait]
\setuppaper
    [topspace=0mm,
    backspace=0mm,
    dx=2mm,
    dy=0mm,
    nx=2,
    ny=7,
    margin=0,
    width=210mm,
    height=297mm]
\setuplayout
    [topspace=4mm,
    backspace=8mm,
    margin=0mm,
    width=96mm,
    height=34mm,
    header=0mm,
    footer=0mm]
\setuparranging[XY]

\definelayer[Etiket][width=\textwidth, height=\textheight]
\setupframedtexts[frame=off,width=\textwidth]

\def\Logo%
    {\externalfigure[wooden_coptic][height=\textheight]}

%\input adreslist         %Contains the addresses as given below:

% \startbuffer[Adr1]
%    \framedtext{%
%    \startlines
%    Mr. Robert Ermers \\
%    \CONTEXT-technician\\
%    Whereeverstreet 5\\
%    7000 \TEX land
%    \stoplines}
% \stopbuffer

\def\Addresses{10}

\showframe

\starttext
\dorecurse{\Addresses}{%
    \setlayer
       [Etiket]
       [preset=leftbottom,location={right,top},y=-3mm,x=-3mm]
       {\switchtobodyfont[10pt]\getbuffer[Adr\recurselevel]}
    \setlayer
      [Etiket]
      [preset=lefttop,location={right,bottom}]
      {\switchtobodyfont[5pt]\Logo}
    \placelayer[Etiket]}
\stoptext
