%%BeginSetup
/board {
gsave
- 40 0 translate
+ 40 -40 translate
END
#o(" 0.52 dup scale\n") if $xopts =~ m/S/;
#o("%%Box 0 0 $xsz $ysz");
}
o(" closepath\n");
o(" } bind def");
- o(" gsave 417 50 translate");
+ o(" gsave 407 50 translate");
o(" deckpath stroke\n");
o(" 200 0 translate deckpath stroke\n");
o(" grestore");
- o(" gsave 250 1360 translate 90 rotate");
+ o(" gsave 225 1375 translate 90 rotate");
o(" deckpath stroke\n");
o(" 200 0 translate deckpath stroke\n");
o(" grestore");
sub sea_track(){
o("% sea level track\n");
- o(" gsave 10 660 translate\n");
+ o(" gsave 0 660 translate\n");
my $track = $c{SeaTrack};
my $token_sz = $hs_sz;
my $dy = $token_sz * 1.25;