Source Browser ?

1%D \module
2%D   [      file=s-pre-16,
3%D        version=1999.09.01,
4%D          title=\CONTEXT\ Style File,
5%D       subtitle=Presentation Environment 16,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14%D The first version of this style was made late summer 1999,
15%D but its first usage was during a course I gave in BRNO.
16%D It's a rather simple style with a dominating background.
17
\setuppapersize
19  [S6][S6]
20
21\setupbodyfont
22  [pos,14.4pt]
23
24\setuplayout
25  [topspace=100pt,
26   backspace=120pt,
27   header=0pt,
28   footer=0pt,
29   width=middle,
30   height=middle]
31
32\setupbackgrounds
33  [text]
34  [backgroundoffset=80pt,
35   background=GoOn]
36
37\setupbackgrounds
38  [page]
39  [background={FuzzyCircle,Again}]
40
41\setupcolors
42  [state=start]
43
44\definecolor[gray] [s=.4]
45\definecolor[white][s=.8]
46
47\definecolor[red]  [r=.8] \definecolor[cyan]   [g=.8,b=.8]
48\definecolor[green][g=.8] \definecolor[magenta][r=.8,b=.8]
49\definecolor[blue] [b=.8] \definecolor[yellow] [r=.8,g=.8]
50
51\definecolor[PageColor][gray]
52\definecolor[TextColor][yellow]
53\definecolor[LineColor][blue]
54
55\setupinteraction
56  [state=start,
57   color=LineColor,
58   contrastcolor=LineColor]
59
60\setupinteractionscreen
61  [option=max]
62
63\setupitemize
64  [each]
65  [color=blue,
66   symbol=FuzzyDot]
67
68\startuseMPgraphic{FuzzyCircle}
69  path p ; numeric w, h, l ;
70  w := OverlayWidth ; h := OverlayHeight ;
71  def dd = (1 randomized (1/5)) enddef ;
72  pickup pencircle xscaled 10pt yscaled 2pt rotated 30;
73  for i:=1 upto 50 :
74    p := (-dd,-dd)..(dd,-dd)..(dd,dd)..(-dd,dd)..cycle ;
75    p := p rotatedaround (center p, uniformdeviate 360) ;
76    p := p xscaled (w/2) yscaled (h/2) ;
77    l := length(p)/2 ;
78    p := p cutbefore point   (uniformdeviate l) of p ;
79    p := p cutafter  point (l+uniformdeviate l) of p ;
80    draw p withcolor \MPcolor{LineColor} randomized (.4,1) ;
81  endfor ;
82  picture s ; s := currentpicture xysized (w-15,h-15) ;
83  currentpicture := nullpicture ;
84  fill boundingbox s enlarged 60pt withcolor \MPcolor{PageColor} ;
85  addto currentpicture also s ;
86\stopuseMPgraphic
87
88\startuseMPgraphic{FuzzyDot}
89  path p ; numeric w ;
90  w := BodyFontSize/2 ;
91  def dd = (w randomized (w/2)) enddef ;
92  pickup pencircle xscaled (w/2) yscaled (w/3) rotated 30 ;
93  for i=0 step 45 until 135 :
94    p := (-dd,0)--(dd,0) ;
95    p := p rotatedaround (origin,i-w+uniformdeviate w) ;
96    draw p withcolor \MPcolor{LineColor} randomized (.3,.8) ;
97  endfor ;
98\stopuseMPgraphic
99
100\defineoverlay [FuzzyCircle] [\useMPgraphic{FuzzyCircle}]
101\defineoverlay [GoOn]        [{\setupinteraction[click=no]\overlaybutton{forward}}]
102\defineoverlay [Again]       [\overlaybutton{firstpage}]
103
104\definesymbol
105  [FuzzyDot]
106  [\lower\dp\strutbox\hbox{\useMPgraphic{FuzzyDot}}]
107
108\def\Item%
109  {\par\noindent\symbol[FuzzyDot]\hskip.5em\nobreak}
110
111\setupitemize
112  [all]
113  [packed]
114  [symbol=FuzzyDot]
115
116\def\NextIdea%
117  {\blank[back,medium]
118   \midaligned{\symbol[FuzzyDot]}
119   \blank[medium]
120   \blank[disable]}
121
122\definehead [Topic] [chapter]
123\definehead [Nopic] [title]
124
125\setuphead
126  [Topic, Nopic]
127  [alternative=middle,
128   before=,
129   number=no,
130   style=\bfb]
131
132\setuplist
133  [Topic]
134  [alternative=g,
135   interaction=all]
136
137%D Since we want a colored text, and since color directive
138%D can spoil the spacing, we use a foregroundcolor.
139
140\setupbackgrounds
141  [text]
142  [foregroundcolor=TextColor]
143
144%D Unfortunately this does not work when on the page colors
145%D are set, so we play safe and say:
146
147\setupmakeup
148  [standard]
149  [color=TextColor]
150
151\def\StartIdea%
152  {\startstandardmakeup
153   \setupwhitespace[medium]
154   \setupblank[medium]
155   \setupalign[broad,middle]}
156
157\def\StopIdea%
158  {\stopstandardmakeup}
159
160\def\Topics#1%
161  {\Nopic{#1}
162   \startcolumns
163     \setupinteraction[color=TextColor,contrastcolor=TextColor]
164     \placelist[Topic]
165   \stopcolumns
166   \page}
167
168%D Some fakes.
169
170\def\Subject  {\Topic}
171\def\Subjects {}
172
173%D A bonus (copied from \type {s-pre-02} but with a different
174%D vertical alignment.
175
176\def\StartTitlePage%
177  {\startstandardmakeup
178   \bfd\setupinterlinespace
179   \setupalign[middle]
180   \vfil
181   \let\\=\vfil}
182
183\def\StopTitlePage%
184  {\vfil
185   \stopstandardmakeup}
186
187\def\TitlePage#1%
188  {\StartTitlePage#1\StopTitlePage}
189
190\doifnotmode{demo}{\endinput}
191
192\starttext
193
194\Topics{...}
195
196\StartIdea
197  \Topic{...}
198  ...
199  \NextIdea
200  ...
201\StopIdea
202
203\stoptext
204