%D \module
%D   [       file=x-set-12,
%D        version=2004.10.31,
%D         remark=setupx.tex: 1998.07.20 and later,
%D          title=\CONTEXT\ Setup Definitions,
%D       subtitle=Macro Definitions,
%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.

\usemodule[set-11]

\unprotect

\loadsetups

\startinterface dutch    \definecolor[LocalColor][green]     \stopinterface
\startinterface english  \definecolor[LocalColor][red]       \stopinterface
\startinterface german   \definecolor[LocalColor][blue]      \stopinterface
\startinterface czech    \definecolor[LocalColor][magenta]   \stopinterface
\startinterface italian  \definecolor[LocalColor][cyan]      \stopinterface
\startinterface romanian \definecolor[LocalColor][yellow]    \stopinterface

\startinterface english  \definecolor[TitleColor][g=.5,b=.5] \stopinterface
\startinterface dutch    \definecolor[TitleColor][r=.5,b=.5] \stopinterface
\startinterface german   \definecolor[TitleColor][r=.5,g=.5] \stopinterface
\startinterface italian  \definecolor[TitleColor][r=.5]      \stopinterface
\startinterface czech    \definecolor[TitleColor][g=.5]      \stopinterface
\startinterface romanian \definecolor[TitleColor][b=.5]      \stopinterface

\definecolor [lightgray] [s=.9]
\definecolor [darkgray]  [s=.1]

\usetypescript[palatino][\defaultencoding]
\setupbodyfont[palatino,9pt]

\setupcolors
  [\c!state=\v!start]

\defineoverlay
  [cover]
  [\hbox to \paperwidth{\hss\reuseMPgraphic{cover+back}}]

\defineoverlay
  [back]
  [\hbox to \paperwidth{\reuseMPgraphic{cover+back}\hss}]

\startreusableMPgraphic{cover+back}
  numeric h, w ; path p, q, r ; color f, d ; pair s ;
  h := OverlayHeight ; w := 2*OverlayWidth ;
  r := unitsquare xyscaled (w,h) ;
  fill r withcolor \MPcolor{lightgray} ;
  set_grid(w,h,w/8,w/16) ;
  forever :
    s := center r randomized (w,h) ;
    if new_on_grid(xpart s, ypart s) :
      s := (dx,dy) ;
      p := fullsquare xyscaled(w/4,w/8) ;
      q := (-4w,ypart ulcorner p) --
           .5[ulcorner p, urcorner p] --
           (4w,ypart urcorner p) ;
      q := q shifted (0,-w/24) ;
      p := p randomized (w/40,w/40) ;
      q := q randomized (0,w/100) ;
      q := q cutafter  (p cutafter  point 3 of p) ;
      q := q cutbefore (p cutbefore point 3 of p) ;
      d := .5[\MPcolor{LocalColor},\MPcolor{lightgray}] randomized (.5,.9) ;
      f := \MPcolor{lightgray} randomized (.5,.9) ;
      pickup pencircle scaled (w/100) ;
      fill p shifted s withcolor f ;
      draw p shifted s withcolor d ;
      draw q shifted s withcolor d ;
    fi ;
    exitif grid_full ;
  endfor ;
  setbounds currentpicture to r ;
\stopreusableMPgraphic

\definelayout
  [titlepage]
  [\c!backspace=1cm,
   \c!topspace=1cm,
   \c!width=\v!middle,
   \c!height=\v!middle,
   \c!header=0pt,
   \c!footer=0pt]

\setuplayout
  [\c!backspace=2cm,
   \c!topspace=1.5cm,
   \c!header=0cm,
   \c!footer=0cm,
   \c!width=\v!middle,
   \c!height=\v!middle]

\setuppagenumbering
  [\c!alternative=\v!doublesided]

\setupsetup
  [\c!criterium=\v!all,
   \c!reference=0]

\setupframedtexts
  [setuptext]
  [\c!frame=\v!on,
   \c!rulethickness=1pt,
   \c!framecolor=TitleColor]

\setupunderbar
  [\c!rulethickness=1pt,
   \c!rulecolor=TitleColor]

\starttext

\setupbackgrounds
  [\v!rightpage]
  [\c!background=cover]

\setuplayout
  [titlepage]

\startmakeup[\v!standard]
  \dontcomplain
  \startcolor[TitleColor]
  \definedfont[RegularBold at 100pt]\setstrut
  \setupalign[\v!left]
  \strut Con\TeX t \par
  \definedfont[RegularBold at 50pt]\setstrut
  \startinterface dutch    \strut commando's   \par \stopinterface
  \startinterface english  \strut commands     \par \stopinterface
  \startinterface german   \strut befehle      \par \stopinterface
  \startinterface czech    \strut prikaz\'y    \par \stopinterface
  \startinterface italian  \strut comandi      \par \stopinterface
  \startinterface romanian \strut comenzile    \par \stopinterface
  \vfill
  \definedfont[RegularBold at 150pt]\setstrut
  \startinterface dutch    NL\stopinterface
  \startinterface english  EN\stopinterface
  \startinterface german   DE\stopinterface
  \startinterface czech    CZ\stopinterface
  \startinterface italian  IT\stopinterface
  \startinterface romanian RO\stopinterface
  \stopcolor
\stopmakeup

\setuplayout % needed ?

\setupbackgrounds
  [\v!rightpage]
  [\c!background=]

\startmakeup[\v!standard]
  \dontcomplain
  \startcolor[TitleColor]
  \definedfont[RegularBold at 100pt]\setstrut
  \setupalign[\v!left]
  \strut Con\TeX t \par
  \definedfont[RegularBold at 50pt]\setstrut
  \startinterface dutch    \strut commando's     \par \stopinterface
  \startinterface english  \strut commands       \par \stopinterface
  \startinterface german   \strut befehle        \par \stopinterface
  \startinterface czech    \strut prikaz\'y      \par \stopinterface
  \startinterface italian  \strut comandi        \par \stopinterface
  \startinterface romanian \strut comenzile      \par \stopinterface
  \vfill
  \definedfont[RegularBold at 24pt]\setupinterlinespace
  \startinterface dutch    \strut nl / nederlands     \par \stopinterface
  \startinterface english  \strut en / english        \par \stopinterface
  \startinterface german   \strut de / deutsch        \par \stopinterface
  \startinterface czech    \strut cz / \^cesk\'y      \par \stopinterface
  \startinterface italian  \strut it / italiano       \par \stopinterface
  \startinterface romanian \strut ro / rom\^{a}n\u{a} \par \stopinterface
  \par \strut \currentdate \par
  \stopcolor
\stopmakeup

\protect

\placeeverysetup

\unprotect

\page[\v!yes,\v!blank,\v!right,\v!left]

\setuplayout
  [titlepage]

\setupbackgrounds
  [\v!leftpage]
  [\c!background=back]

\startmakeup[\v!standard][\c!page=]
  \dontcomplain
  \startcolor[TitleColor]
  \definedfont[RegularBold at 24pt]\setupinterlinespace
  \setupalign[\v!left]
  \vfill
  PRAGMA ADE \par
  Ridderstraat 27 \par
  8061GH Hasselt NL \par
  www.pragma-ade.com \par
  \stopcolor
\stopmakeup

\protect

\stoptext
