} elsif (s{^\S}{}) {
my $f = $cellmap{$&};
die unless $f;
- $f =~ s/\b\d/ sprintf '%05d', $col*4000 + $&*2001 /ge;
- $f =~ s/\d\b/ sprintf '%05d', $row*4000 + $&*2001 /ge;
+ $f =~ s/\b\d/ sprintf '%05d', $col*4000 + $&*2050 /ge;
+ $f =~ s/\d\b/ sprintf '%05d', $row*4000 + $&*2050 /ge;
push @{ $chrpolys{$chr} }, [ split / /, $f ];
} else {
die "$_ ?";