Source Browser ?

1\environment back-0
2
3\startuseMPgraphic{mpos:par:color}
4  for i=1 upto nofmultipars :
5    fill multipars[i] withcolor
6      if     multikind[i]="single" : "darkgray" ;
7      elseif multikind[i]="first"  : "red" ;
8      elseif multikind[i]="middle" : "green" ;
9      elseif multikind[i]="last"   : "blue" ;
10      else                         : "black" ;
11      fi ;
12  endfor ;
13\stopuseMPgraphic
14
15\setupindenting
16  [medium,first]
17
18\definecolumnset
19  [four]
20  [n=4,
21   distance=7.5mm]
22
23\definetextbackground
24  [test]
25  [location=text,
26   mp=mpos:par:color,
27   before=\blank,
28   after=\blank]
29
30\starttext
31
32\starttexdefinition test #1#2#3
33  \blank
34  \bgroup
35    \dontcomplain
36    \hangindent#1\relax
37    \hangafter #2\relax
38    \parindent #3\relax
39    \starttextbackground[test]%
40      \simulatewords[n=200,m=500,min=1,max=5,color=gray]%
41    \stoptextbackground
42    \par
43  \egroup
44  \blank
45\stoptexdefinition
46
47\startcolumnset[four]
48
49\startbuffer[a]
50\test  {2cm} { -2} { 5mm}
51\test  {2cm} { -2} { 0cm}
52\test  {2cm} { -2} {-5mm}
53
54\test  {2cm} { -5} { 5mm}
55\test  {2cm} { -5} { 0cm}
56\test  {2cm} { -5} {-5mm}
57
58\stopbuffer
59
60\startbuffer[b]
61\test {-1cm} { -2} { 5mm}
62\test {-1cm} { -2} { 0cm}
63\test {-1cm} { -2} {-5mm}
64
65\test {-1cm} { -5} { 5mm}
66\test {-1cm} { -5} { 0cm}
67\test {-1cm} { -5} {-5mm}
68\stopbuffer
69
70\startbuffer[c]
71\test { 1cm} {  2} { 5mm}
72\test { 1cm} {  2} { 0cm}
73\test { 1cm} {  2} {-5mm}
74
75\test { 1cm} {  5} { 5mm}
76\test { 1cm} {  5} { 0cm}
77\test { 1cm} {  5} {-5mm}
78\stopbuffer
79
80\startbuffer[d]
81\test {-1cm} {  2} { 5mm}
82\test {-1cm} {  2} { 0cm}
83\test {-1cm} {  2} {-5mm}
84
85\test {-1cm} {  5} { 5mm}
86\test {-1cm} {  5} { 0cm}
87\test {-1cm} {  5} {-5mm}
88\stopbuffer
89
90\dorecurse{2}{
91    \dorecurse{1}{\getbuffer[a]}
92    \dorecurse{1}{\getbuffer[b]}
93    \dorecurse{1}{\getbuffer[c]}
94    \dorecurse{1}{\getbuffer[d]}
95}
96
97\stopcolumnset
98
99\stoptext
100