$name =~ /e(\d+)-(\d+)/;
my ($e, $s) = ($1, $2);
- my $x = int(202 + $e * 8.25);
+ my $x = int(244 + $e * 9.87);
my $y;
$x += 7 if ($e >= 19);
$c = $e;
$d = ($s - 1) * 64;
- $y = 470 - $s * 48;
+ $y = 455 - $s * 48;
} else {
$c = $e + 1;
$d = ($s - 4) * 64;
- $y = 400 - $s * 48 - ($s - 3) * 2;
+ $y = 424 - $s * 48 - ($s - 3) * 2;
}
my $xx = $x + 12;