Source Browser ?

1
%D \module
2
%D   [       file=mp-abck.mpiv,
3
%D        version=2012.02.19, % was mp-core: 1999.08.01, anchoring
4
%D          title=\CONTEXT\ \METAPOST\ graphics,
5
%D       subtitle=anchored background macros,
6
%D         author=Hans Hagen,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9
%C
10
%C This module is part of the \CONTEXT\ macro||package and is
11
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12
%C details.
13
14
if
 
known
 
context_abck
 
:
 
endinput
 
;
 
fi
 
;
15
16
boolean
 
context_abck
 
;
 
context_abck
 
:
=
 
true
 
;
17
18
path
    
multiregs
[
]
,
    
% region used for multipar (tracing only)
19        
multipars
[
]
,
    
% effective area (shape)
20        
multibox
 
;
      
% main boundingbox (of main region)
21
22
string
  
multikind
[
]
 
;
   
% region state: single | first | middle | last (new method)
23
24
numeric
 
multilocs
[
]
,
    
% 1=begin 2=between 3=end (old method)
25        
nofmultipars
 
;
  
% number of calculated areas
26
27
numeric
 
par_strut_height
,
28        
par_strut_depth
,
29        
par_line_height
 
;
30
31
nofmultipars
     
:
=
 
0
 
;
32
par_strut_height
 
:
=
 
0
 
;
33
par_strut_depth
  
:
=
 
0
 
;
34
par_line_height
  
:
=
 
0
 
;
35
36
def
 
boxgridoptions
 
=
 
withcolor
 
.8
red
   
enddef
 
;
37
def
 
boxlineoptions
 
=
 
withcolor
 
.8
blue
  
enddef
 
;
38
def
 
boxfilloptions
 
=
 
withcolor
 
.8
white
 
enddef
 
;
39
40
numeric
 
boxgridtype
      
;
 
boxgridtype
      
:
=
 
0
 
;
41
numeric
 
boxlinetype
      
;
 
boxlinetype
      
:
=
 
1
 
;
42
numeric
 
boxfilltype
      
;
 
boxfilltype
      
:
=
 
1
 
;
43
numeric
 
boxdashtype
      
;
 
boxdashtype
      
:
=
 
0
 
;
44
pair
    
boxgriddirection
 
;
 
boxgriddirection
 
:
=
 
up
 
;
45
numeric
 
boxgridwidth
     
;
 
boxgridwidth
     
:
=
 
1
pt
 
;
46
numeric
 
boxlinewidth
     
;
 
boxlinewidth
     
:
=
 
1
pt
 
;
47
numeric
 
boxlineradius
    
;
 
boxlineradius
    
:
=
 
0
 
;
48
numeric
 
boxlineoffset
    
;
 
boxlineoffset
    
:
=
 
0
 
;
49
numeric
 
boxfilloffset
    
;
 
boxfilloffset
    
:
=
 
0
 
;
50
numeric
 
boxgriddistance
  
;
 
boxgriddistance
  
:
=
 
.5
cm
 
;
51
numeric
 
boxgridshift
     
;
 
boxgridshift
     
:
=
 
0
 
;
52
53
vardef
 
abck_draw_path
(
expr
 
p
)
 
=
54    
if
 
(
length
 
p
 
>
 
2
)
 
and
 
(
bbwidth
(
p
)
 
>
 
1
)
 
and
 
(
bbheight
(
p
)
 
>
 
1
)
 
:
55        
save
 
pp
 
;
 
path
 
pp
 
;
56        
pp
 
:
=
 
p
 
if
 
(
boxlineradius
>
0
)
 
and
 
(
boxlinetype
=
2
)
 
:
 
cornered
 
boxlineradius
 
fi
 
;
57        
if
 
boxfilltype
 
>
 
0
 
:
58            
if
 
boxfilloffset
 
>
 
0
 
:
59                
interim
 
linejoin
 
:
=
 
mitered
 
;
60                
filldraw
 
pp
 
boxfilloptions
 
withpen
 
pencircle
 
scaled
 
(
2
*
boxfilloffset
)
 
;
61            
else
 
:
62                
fill
 
pp
 
boxfilloptions
 
;
63            
fi
 
;
64        
fi
 
;
65        
if
 
boxlinetype
 
>
 
0
 
:
66            
draw
 
pp
 
boxlineoptions
 
withpen
 
pencircle
 
scaled
 
boxlinewidth
 
;
67        
fi
 
;
68    
fi
 
;
69
enddef
 
;
70
71
def
 
abck_grid_line
(
expr
 
start
,
 
width
)
 
=
72    
% 1 = normal, 2 = with background (i.e. no shine-through)
73    
if
 
boxdashtype
 
=
 
2
 
:
74        
draw
 
start
 
--
 
start
 
shifted
 
(
width
,
0
)
75            
withpen
 
pencircle
 
scaled
 
boxgridwidth
76            
boxfilloptions
 
;
77    
fi
 
;
78    
draw
 
start
 
--
 
start
 
shifted
 
(
width
,
0
)
79        
if
 
boxdashtype
 
>
 
0
 
:
80            
dashed
 
evenly
81        
fi
82        
withpen
 
pencircle
 
scaled
 
boxgridwidth
83        
boxgridoptions
 
;
84
enddef
 
;
85
86
vardef
 
abck_baseline_grid
(
expr
 
pxy
,
 
pdir
,
 
at_baseline
)
 
=
87    
save
 
width
 
;
 
width
 
:
=
 
bbwidth
(
pxy
)
 
;
88    
save
 
height
 
;
 
height
 
:
=
 
bbheight
(
pxy
)
 
;
89    
if
 
(
par_line_height
 
>
 
0
)
 
and
 
(
height
 
>
 
1
)
 
and
 
(
width
 
>
 
1
)
 
and
 
(
boxgridwidth
 
>
 
0
)
 
:
90        
save
 
i
,
 
grid
,
 
bb
 
;
 
picture
 
grid
 
;
 
pair
 
start
 
;
 
path
 
bb
 
;
91        
grid
 
:
=
 
image
 
(
 
% fails with inlinespace
92            
if
 
pdir
 
=
 
up
 
:
93                
for
 
i
 
=
 
if
 
at_baseline
 
:
 
par_strut_depth
 
else
 
:
 
0
 
fi
 
step
 
par_line_height
 
until
 
max
(
height
,
par_line_height
)
 
:
94                    
abck_grid_line
(
llcorner
 
pxy
 
shifted
 
(
0
,
+
i
)
,
width
)
 
;
95                
endfor
 
;
96            
else
 
:
97                
for
 
i
 
=
 
if
 
at_baseline
 
:
 
par_strut_height
 
else
 
:
 
0
 
fi
 
step
 
par_line_height
 
until
 
height
 
:
98                    
abck_grid_line
(
ulcorner
 
pxy
 
shifted
 
(
0
,
-
i
)
,
width
)
 
;
99                
endfor
 
;
100            
fi
 
;
101        
)
 
;
102        
clip
 
grid
 
to
 
pxy
 
;
103        
bb
 
:
=
 
boundingbox
 
grid
 
;
104        
grid
 
:
=
 
grid
 
shifted
 
(
0
,
boxgridshift
)
 
;
105        
setbounds
 
grid
 
to
 
bb
 
;
106        
grid
107    
else
 
:
108        
nullpicture
109    
fi
110
enddef
 
;
111
112
vardef
 
abck_graphic_grid
(
expr
 
pxy
,
 
dx
,
 
dy
,
 
x
,
 
y
)
 
=
113    
if
 
(
bbheight
(
pxy
)
 
>
 
dy
)
 
and
 
(
bbwidth
(
pxy
)
 
>
 
dx
)
 
and
 
(
boxgridwidth
 
>
 
0
)
 
:
114        
save
 
grid
 
;
 
picture
 
grid
 
;
115        
grid
 
:
=
 
image
 
(
116            
for
 
i
 
=
 
xpart
 
llcorner
 
pxy
 
step
 
dx
 
until
 
xpart
 
lrcorner
 
pxy
 
:
117                
draw
 
(
i
,
ypart
 
llcorner
 
pxy
)
 
--
 
(
i
,
ypart
 
ulcorner
 
pxy
)
 
withpen
 
pencircle
 
scaled
 
boxgridwidth
 
;
118            
endfor
 
;
119            
for
 
i
 
=
 
ypart
 
llcorner
 
pxy
 
step
 
dy
 
until
 
ypart
 
ulcorner
 
pxy
 
:
120                
draw
 
(
xpart
 
llcorner
 
pxy
,
i
)
 
--
 
(
xpart
 
lrcorner
 
pxy
,
i
)
 
withpen
 
pencircle
 
scaled
 
boxgridwidth
 
;
121            
endfor
122        
)
 
shifted
 
(
x
,
y
)
 
;
123        
clip
 
grid
 
to
 
pxy
 
;
124        
grid
125    
else
 
:
126        
nullpicture
127    
fi
128
enddef
 
;
129
130
def
 
draw_multi_pars
 
=
131    
for
 
i
=
1
 
upto
 
nofmultipars
 
:
132        
abck_draw_path
(
multipars
[
i
]
)
 
;
133        
if
 
boxgridtype
 
=
 
1
 
:
134            
draw
 
abck_baseline_grid
(
multipars
[
i
]
,
if
 
multilocs
[
i
]
=
1
:
 
down
 
else
:
 
up
 
fi
,
true
)
 
;
135        
elseif
 
boxgridtype
 
=
 
2
 
:
136            
draw
 
abck_baseline_grid
(
multipars
[
i
]
,
if
 
multilocs
[
i
]
=
1
:
 
down
 
else
:
 
up
 
fi
,
false
)
 
;
137        
elseif
 
boxgridtype
 
=
 
3
 
:
138            
draw
 
abck_baseline_grid
(
multipars
[
i
]
,
if
 
multilocs
[
i
]
=
1
:
 
down
 
else
:
 
up
 
fi
,
true
)
 
;
139            
draw
 
abck_baseline_grid
(
multipars
[
i
]
,
if
 
multilocs
[
i
]
=
1
:
 
down
 
else
:
 
up
 
fi
,
true
)
 
shifted
 
(
0
,
ExHeight
)
 
;
140        
elseif
 
boxgridtype
 
=
 
4
 
:
141            
draw
 
abck_baseline_grid
(
multipars
[
i
]
,
if
 
multilocs
[
i
]
=
1
:
 
down
 
else
:
 
up
 
fi
,
true
)
 
shifted
 
(
0
,
ExHeight
/
2
)
 
;
142        
elseif
 
boxgridtype
 
=
 
11
 
:
143            
draw
 
abck_graphic_grid
(
multipars
[
i
]
,
boxgriddistance
,
boxgriddistance
,
boxgriddistance
/
2
,
boxgriddistance
/
2
)
 
;
144        
elseif
 
boxgridtype
 
=
 
12
 
:
145            
draw
 
abck_graphic_grid
(
multipars
[
i
]
,
boxgriddistance
,
boxgriddistance
,
0
,
0
)
 
;
146        
fi
 
;
147    
endfor
 
;
148
enddef
 
;
149
150
def
 
show_multi_pars
 
=
151    
for
 
i
=
1
 
upto
 
nofmultipars
 
:
152        
drawpathwithpoints
 
multipars
[
i
]
 
withcolor
 
.5
blue
 
;
153    
endfor
 
;
154
enddef
 
;
155
156
def
 
show_multi_kind
 
=
157    
for
 
i
=
1
 
upto
 
nofmultipars
 
:
158        
fill
 
multipars
[
i
]
159            
withcolor
160                
if
      
multikind
[
i
]
 
=
 
"
single
"
 
:
 
yellow
161                
elseif
  
multikind
[
i
]
 
=
 
"
first
"
  
:
 
red
162                
elseif
  
multikind
[
i
]
 
=
 
"
middle
"
 
:
 
green
163                
elseif
  
multikind
[
i
]
 
=
 
"
last
"
   
:
 
blue
164                
fi
165            
withtransparency
 
(
1
,
.5
)
166        
;
167    
endfor
 
;
168
enddef
 
;
169
170
def
 
multi_side_draw_options
 
=
 
enddef
 
;
171
172
def
 
draw_multi_side
 
=
173    
begingroup
 
;
 
save
 
p
 
;
 
picture
 
p
 
;
174    
for
 
i
=
1
 
upto
 
nofmultipars
 
:
175        
p
 
:
=
 
image
 
(
 
fill
 
leftboundary
 
multipars
[
i
]
176            
shifted
 
(
-
boxlineoffset
,
0
)
177            
rightenlarged
 
boxlinewidth
 
boxlineoptions
 
;
178        
)
 
;
179        
setbounds
 
p
 
to
 
multipars
[
i
]
 
;
180        
draw
 
p
 
;
181    
endfor
 
;
182    
endgroup
 
;
183
enddef
 
;
184
185
def
 
draw_multi_side_path
 
text
 
t
 
=
186    
begingroup
 
;
 
save
 
p
 
;
 
picture
 
p
 
;
187    
for
 
i
=
1
 
upto
 
nofmultipars
 
:
188        
p
 
:
=
 
image
 
(
 
draw
 
leftboundary
 
multipars
[
i
]
189            
shifted
 
(
-
boxlineoffset
,
0
)
190            
withpen
 
pensquare
 
scaled
 
boxlinewidth
 
boxlineoptions
 
t
 
;
191        
)
 
;
192        
setbounds
 
p
 
to
 
multipars
[
i
]
 
;
193        
draw
 
p
 
;
194    
endfor
 
;
195    
endgroup
 
;
196
enddef
 
;
197
198
% some extras
199
200
path
    
posboxes
[
]
,
201        
posregions
[
]
 
;
202
203
numeric
 
multipages
[
]
,
204        
nofposboxes
 
;
205
206
nofposboxes
 
:
=
 
0
 
;
207
208
% For the moment we keep these as they can be in use but they will
209
% disappear.
210
211
pair
    
lxy
[
]
,
 
rxy
[
]
,
 
cxy
[
]
,
 
llxy
[
]
,
 
lrxy
[
]
,
 
ulxy
[
]
,
 
urxy
[
]
 
;
212
path
    
pxy
[
]
 
;
213
numeric
 
hxy
[
]
,
 
wxy
[
]
,
 
dxy
[
]
,
 
nxy
[
]
 
;
214
215
def
 
box_found
 
(
expr
 
n
,
x
,
y
,
w
,
h
,
d
)
 
=
216    
not
 
(
(
x
=
0
)
 
and
 
(
y
=
0
)
 
and
 
(
w
=
0
)
 
and
 
(
h
=
0
)
 
and
 
(
d
=
0
)
)
217
enddef
 
;
218
219
def
 
initialize_box_pos
 
(
expr
 
pos
,
n
,
x
,
y
,
w
,
h
,
d
)
 
=
220    
pair
 
lxy
,
 
rxy
,
 
cxy
,
 
llxy
,
 
lrxy
,
 
ulxy
,
 
urxy
 
;
221    
path
 
pxy
 
;
 
numeric
 
hxy
,
 
wxy
,
 
dxy
,
 
nxy
;
222    
lxy
  
:
=
 
(
x
,
y
)
 
;
223    
llxy
 
:
=
 
(
x
,
y
-
d
)
 
;
224    
lrxy
 
:
=
 
(
x
+
w
,
y
-
d
)
 
;
225    
urxy
 
:
=
 
(
x
+
w
,
y
+
h
)
 
;
226    
ulxy
 
:
=
 
(
x
,
y
+
h
)
 
;
227    
wxy
  
:
=
 
w
 
;
228    
hxy
  
:
=
 
h
 
;
229    
dxy
  
:
=
 
d
 
;
230    
rxy
  
:
=
 
lxy
 
shifted
 
(
wxy
,
0
)
 
;
231    
pxy
  
:
=
 
llxy
-
-
lrxy
-
-
urxy
-
-
ulxy
-
-
cycle
 
;
232    
cxy
  
:
=
 
center
 
pxy
 
;
233    
nxy
  
:
=
 
n
 
;
234    
freeze_box
(
pos
)
 
;
235
enddef
 
;
236
237
def
 
freeze_box
 
(
expr
 
pos
)
 
=
238    
lxy
[
pos
]
  
:
=
 
lxy
  
;
239    
llxy
[
pos
]
 
:
=
 
llxy
 
;
240    
lrxy
[
pos
]
 
:
=
 
lrxy
 
;
241    
urxy
[
pos
]
 
:
=
 
urxy
 
;
242    
ulxy
[
pos
]
 
:
=
 
ulxy
 
;
243    
wxy
[
pos
]
  
:
=
 
wxy
  
;
244    
hxy
[
pos
]
  
:
=
 
hxy
  
;
245    
dxy
[
pos
]
  
:
=
 
dxy
  
;
246    
rxy
[
pos
]
  
:
=
 
rxy
  
;
247    
pxy
[
pos
]
  
:
=
 
pxy
  
;
248    
cxy
[
pos
]
  
:
=
 
cxy
  
;
249    
nxy
[
pos
]
  
:
=
 
nxy
  
;
250
enddef
 
;
251
252
def
 
initialize_box
 
(
expr
 
n
,
x
,
y
,
w
,
h
,
d
)
 
=
253    
numeric
 
bpos
 
;
 
bpos
 
:
=
 
0
 
;
 
initialize_box_pos
(
bpos
,
n
,
x
,
y
,
w
,
h
,
d
)
 
;
254
enddef
 
;
255
256
def
 
anchor_box
 
(
expr
 
n
,
x
,
y
,
w
,
h
,
d
)
 
=
257    
currentpicture
 
:
=
 
currentpicture
 
shifted
 
(
-
x
,
-
y
)
 
;
258
enddef
 
;
259
260
def
 
draw_box
 
=
 
% for old times sake
261    
draw
 
pxy
        
boxlineoptions
 
withpen
 
pencircle
 
scaled
 
boxlinewidth
 
;
262    
draw
 
lxy
 
--
 
rxy
 
boxlineoptions
 
withpen
 
pencircle
 
scaled
 
boxgridwidth
 
;
263
enddef
 
;
264
265
def
 
draw_free_region
(
expr
 
width
,
 
height
,
 
depth
,
 
loffset
,
 
roffset
,
 
toffset
,
 
boffset
)
 
=
266
267    
begingroup
 
;
 
save
 
b
,
 
o
,
 
l
 
;
 
path
 
b
,
 
o
,
 
l
[
]
 
;
 
save
 
d
 
;
268
269    
b
 
:
=
 
fullsquare
270        
xysized
(
width
,
height
+
depth
)
 
;
271    
o
 
:
=
 
b
272        
topenlarged
    
toffset
273        
bottomenlarged
 
boffset
274        
leftenlarged
   
loffset
275        
rightenlarged
  
roffset
 
;
276    
d
 
:
=
 
max
(
PaperWidth
,
PaperHeight
)
 
;
277
278    
fill
 
o
 
withcolor
 
.5
white
 
;
279    
fill
 
b
 
withcolor
 
.7
white
 
;
280
281    
interim
 
linecap
 
:
=
 
butt
 
;
282
283    
l
[
1
]
 
:
=
 
topboundary
    
(
topboundary
    
o
 
leftenlarged
 
d
 
rightenlarged
  
d
)
 
;
284    
l
[
2
]
 
:
=
 
bottomboundary
 
(
bottomboundary
 
o
 
leftenlarged
 
d
 
rightenlarged
  
d
)
 
;
285    
l
[
3
]
 
:
=
 
leftboundary
   
(
leftboundary
   
o
 
topenlarged
  
d
 
bottomenlarged
 
d
)
 
;
286    
l
[
4
]
 
:
=
 
rightboundary
  
(
rightboundary
  
o
 
topenlarged
  
d
 
bottomenlarged
 
d
)
 
;
287
288    
for
 
i
=
1
 
upto
 
4
 
:
289        
draw
 
l
[
i
]
 
withpen
 
pencircle
 
scaled
 
1
bp
 
withcolor
 
white
 
;
290        
draw
 
l
[
i
]
 
withpen
 
pencircle
 
scaled
 
1
bp
 
dashed
 
(
evenly
 
scaled
 
1
bp
)
 
withcolor
 
black
 
;
291    
endfor
 
;
292
293    
setbounds
 
currentpicture
 
to
 
b
 
;
294
295    
endgroup
 
;
296
297
enddef
 
;
298
299