1
2
3
4
5
6
7
8
9
10
11
12
13
14\setupbodyfont
15 [lbr,14.4pt]
16
17\setuppapersize
18 [S6][S6]
19
20\setuplayout
21 [topspace=0cm,
22 backspace=0cm,
23 header=0pt,
24 footer=0pt,
25 width=middle,
26 height=middle]
27
28\setupcolors
29 [state=start]
30
31\setupinteraction
32 [state=start,
33 click=no,
34 display=new,
35 color=LineColor,
36 contrastcolor=LineColor]
37
38\setupinteractionscreen
39 [option=max]
40
41\setupsystem
42 [random=big]
43
44\startreusableMPgraphic{page}
45 StartPage ;
46 filldraw Page withcolor \MPcolor{PageColor} ;
47 pickup pencircle scaled (.25cmuniformdeviate.25cm) ;
48 for i=1 upto 200 :
49 drawdot
50 (uniformdeviate PaperWidth,uniformdeviate PaperHeight)
51 withcolor \MPcolor {LineColor} ;
52 endfor ;
53 StopPage ;
54\stopreusableMPgraphic
55
56\startuseMPgraphic{idea}
57 StartPage ;
58 path p ;
59 p := unitsquare xyscaled(\MPw{idea:\realfolio},\MPh{idea:\realfolio}) superellipsed .90 ;
60 p := p shifted \MPxy{idea:\realfolio} ;
61 draw p withpen pencircle scaled .500cm withcolor \MPcolor{PageColor} ;
62 fill p withcolor \MPcolor{\overlaycolor} ;
63 draw p withpen pencircle scaled .250cm withcolor \MPcolor{LineColor} ;
64 p := unitsquare xyscaled(\MPw{title:\realfolio},\MPh{title:\realfolio}) superellipsed .90 ;
65 p := p shifted \MPxy{title:\realfolio} ;
66 draw p withpen pencircle scaled .250cm withcolor \MPcolor{PageColor} ;
67 fill p withcolor \MPcolor{\overlaycolor} ;
68 draw p withpen pencircle scaled .125cm withcolor \MPcolor{LineColor} ;
69 StopPage ;
70\stopuseMPgraphic
71
72\definecolor[PageColor][s=.50]
73\definecolor[TextColor][s=.80]
74\definecolor[DoneColor][s=.65]
75\definecolor[LineColor][r=.7,g=.6,b=.5]
76
77\defineoverlay [idea] [\useMPgraphic {idea}]
78\defineoverlay [page] [\reuseMPgraphic{page}]
79
80\setupbackgrounds
81 [page]
82 [background={page,forward}]
83
84\defineoverlay[forward][\overlaybutton{forward}]
85
86
87
88
89\definereference[thispage][page(\realfolio)]
90
91\newbox\firstideabox \setbox\firstideabox =\null
92\newbox\secondideabox \setbox\secondideabox=\null
93\newbox\thirdideabox \setbox\thirdideabox =\null
94
95\def\StartTopic
96 {\dodoublegroupempty\doStartTopic}
97
98\def\doStartTopic#1#2
99 {\setbox\firstideabox=
100 \vbox to \makeupheight
101 \bgroup
102 \getrandomdimen\scratchdimen{.5cm}\makeupheight
103 \vskip 0cm plus \scratchdimen
104 \hbox to \makeupwidth
105 \bgroup
106 \getrandomdimen\scratchdimen{.5cm}\makeupwidth
107 \hskip 0cm plus \scratchdimen
108 \setbox\scratchbox=\hbox\bgroup\hpos{idea:\realfolio}
109 \bgroup
110 \getrandomdimen\hsize{.5\makeupwidth}{.7\makeupwidth}
111 \framed
112 [offset=3ex,align=middle,strut=no,frame=off,
113 before=,after=]
114 \bgroup
115 \setupwhitespace[big]
116 \doifsomething{#2}{\Title{#2}}
117 \def\StopTopic{
118 \egroup
119 \egroup
120 \egroup
121 \gotobox{\box\scratchbox}[thispage]
122 \getrandomdimen\scratchdimen{.5cm}\makeupwidth
123 \hskip 0cm plus \scratchdimen
124 \egroup
125 \getrandomdimen\scratchdimen{.5cm}\makeupheight
126 \vskip 0cm plus \scratchdimen
127 \hbox to \makeupwidth
128 \bgroup
129 \hfill
130 \hpos{title:\realfolio}
131 {\button[offset=1.5ex,frame=off]{#1}[backward]}
132 \getrandomdimen\scratchdimen{.5cm}{2.5cm}
133 \hskip \scratchdimen
134 \egroup
135 \getrandomdimen\scratchdimen{.5cm}{1.5cm}
136 \vskip \scratchdimen
137 \egroup
138 \setbox\secondideabox=\vbox
139 {\framed
140 [offset=overlay,frame=off,background=idea,backgroundcolor=TextColor]
141 {\copy\firstideabox}}
142 \setbox\firstideabox=\vbox
143 {\framed
144 [offset=overlay,frame=off,background=idea,backgroundcolor=DoneColor]
145 {\LineColor\copy\firstideabox}}
146 \startstandardmakeup
147 \startoverlay
148 {\copy\thirdideabox }
149 {\copy\secondideabox}
150 \stopoverlay
151 \stopstandardmakeup
152 \setbox\thirdideabox=\vbox
153 {\startoverlay
154 {\copy\thirdideabox }
155 {\copy\firstideabox}
156 \stopoverlay}}}
157
158\long\def\TitlePage#1#2
159 {\bgroup
160 \switchtobodyfont[32pt]
161 \StartTopic{#1}#2\StopTopic
162 \egroup}
163
164\def\Title#1{\midaligned{\bfb#1}\blank}
165
166\doifnotmode{demo}{\endinput}
167
168
169
170\starttext
171
172\TitlePage{August 2000}{Something Very Important}
173
174\StartTopic{Alpha}
175 A simple and not too long text just to show the idea.
176 A simple and not too long text just to show the idea.
177 A simple and not too long text just to show the idea.
178\StopTopic
179
180\StartTopic{Beta and Gamma}
181 A simple and not too long text just to show the idea.
182 A simple and not too long text just to show the idea.
183\StopTopic
184
185\StartTopic{Delta}
186 A simple and not too long text just to show the idea.
187\StopTopic
188
189\StartTopic{Epsilon}
190 A simple and not too long text just to show the idea.
191 A simple and not too long text just to show the idea.
192 A simple and not too long text just to show the idea.
193\StopTopic
194
195\StartTopic{Zeta, Eta and Theta}
196 A simple and not too long text just to show the idea.
197 A simple and not too long text just to show the idea.
198 A simple and not too long text just to show the idea.
199\StopTopic
200
201\StartTopic{Omega}
202 A simple and not too long text just to show the idea.
203 A simple and not too long text just to show the idea.
204 A simple and not too long text just to show the idea.
205 A simple and not too long text just to show the idea.
206\StopTopic
207
208\stoptext
209 |