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