o(" 1 setgray /Helvetica-Bold findfont $sz scalefont setfont\n");
foreach my $rr (values %region) {
next if $rr->{Special};
+ o(" /words {\n");
my $words = $rr->{DisplayName};
my $pos = $rr->{Centre} + mkvec( 0, 0.5 * $sz * @$words );
foreach my $word (@$words) {
$pos += mkvec(0,-$sz);
o(" ", psvec($pos), " moveto");
o(<<END);
+ 2 copy rmoveto
($word) dup stringwidth pop % word xw
-0.5 mul 0 rmoveto % word
show
0 -$sz rmoveto
END
}
+ o(" } bind def\n");
+ o(" 0 0 words pop pop\n");
}
}