%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

\definecolor[TitleColor][r=.375,g=.125,b=.125]
\definecolor[TitleColor][r=.125,g=.375,b=.125]
\definecolor[TitleColor][r=.125,g=.125,b=.375]
\definecolor[TitleColor][r=.375,g=.375,b=.125]
\definecolor[TitleColor][r=.375,g=.125,b=.375]
\definecolor[TitleColor][r=.125,g=.375,b=.375]

\definecolor[TitleColor][r=.25,g=.20,b=.15]
\definecolor[TitleColor][r=.25,g=.15,b=.20]
\definecolor[TitleColor][r=.20,g=.15,b=.25]
\definecolor[TitleColor][r=.20,g=.25,b=.15]
\definecolor[TitleColor][r=.15,g=.20,b=.25]
\definecolor[TitleColor][r=.15,g=.25,b=.20]

\startinterface dutch    \definecolor[LocalColor][r=.75,g=.25,b=.25]    \stopinterface
\startinterface english  \definecolor[LocalColor][r=.25,g=.75,b=.25]    \stopinterface
\startinterface german   \definecolor[LocalColor][r=.25,g=.25,b=.75]    \stopinterface
\startinterface french   \definecolor[LocalColor][r=.75,g=.75,b=.25]    \stopinterface
\startinterface czech    \definecolor[LocalColor][r=.75,g=.25,b=.75]    \stopinterface
\startinterface italian  \definecolor[LocalColor][r=.25,g=.75,b=.75]    \stopinterface
\startinterface romanian \definecolor[LocalColor][r=.5,g=.4,b=.3]       \stopinterface
%                        \definecolor[LocalColor][r=.5,g=.3,b=.4]
%                        \definecolor[LocalColor][r=.4,g=.3,b=.5]
%                        \definecolor[LocalColor][r=.4,g=.5,b=.3]
%                        \definecolor[LocalColor][r=.3,g=.4,b=.5]
%                        \definecolor[LocalColor][r=.3,g=.5,b=.4]

\startinterface english  \definecolor[TitleColor][r=.375,g=.125,b=.125] \stopinterface
\startinterface dutch    \definecolor[TitleColor][r=.125,g=.375,b=.125] \stopinterface
\startinterface german   \definecolor[TitleColor][r=.125,g=.125,b=.375] \stopinterface
\startinterface french   \definecolor[TitleColor][r=.375,g=.375,b=.125] \stopinterface
\startinterface italian  \definecolor[TitleColor][r=.375,g=.125,b=.375] \stopinterface
\startinterface czech    \definecolor[TitleColor][r=.125,g=.375,b=.375] \stopinterface
\startinterface romanian \definecolor[TitleColor][r=.25,g=.20,b=.15]    \stopinterface
%                        \definecolor[TitleColor][r=.25,g=.15,b=.20]
%                        \definecolor[TitleColor][r=.20,g=.15,b=.25]
%                        \definecolor[TitleColor][r=.20,g=.25,b=.15]
%                        \definecolor[TitleColor][r=.15,g=.20,b=.25]
%                        \definecolor[TitleColor][r=.15,g=.25,b=.20]

\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]

\startsetups text:commands
  \startinterface dutch    \strut commando's   \par \stopinterface
  \startinterface english  \strut commands     \par \stopinterface
  \startinterface german   \strut befehle      \par \stopinterface
  \startinterface french   \strut commandes    \par \stopinterface
  \startinterface czech    \strut p\v{r}ikazy  \par \stopinterface
  \startinterface italian  \strut comandi      \par \stopinterface
  \startinterface romanian \strut comenzile    \par \stopinterface
\stopsetups

\startsetups text:uppercase
  \startinterface dutch    NL\stopinterface
  \startinterface english  EN\stopinterface
  \startinterface german   DE\stopinterface
  \startinterface french   FR\stopinterface
  \startinterface czech    CZ\stopinterface
  \startinterface italian  IT\stopinterface
  \startinterface romanian RO\stopinterface
\stopsetups

\startsetups text:lowercase
  \startinterface dutch    \strut nl / nederlands     \par \stopinterface
  \startinterface english  \strut en / english        \par \stopinterface
  \startinterface german   \strut de / deutsch        \par \stopinterface
  \startinterface french   \strut fr / fran\c{c}ais   \par \stopinterface
  \startinterface czech    \strut cz / \v{c}esk\'y    \par \stopinterface
  \startinterface italian  \strut it / italiano       \par \stopinterface
  \startinterface romanian \strut ro / rom\^{a}n\u{a} \par \stopinterface
\stopsetups

\startmakeup[\v!standard]
  \dontcomplain
  \startcolor[TitleColor]
  \definedfont[RegularBold at 100pt]\setstrut
  \setupalign[\v!left]
  \strut Con\TeX t \par
  \definedfont[RegularBold at 50pt]\setstrut
  \setups[text:commands]
  \vfill
  \definedfont[RegularBold at 150pt]\setstrut
  \setups[text:uppercase]
  \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
  \setups[text:commands]
  \vfill
  \definedfont[RegularBold at 24pt]\setupinterlinespace
  \setups[text:lowercase]
  \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
