Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
} def
END
+o <<END;
+ /Helvetica-Bold findfont 6.5 scalefont setfont
+END
+
sub places ($) {
my ($repi) = @_;
my $data = <<END;
$o .= <<END;
gsave
- /Helvetica-Bold findfont 6.5 scalefont setfont
END
foreach (split /\n/, $data) {
s{\#.*}{};
END
repis();
+
+ o <<END;
+ gsave
+ $paper_x $x_cut sub $y_top 7 sub translate
+
+ gsave
+ arrowlen 2 add neg 0 translate
+ ${\ arrow_any("arrowlen 0 moveto -30 0 rlineto") }
+ grestore
+
+ -40 0 translate
+ /Helvetica-Bold findfont 6.5 scalefont setfont
+
+ 0 0 moveto
+ (+8) show
+ grestore
+END
}
set();