blob: 0531258274707ca8e0c4973ad2a6870f72e602aa (
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
\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
\setupindenting
[medium,first]
\definecolumnset
[four]
[n=4,
distance=7.5mm]
\definetextbackground
[test]
[location=text,
mp=mpos:par:color,
before=\blank,
after=\blank]
\starttext
\starttexdefinition test #1#2#3
\blank
\bgroup
\dontcomplain
\hangindent#1\relax
\hangafter #2\relax
\parindent #3\relax
\starttextbackground[test]%
\simulatewords[n=200,m=500,min=1,max=5,color=gray]%
\stoptextbackground
\par
\egroup
\blank
\stoptexdefinition
\startcolumnset[four]
\startbuffer[a]
\test {2cm} { -2} { 5mm}
\test {2cm} { -2} { 0cm}
\test {2cm} { -2} {-5mm}
\test {2cm} { -5} { 5mm}
\test {2cm} { -5} { 0cm}
\test {2cm} { -5} {-5mm}
\stopbuffer
\startbuffer[b]
\test {-1cm} { -2} { 5mm}
\test {-1cm} { -2} { 0cm}
\test {-1cm} { -2} {-5mm}
\test {-1cm} { -5} { 5mm}
\test {-1cm} { -5} { 0cm}
\test {-1cm} { -5} {-5mm}
\stopbuffer
\startbuffer[c]
\test { 1cm} { 2} { 5mm}
\test { 1cm} { 2} { 0cm}
\test { 1cm} { 2} {-5mm}
\test { 1cm} { 5} { 5mm}
\test { 1cm} { 5} { 0cm}
\test { 1cm} { 5} {-5mm}
\stopbuffer
\startbuffer[d]
\test {-1cm} { 2} { 5mm}
\test {-1cm} { 2} { 0cm}
\test {-1cm} { 2} {-5mm}
\test {-1cm} { 5} { 5mm}
\test {-1cm} { 5} { 0cm}
\test {-1cm} { 5} {-5mm}
\stopbuffer
\dorecurse{2}{
\dorecurse{1}{\getbuffer[a]}
\dorecurse{1}{\getbuffer[b]}
\dorecurse{1}{\getbuffer[c]}
\dorecurse{1}{\getbuffer[d]}
}
\stopcolumnset
\stoptext
|