Source Browser ?

1% language=us
2
3% this a rather old style and made for mkii, currently the only adaption to mkiv is
4% with respect to fonts
5
6\showgrid
7
8\startenvironment details-environment
9
10\usemodule[abr-02,simulate] % visual
11
12\setupsystem
13  [random=123]
14
15\setupinteraction
16  [state=start,
17   style=,
18   color=]
19
20\setuplist
21  [chapter]
22  [interaction=all]
23
24\setupalign
25  [verytolerant,
26   stretch,
27   hanging]
28
29\setuptolerance
30  [verytolerant,
31   stretch]
32
33\definefontfeature
34  [fullprotrusion]
35  [protrusion=pure]
36
37\definefontfeature[default][default,fullprotrusion]
38
39\setupbodyfont[modernvariable,12pt]
40
41\setuppagenumbering
42  [alternative=doublesided]
43
44\setupindenting
45  [medium]
46
47\setuptyping
48  [margin=standard]
49
50\setuptyping
51  [color=blue]
52
53\setuptype
54  [color=blue]
55
56\startmode [screen]
57    \definepapersize[A4-S][width=210mm,height=210mm]
58    \setuppapersize[A4-S][A4-S]
59\stopmode
60
61\setuplayout
62  [header=3cm,
63   footer=0pt,
64   topspace=0cm,
65   bottomspace=2cm,
66   bottom=2cm,
67   bottomdistance=0pt,
68   height=middle,
69   margindistance=.5cm,
70   leftmargin=2.0cm,
71   rightmargin=2.5cm,
72   backspace=2.5cm,
73   cutspace=3cm,
74   width=middle,
75   lines=48, % otherwise background issue
76%    textdistance=\dimexpr-\topskip+\strutheight+.5cm\relax,
77   grid=yes]
78
79\setuplayout
80  [margindistance=.5cm,
81   edgedistance=.25cm,
82   rightmargin=1cm,
83   rightedge=.75cm,
84   leftmargin=1cm,
85   leftedge=.5cm]
86
87\setuppagenumbering
88  [location=]
89
90\definecolor[red]      [r=.5]
91\definecolor[blue]     [b=.5]
92\definecolor[green]    [g=.5]
93\definecolor[yellow]   [r=.5,g=.5]
94\definecolor[gray]     [s=.5]
95
96\definecolor[tred]     [r=.5,t=.5,a=1]
97\definecolor[tblue]    [b=.5,t=.5,a=1]
98\definecolor[tgreen]   [g=.5,t=.5,a=1]
99\definecolor[tyellow]  [r=.5,g=.5,t=.5,a=1]
100\definecolor[twhite]   [s=0,t=.5,a=1]
101
102\definecolor[infogray] [g=.5,t=.5,a=1]
103\definecolor[infogray] [s=.7,t=.5,a=1]
104\definecolor[pagegray] [y=.5,t=.5,a=1]
105\definecolor[textgray] [s=.9,t=.5,a=1]
106\definecolor[areafill] [g=.5,t=.125,a=1]
107\definecolor[areafill] [b=.5,t=.125,a=1]
108
109\definecolor[fakerulecolor]     [green]
110\definecolor[fakeparindentcolor][blue]
111
112\definefont[BigNumber][RegularBold sa 4] % 5
113\definefont[BigText]  [RegularBold sa 2]
114\definefont[MedNumber][RegularBold sa 2]
115
116\startbuffer[regular:sizes]
117\definefont[regular:1][Regular*default sa 1]
118\definefont[regular:2][Regular*default sa 2]
119\definefont[regular:3][Regular*default sa 3]
120\definefont[regular:4][Regular*default sa 4]
121\stopbuffer
122
123\getbuffer[regular:sizes]
124
125\useMPlibrary[dum]
126
127\definecolor[p-red]      [r=1]
128\definecolor[p-blue]     [b=1]
129\definecolor[p-yellow]   [r=1,g=1]
130
131\definepalet
132  [placeholder]
133  [1=p-red,2=p-blue,3=p-yellow]
134
135\definelayer
136  [graphics]
137  [position=yes]
138
139\setupbackgrounds
140  [page]
141  [background={color,graphics},
142   backgroundoffset=1cm,
143   backgroundcolor=pagegray]
144
145\definelayer
146  [extras]
147  [width=\paperwidth,height=\paperheight]
148
149\setupbackgrounds
150  [leftpage]
151  [background=extras]
152
153\setupbackgrounds
154  [rightpage]
155  [background=extras]
156
157\definelayer % we need to compensate the backgroundoffset
158  [text]
159  [hoffset=1cm,
160   voffset=1cm]
161
162\setupbackgrounds
163  [text]
164  [background={color,text},
165   backgroundoffset=1cm,
166   backgroundcolor=textgray]
167
168% chapter head
169
170\setuphead
171  [chapter]
172  [placehead=empty,
173   header=chapter,
174   incrementnumber=details,
175   style=\BigText,
176   numberstyle=\BigNumber]
177
178% we need to check each file
179%
180% \setuphead
181%   [chapter]
182%   [beforesection=\page,
183%    aftersection=\page]
184
185\definetext
186  [chapter]
187  [header]
188  [\setups{chapter}]
189  []
190
191\definelayer
192  [chapter]
193  [width=\dimexpr\makeupwidth+\cutspace\relax,
194   height=\headerheight]
195
196\startsetups chapter
197    \setups[chapter:title]
198    \setups[chapter:number]
199    \setups[chapter:finish]
200\stopsetups
201
202% here we can use mp instead but the following is not that bad either
203
204\startsetups chapter:title
205
206  \setlayerframed
207    [chapter]
208    [x=\dimexpr\makeupwidth+\cutspace\relax,
209     location=lb]
210    [height=\headerheight,
211     foregroundcolor=white,
212     background=color,
213     backgroundcolor=blue,
214     frame=off,
215     offset=none,
216     align={right,lohi}]
217    {\hbox spread .5\cutspace
218       {\hss
219        \doiftextelse{\placeheadtext[chapter]}%
220          {\placeheadtext[chapter]}%
221          {\placeheadtext[title]}%
222        \hss}\space
223     \vskip.5cm}
224
225\stopsetups
226
227\startsetups chapter:number
228
229  \setlayerframed
230    [chapter]
231    [x=\dimexpr\makeupwidth+\cutspace\relax,
232     y=\vsize,
233     location=lb]
234    [width=\dimexpr\cutspace-\rightmargindistance\relax,
235     height=\dimexpr\cutspace-\rightmargindistance\relax,
236     foregroundcolor=white,
237     background=color,
238     backgroundcolor=red,
239     frame=off,
240     offset=none,
241     align={middle,lohi}]
242    {\hbox to \hsize
243       {\hskip.5cm\hss
244        \doifmode{*bodypart}{\placeheadnumber[chapter]}%
245        \hss}}
246
247\stopsetups
248
249\startsetups chapter:finish
250
251  \framed
252    [width=\makeupwidth,
253     height=\headerheight,
254     background=chapter,
255     frame=off]
256    {}
257
258\stopsetups
259
260% page number
261
262\defineframedtext
263  [pagenumbertext]
264  [align={lohi,middle},
265   width=\dimexpr\cutspace-\margindistance\relax, % \hsize,
266   height=\vsize,
267   background=color,
268   backgroundcolor=green,
269   style=\MedNumber,
270   color=white,
271   offset=none,
272   frame=off]
273
274\setupbottomtexts
275  [margin]
276  []
277  [\pagenumbertext{\hbox to \hsize{\hskip.5cm\hss\placepagenumber\hss}}]
278  [\pagenumbertext{\hbox to \hsize{\hss\placepagenumber\hss\hskip.5cm}}]
279  []
280
281% area
282
283\setupbackgrounds [text] [leftedge]    [backgroundoffset=0pt,backgroundcolor=areafill]
284\setupbackgrounds [text] [rightedge]   [backgroundoffset=0pt,backgroundcolor=areafill]
285\setupbackgrounds [text] [leftmargin]  [backgroundoffset=0pt,backgroundcolor=areafill]
286\setupbackgrounds [text] [rightmargin] [backgroundoffset=0pt,backgroundcolor=areafill]
287
288% grids
289
290\setuptextbackground
291  [grid]
292  [state=start]
293
294% intros
295
296% \definetextbackground
297%   [intro]
298%   [backgroundcolor=infogray, % green,
299%    backgroundoffset=.25cm,
300%    offset=.5cm,
301%    frame=off,
302%    color=white]
303
304\setuplist
305  [chapter]
306  [before=,
307   after=,
308   alternative=c,
309   aligntitle=yes]
310
311\startsectionblockenvironment [backpart]
312
313  \writebetweenlist[chapter]{\blank}
314
315\stopsectionblockenvironment
316
317\stopenvironment
318