Source Browser ?

1\startenvironment manuals-explaining-environment
2
3\usemodule[abr-01]
4\usemodule[visual]
5\usemodule[simulate]
6\usemodule[chart]
7\usemodule[nodechart]
8
9% done
10
11\dontcomplain
12
13\definepapersize
14  [book]
15  [width=18cm,
16   height=24cm]
17
18\setuppapersize
19  [book]
20
21\startmode[oversized]
22
23    \setuppapersize
24      [book]
25      [oversized]
26
27    \setuplayout
28      [marking=on]
29
30\stopmode
31
32\setuplayout
33  [location=middle,
34   topspace=1.5cm,
35   bottomspace=2cm,
36   backspace=2cm,
37   cutspace=2cm,
38   header=0cm,
39   footer=0cm,
40   margindistance=.25cm,
41   margin=1.25cm,
42   width=middle,
43   height=middle]
44
45\setuplayout
46  [style=\ss]
47
48\usetypescript
49  [dejavu-condensed]
50
51\setupbodyfont
52  [ipaex,9pt]
53
54\setupbodyfont
55  [dejavu,9pt]
56
57\definetyping
58  [narrowtyping]
59  [typing]
60  [bodyfont=dejavu-condensed]
61
62% This is way too ugly for a manual:
63%
64% \setuptyping
65%   [indentnext=no]
66%
67% \setupindenting
68%   [medium,yes]
69
70\setupwhitespace
71  [big]
72
73\defineoverlay
74  [page]
75  [\useMPgraphic{page}]
76
77\setupbackgrounds
78  [page]
79  [background=page]
80
81\setuphead
82  [chapter,section,subsection]
83  [color=\namedstructureuservariable{chapter}{color}]
84
85\setuphead
86  [chapter]
87  [style=\bfc]
88
89\setuphead
90  [section]
91  [style=\bfb]
92
93\setuphead
94  [subsection]
95  [style=\bf,
96   before=\blank,
97   after=\blank]
98
99\startsetups document:chapter:inside
100    \definecolor[maincolor][1.0(\namedheadparameter{chapter}{color})] % this expands the color
101    \definecolor[halfcolor][0.5(maincolor,white)]
102\stopsetups
103
104\setuphead
105  [chapter]
106  [insidesection=\directsetup{document:chapter:inside}]
107
108\setuppagenumbering
109  [alternative=doublesided,
110   location=]
111
112\setuplist
113  [aligntitle=yes]
114
115\setuplist
116  [chapter]
117  [pagenumber=no,
118   style=bold,
119   before={\blank\startcolor[\rawstructurelistuservariable{color}]},
120   after={\placelist[section]\stopcolor}]
121
122\setuplist
123  [chapter,section]
124  [width=3em]
125
126\startuseMPgraphic{page}
127
128    StartPage ;
129
130        linecap := butt ;
131
132        if OnRightPage :
133
134            path p ; p := (
135                urcorner Page shifted (-2cm,0) --
136                urcorner Page                  --
137                urcorner Page shifted (0,-2cm) -- cycle
138            ) shifted (-2.5mm,-2.5mm) ;
139
140        else :
141
142            path p ; p := (
143                ulcorner Page shifted (2cm,0)  --
144                ulcorner Page                  --
145                ulcorner Page shifted (0,-2cm) -- cycle
146            ) shifted (2.5mm,-2.5mm) ;
147
148        fi ;
149
150        fill p
151            withpen pencircle scaled 1mm
152            withcolor "maincolor" ;
153
154        draw thetextext("\bf\userpagenumber",
155            if OnRightPage : urcorner p shifted (-5mm,-5mm) else : ulcorner p shifted (5mm,-5mm) fi)
156            withcolor white ;
157
158        if OnRightPage :
159
160            path p ; p := (
161                lrcorner Page shifted (-5cm,0) --
162                lrcorner Page
163            ) shifted (-5mm,10mm)
164
165        else :
166
167            path p ; p := (
168                llcorner Page shifted (5cm,0) --
169                llcorner Page
170            ) shifted (5mm,10mm) ;
171
172        fi ;
173
174        draw p
175            withpen pencircle scaled 1mm
176            withcolor "maincolor" ;
177
178        draw if OnRightPage :
179            thetextext.lft("\bf\getspecificstructuretitle{chapter}",lrcorner Page shifted (-5mm,5mm))
180        else :
181            thetextext.rt ("\bf\getspecificstructuretitle{chapter}",llcorner Page shifted ( 5mm,5mm))
182        fi withcolor "\namedstructureuservariable{chapter}{color}" ;
183
184    StopPage ;
185\stopuseMPgraphic
186
187\definecolor[orange]     [r=1,g=.6,b=.1]
188
189\definecolor[middlegray] [s=.75]
190\definecolor[darkgray]   [s=.25]
191\definecolor[darkred]    [r=.5]
192\definecolor[darkgreen]  [g=.5]
193\definecolor[darkblue]   [b=.5]
194
195\definecolor[darkyellow] [.5(red,green)]
196\definecolor[darkmagenta][.5(red,blue)]
197\definecolor[darkcyan]   [.5(green,blue)]
198
199\definecolor[darkorange] [.5(orange)]
200
201\definecolor[maincolor]  [darkgray]
202
203\definecolor [mix-1] [r=1,g=.75,b=.25] \definecolor [darkmix-1][.5(mix-1)]
204\definecolor [mix-2] [r=1,g=.25,b=.75] \definecolor [darkmix-2][.5(mix-2)]
205\definecolor [mix-3] [r=.75,g=1,b=.25] \definecolor [darkmix-3][.5(mix-3)]
206\definecolor [mix-4] [r=.75,g=.25,b=1] \definecolor [darkmix-4][.5(mix-4)]
207\definecolor [mix-5] [r=.25,g=1,b=.75] \definecolor [darkmix-5][.5(mix-5)]
208\definecolor [mix-6] [r=.25,g=.75,b=1] \definecolor [darkmix-6][.5(mix-6)]
209
210% \blackrule[height=1cm,width=10cm,color=mix-1] \blackrule[height=1cm,width=10cm,color=darkmix-1]
211% \blackrule[height=1cm,width=10cm,color=mix-2] \blackrule[height=1cm,width=10cm,color=darkmix-2]
212% \blackrule[height=1cm,width=10cm,color=mix-3] \blackrule[height=1cm,width=10cm,color=darkmix-3]
213% \blackrule[height=1cm,width=10cm,color=mix-4] \blackrule[height=1cm,width=10cm,color=darkmix-4]
214% \blackrule[height=1cm,width=10cm,color=mix-5] \blackrule[height=1cm,width=10cm,color=darkmix-5]
215% \blackrule[height=1cm,width=10cm,color=mix-6] \blackrule[height=1cm,width=10cm,color=darkmix-6]
216
217% modules
218
219\setupsorting
220  [logo]
221  [style=]
222
223\setupFLOWchart
224  [width=6em,
225   height=3em,
226   offset=-2em, % maybe default : todo: hoffset and voffset
227   dx=2em,
228   dy=2em]
229
230\setupFLOWlines
231  [color=maincolor]
232
233\setupFLOWshapes
234  [rulecolor=maincolor]
235
236% tables
237
238\setuptabulate
239  [rulethickness=.5mm,
240   rulecolor=maincolor]
241
242% special commands
243
244\startuniqueMPgraphic{reference}{color}
245    fill
246        .5[llcorner OverlayBox,ulcorner OverlayBox] --
247        .5[ulcorner OverlayBox,urcorner OverlayBox] --
248        .5[urcorner OverlayBox,lrcorner OverlayBox] --
249        .5[lrcorner OverlayBox,llcorner OverlayBox] -- cycle
250        withcolor \MPvar{color} ;
251\stopuniqueMPgraphic
252
253\startuniqueMPgraphic{reference}{color}
254    path p ; p := OverlayBox enlarged -1mm ;
255    filldraw
256        ulcorner p --
257        urcorner p --
258        lrcorner p --
259        .5[lrcorner p,llcorner p] shifted (0,-1ExHeight) --
260        llcorner p -- cycle
261        withpen pencircle scaled 1mm
262        withcolor \MPvar{color} ;
263    setbounds currentpicture to OverlayBox enlarged 1ExHeight ;
264\stopuniqueMPgraphic
265
266\defineoverlay
267  [reference]
268  [\uniqueMPgraphic{reference}{color=maincolor,}]
269
270\definecolor
271  [maincolor]
272  [red]
273
274\definemargindata
275  [appendixdata]
276 %[inner]
277  [outer]
278  [stack=yes]
279
280\definemarginframed
281  [appendixdata]
282  [width=3.5em,
283   height=\lineheight, % we know what goes in there
284   align=middle,
285   offset=overlay,
286   foregroundcolor=white,
287   background=reference]
288
289% todo:
290%
291% \appendixdata[reference=bla]{}
292%
293% whole data
294
295% interaction
296
297\setupinteraction
298  [state=start,
299   click=no,
300   color=,
301   contrastcolor=,
302   style=]
303
304% whatever
305
306\definestartstop
307  [notabene]
308  [before=\blank,
309   after=\blank,
310   style=\em]
311
312\setuphyphenation
313  [method=default]
314
315
316\startbuffer[underconstruction]
317\startnotabene
318    This document is still under construction. The functionality discussed here
319    will stay and more might show up. Of course there are errors, and they're all
320    mine. The text is not checked for spelling errors. Feel free to let me know
321    what should get added.
322\stopnotabene
323\stopbuffer
324
325\stopenvironment
326