%%BeginSetup
/board {
gsave
- 40 -40 translate
+ 40 -34 translate
END
#o(" 0.52 dup scale\n") if $xopts =~ m/S/;
#o("%%Box 0 0 $xsz $ysz");
o(" $lw setlinewidth 1 setgray\n");
o(" gsave 407 50 translate deckpairpathx stroke grestore");
o(" $lw setlinewidth ",pscolour($c{Colours}{dykefail}),"\n");
- o(" gsave 225 1375 translate 90 rotate deckpairpathx stroke grestore");
+ o(" gsave 225 1355 translate 90 rotate deckpairpathx stroke grestore");
}
sub sea_track(){
my $demo_w = $demo_x0 + $dyke_l * 0.60;
o(" % HS I $colour\n");
o(" gsave\n");
- o(" 550 1710 translate\n");
+ o(" 550 1705 translate\n");
o(" ", ($xi*$interval), " ", (($yi-1)*$interval), " translate\n");
if ($fn) {
o(" gsave");
sub play_hint () {
my $sz = 20;
- o(" gsave 0 setgray 260 1720 translate");
+ o(" gsave 0 setgray 260 1715 translate");
o(" /Helvetica-Bold findfont $sz scalefont setfont");
my @t = split /\n/, $c{PlayHint};
foreach my $i (0..$#t) {