%D \module %D [ file=s-pre-16, %D version=1999.09.01, %D title=\CONTEXT\ Style File, %D subtitle=Presentation Environment 16, %D author=Hans Hagen, %D date=\currentdate, %D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] %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 The first version of this style was made late summer 1999, %D but its first usage was during a course I gave in BRNO. %D It's a rather simple style with a dominating background. \setuppapersize [S6][S6] \setupbodyfont [pos,14.4pt] \setuplayout [topspace=100pt, backspace=120pt, header=0pt, footer=0pt, width=middle, height=middle] \setupbackgrounds [text] [backgroundoffset=80pt, background=GoOn] \setupbackgrounds [page] [background={FuzzyCircle,Again}] \setupcolors [state=start] \definecolor[gray] [s=.4] \definecolor[white][s=.8] \definecolor[red] [r=.8] \definecolor[cyan] [g=.8,b=.8] \definecolor[green][g=.8] \definecolor[magenta][r=.8,b=.8] \definecolor[blue] [b=.8] \definecolor[yellow] [r=.8,g=.8] \definecolor[PageColor][gray] \definecolor[TextColor][yellow] \definecolor[LineColor][blue] \setupinteraction [state=start, color=LineColor, contrastcolor=LineColor] \setupinteractionscreen [option=max] \setupitemize [each] [color=blue, symbol=FuzzyDot] \startuseMPgraphic{FuzzyCircle} path p ; numeric w, h, l ; w := OverlayWidth ; h := OverlayHeight ; def dd = (1 randomized (1/5)) enddef ; pickup pencircle xscaled 10pt yscaled 2pt rotated 30; for i:=1 upto 50 : p := (-dd,-dd)..(dd,-dd)..(dd,dd)..(-dd,dd)..cycle ; p := p rotatedaround (center p, uniformdeviate 360) ; p := p xscaled (w/2) yscaled (h/2) ; l := length(p)/2 ; p := p cutbefore point (uniformdeviate l) of p ; p := p cutafter point (l+uniformdeviate l) of p ; draw p withcolor \MPcolor{LineColor} randomized (.4,1) ; endfor ; picture s ; s := currentpicture xysized (w-15,h-15) ; currentpicture := nullpicture ; fill boundingbox s enlarged 60pt withcolor \MPcolor{PageColor} ; addto currentpicture also s ; \stopuseMPgraphic \startuseMPgraphic{FuzzyDot} path p ; numeric w ; w := BodyFontSize/2 ; def dd = (w randomized (w/2)) enddef ; pickup pencircle xscaled (w/2) yscaled (w/3) rotated 30 ; for i=0 step 45 until 135 : p := (-dd,0)--(dd,0) ; p := p rotatedaround (origin,i-w+uniformdeviate w) ; draw p withcolor \MPcolor{LineColor} randomized (.3,.8) ; endfor ; \stopuseMPgraphic \defineoverlay [FuzzyCircle] [\useMPgraphic{FuzzyCircle}] \defineoverlay [GoOn] [{\setupinteraction[click=no]\overlaybutton{forward}}] \defineoverlay [Again] [\overlaybutton{firstpage}] \definesymbol [FuzzyDot] [\lower\dp\strutbox\hbox{\useMPgraphic{FuzzyDot}}] \def\Item% {\par\noindent\symbol[FuzzyDot]\hskip.5em\nobreak} \setupitemize [all] [packed] [symbol=FuzzyDot] \def\NextIdea% {\blank[back,medium] \midaligned{\symbol[FuzzyDot]} \blank[medium] \blank[disable]} \definehead [Topic] [chapter] \definehead [Nopic] [title] \setuphead [Topic, Nopic] [alternative=middle, before=, number=no, style=\bfb] \setuplist [Topic] [alternative=g, interaction=all] %D Since we want a colored text, and since color directive %D can spoil the spacing, we use a foregroundcolor. \setupbackgrounds [text] [foregroundcolor=TextColor] %D Unfortunately this does not work when on the page colors %D are set, so we play safe and say: \setupmakeup [standard] [color=TextColor] \def\StartIdea% {\startstandardmakeup \setupwhitespace[medium] \setupblank[medium] \setupalign[broad,middle]} \def\StopIdea% {\stopstandardmakeup} \def\Topics#1% {\Nopic{#1} \startcolumns \setupinteraction[color=TextColor,contrastcolor=TextColor] \placelist[Topic] \stopcolumns \page} %D Some fakes. \def\Subject {\Topic} \def\Subjects {} %D A bonus (copied from \type {s-pre-02} but with a different %D vertical alignment. \def\StartTitlePage% {\startstandardmakeup \bfd\setupinterlinespace \setupalign[middle] \vfil \let\\=\vfil} \def\StopTitlePage% {\vfil \stopstandardmakeup} \def\TitlePage#1% {\StartTitlePage#1\StopTitlePage} \doifnotmode{demo}{\endinput} \starttext \Topics{...} \StartIdea \Topic{...} ... \NextIdea ... \StopIdea \stoptext