1\environment back-0 2 3{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 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 |