%D \module
%D   [      file=x-e-1011,
%D        version=2004.10.14,
%D          title=\EXAMPLE\ GUI Files,
%D       subtitle=Weekly Punishment or Reward,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

%D This is experimental code. Don't change it, don't rely on
%D this interface remaining the same, don't use tricks used
%D here but not described in manuals, so: asume that this
%D file does not exists.

\usemodule[e-0000]

\setEXAvariable {tex:size}{24pt}
\setEXAvariable {tex:color}{red}
\setEXAvariable {tex:content}{Ik ben deze week ontzettend braaf geweest!}

\startnotmode[demo]

  \loadEXArequest{\inputfilename}
  \loadEXAmodes  {examodes.tex}

\stopnotmode

\definepapersize
  [mine]
  [width=12.5cm,
   height=17cm]

\setuplayout
  [mine]
  [width=middle,
   height=middle,
   header=0pt,
   footer=0pt,
   backspace=.5cm,
   topspace=.5cm]

\setuplayout
  [location=middle,
   marking=on]

\setuppapersize
  [mine]
  [A4]

\setuplayout
  [mine]

\usetypescript[calligraphy][chancery][texnansi,name]
\usetypescript[map][chancery][texnansi]
\definefontsynonym[MainFont][Calligraphy]

\mainlanguage[nl]

\definecolor[red]  [r=.7]
\definecolor[green][g=.7]

\setupcolors
  [state=start,
   textcolor=\getEXAvariable{tex:color}]

\setuptolerance
  [verytolerant,stretch]

\starttext

\startstandardmakeup[top=,bottom=]

  \definedfont[MainFont at \getEXAvariable{tex:size}]

  \setupinterlinespace \advance \baselineskip 0pt plus 10pt

  \setbox\scratchbox\vbox{\dorecurse{100}{\getEXAvariable{tex:content}\removeunwantedspaces\space}}

  \setbox\scratchbox\vsplit\scratchbox to \vsize

  \unvbox\scratchbox

\stopstandardmakeup

\stoptext
