1
2
3
4
5
6
7
8
9
10
11
12
13
14\setuppapersize
15 [ S 6 ][ S 6 ]
16
17
18
19\definetypeface [ main ][ rm ][ casual ][ informal ][ default ]
20\loadmapfile [ original micropress informal . map ]
21
22\setupbodyfont [ main , 1 0 pt ]
23
24\setuplayout
25 [ footerdistance = 2 0 pt ,
26 footer = 4 0 pt ,
27
28
29
30 header = 0 pt ,
31 backspace = 2 0 pt ,
32 topspace = 2 0 pt ,
33 width = middle ,
34 height = fit ]
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50\setupfooter
51 [ strut = no ,
52 style = \bfb ,
53 color = white ]
54
55\setupinteraction
56 [ state = start ]
57
58\setupinteractionscreen
59 [ option = max ]
60
61\definecolor [ white ] [ s = . 8 ]
62\definecolor [ red ] [ r = . 7 ]
63\definecolor [ green ] [ g = . 7 ]
64\definecolor [ blue ] [ b = . 7 ]
65\definecolor [ yellow ][ r = . 7 , g = . 7 ]
66
67\setupcolors
68 [ state = start ]
69
70\defineoverlay [ page ] [ \reuseMPgraphic { page } ]
71\defineoverlay [ text ] [ \useMPgraphic { text } ]
72\defineoverlay [ continue ] [ \overlaybutton { forward } ]
73
74\setupbackgrounds
75 [ page ]
76 [ background = { page , continue } ]
77
78\definecolor [ PageColor ] [ red ]
79\definecolor [ TextColor ] [ yellow ]
80
81\defineframedtext
82 [ TopicPage ]
83
84\defineframedtext
85 [ TopicText ]
86
87\setupframedtexts
88 [ TopicPage ]
89 [ width = \textwidth ,
90 height = \textheight ,
91 offset = overlay ]
92
93\setupframedtexts
94 [ TopicText ]
95 [ offset = 1 0 pt ,
96 style = bold ,
97 width = \TopicWidth ,
98 background = text ,
99 align = normal ]
100
101\setupframedtexts
102 [ TopicPage , TopicText ]
103 [ frame = off ,
104 depthcorrection = off ,
105 before = ,
106 after =]
107
108\newbox \TopicBox
109\newcounter \KindOfTopic
110\newdimen \TopicWidth
111
112\def \KindOfTopic { 1 }
113
114\def \StartTopic
115 { \getrandomdimen \TopicWidth { . 5 \textwidth }{ . 7 \textwidth }
116 \ifcase \KindOfTopic \or
117 \setupframedtexts [ TopicPage ] [ align = { right , high } ] \or
118 \setupframedtexts [ TopicPage ] [ align = { left , high } ] \or
119 \setupframedtexts [ TopicPage ] [ align = { left , low } ] \or
120 \setupframedtexts [ TopicPage ] [ align = { right , low } ] \fi
121 \setbox \scratchbox = \vbox \bgroup \dontcomplain
122 \noindent \startTopicPage [ none ]
123 \noindent \startTopicText [ none ]
124 \setuptolerance [ verytolerant , stretch ] }
125
126\def \StopTopic
127 { \stopTopicText
128 \stopTopicPage
129 \egroup
130 \global\setbox \TopicBox = \vbox
131 { \startoverlay
132 { \box \TopicBox } { \box \scratchbox }
133 \stopoverlay }
134 \copy \TopicBox
135 \ifnum \KindOfTopic = 4
136 \def \KindOfTopic { 1 }
137 \else
138 \increment \KindOfTopic
139 \fi
140 \page }
141
142\startuseMPgraphic { text }
143 path p ; p : = unitsquare xyscaled ( OverlayWidth , OverlayHeight ) ;
144 color c ; c : = ( .7 uniformdeviate .3 ) \MPcolor { TextColor } ;
145 p : = p enlarged -1.25 pt ;
146 fill p withcolor c ;
147 draw p withpen pencircle scaled 2.5 pt withcolor .75 c ;
148\stopuseMPgraphic
149
150\startreusableMPgraphic { page }
151 path p ; p : = unitsquare xyscaled ( OverlayWidth , OverlayHeight ) ;
152 color c ; c : = \MPcolor { PageColor } ;
153 fill p withcolor c ;
154 draw p withpen pencircle scaled 2.5 pt withcolor c ;
155\stopreusableMPgraphic
156
157\def \StartNopic # 1 \StopNopic
158 { \setupfootertexts
159 [ \vbox to \footerheight
160 { \vfill
161 \raggedleft
162 \def \\ { \endgraf \tx\setstrut\strut }
163 \setstrut\strut \ignorespaces # 1 \unskip \endgraf \removedepth } ]
164 \null \page }
165
166\def \TitlePage # 1
167 { \StartNopic # 1 \StopNopic }
168
169\setuphead [ title ] [ style = \bfc , after = \blank ]
170\setuphead [ subject ][ style = \bfa , before = \blank ]
171
172\doifnotmode { demo }{ \endinput }
173
174\starttext
175
176\TitlePage
177 { a dull talk held at \currentdate \\ welcome to whatever }
178
179\dorecurse { 1 0 }{ \StartTopic \input tufte \StopTopic }
180
181\stoptext
182 |