.nr Bz \\$2
.sy \\*(Bp -s -\\*(Bf -d\\n(Bz \\$1 | awk '{\
print ".nr \\$3 " $1; \
print ".nr \\$4 " $2; \
exit }' >\\*(Bn
.so \\*(Bn
.sy /bin/rm -f \\*(Bn \}
.nr Bz \\$2
.sy \\*(Bp -s -\\*(Bf -d\\n(Bz \\$1 | awk '{\
print ".nr \\$4 " $1 "/\\$3"; \
print ".nr \\$5 " $2 "/\\$3"; \
exit }' >\\*(Bn
.so \\*(Bn
.sy /bin/rm -f \\*(Bn \}
..
.fl
\\X'Bitmap \\$1' .sy \\*(Bp -\\*(Bf -d\\$2 \\$1 >\\*(Bn .fp 9 BM Bitmap .cf \\*(Bn \" next line is for pm to consume \!n0 1 .sy /bin/rm -f \\*(Bn \} .fl \} ..