1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
% content=tex
%
% copyright=pragma-ade readme=readme.pdf licence=cc-by-nc-sa
\definecolor[shadecolor][r=.5,g=.5,b=.25] % yellow
\startuseMPgraphic{mpos:par:columnset:shade}
path p, q, r ; numeric h ;
for i=1 upto nofmultipars :
p := multipars[i] ;
h := bbheight(p) ;
q := multipars[i] topenlarged -.5h ;
r := multipars[i] bottomenlarged -.5h ;
if one_piece_multi_par :
linear_shade(q,8,white,boxfillcolor) ;
linear_shade(r,8,boxfillcolor,white) ;
elseif multilocs[i] = 1 :
linear_shade(p,8,boxfillcolor,white) ;
elseif multilocs[i] = 2 :
linear_shade(q,8,boxfillcolor,white) ;
linear_shade(r,8,white,boxfillcolor) ;
else :
linear_shade(p,8,white,boxfillcolor) ;
fi ;
endfor ;
\stopuseMPgraphic
\definecolumnset
[example]
[n=4]
\definetextbackground
[shade]
[location=paragraph,
backgroundcolor=shadecolor,
mp=mpos:par:columnset:shade,
method=mpos:par:columnset,
leftoffset=\topskipgap,
before=\blank,
after=\blank]
\starttext
\startcolumnset[example]
\dorecurse{40}
{\starttextbackground[shade]
\fakewords{10}{200}
\stoptextbackground}
\stopcolumnset
\stoptext
|