blob: 7fa6cb313a95058aeb12ebd62d526989ceef658d (
plain)
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
% content=tex
%
% copyright=pragma-ade readme=readme.pdf licence=cc-by-nc-sa
\environment columnsets-000
\startuseMPgraphic{mpos:par:columns}
path p ; numeric h ;
for i=1 upto nofmultipars :
p := multipars[i] ;
h := bbheight(p) ;
if multikind[i] = "single" :
fill p topenlarged -.5h
withshademethod "linear"
withshadedirection shadedup
withcolor \MPcolor{color-1} shadedinto white ;
fill p bottomenlarged -.5h
withshademethod "linear"
withshadedirection shadedup
withcolor white shadedinto \MPcolor{color-1} ;
elseif multikind[i] = "first" :
fill p
withshademethod "linear"
withshadedirection shadedup
withcolor \MPcolor{color-2} shadedinto white ;
elseif multikind[i] = "middle" :
fill p topenlarged -.5h
withshademethod "linear"
withshadedirection shadedup
withcolor \MPcolor{color-2} shadedinto white ;
fill p bottomenlarged -.5h
withshademethod "linear"
withshadedirection shadedup
withcolor white shadedinto \MPcolor{color-3} ;
elseif multikind[i] = "last" :
fill p
withshademethod "linear"
withshadedirection shadedup
withcolor white shadedinto \MPcolor{color-3} ;
fi ;
endfor ;
\stopuseMPgraphic
\definecolumnset
[example]
[n=4,
page=left]
\definetextbackground
[shade]
[location=paragraph,
mp=mpos:par:columns,
before=\blank,
after=\blank]
\starttext
\startcolumnset[example]
\dorecurse {40} {
\starttextbackground[shade]
\fakewords{10}{200}
\stoptextbackground
\par
}
\stopcolumnset
\stoptext
|