summaryrefslogtreecommitdiff
path: root/doc/context/sources/general/manuals/details/back-4.tex
blob: 217525ed8241ac20167cba16ee10865437ab2896 (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
\environment back-0

\startuseMPgraphic{mpos:par:color}
  for i=1 upto nofmultipars :
    fill multipars[i] withcolor
      if     multikind[i]="single" : "darkgray" ;
      elseif multikind[i]="first"  : "red" ;
      elseif multikind[i]="middle" : "green" ;
      elseif multikind[i]="last"   : "blue" ;
      else                         : "black" ;
      fi ;
  endfor ;
\stopuseMPgraphic

\definecolumnset
  [three]
  [n=3,
   distance=5mm]

\definetextbackground
  [shade]
  [location=paragraph,
   mp=mpos:par:color,
   before=\blank,
   after=\blank]

\starttext

\startcolumnset[three]

  \dorecurse {20} {
    \starttextbackground[shade]
      \simulatewords[n=50,m=500,min=1,max=5,color=gray]%
    \stoptextbackground
  }

\stopcolumnset

\stoptext