| … | |
… | |
| 758 | |
758 | |
| 759 | my $size = $self->{size}; |
759 | my $size = $self->{size}; |
| 760 | |
760 | |
| 761 | my $border = int ($s / $size); |
761 | my $border = int ($s / $size); |
| 762 | my $s2 = $s - $border * 2; |
762 | my $s2 = $s - $border * 2; |
| 763 | my $edge = int ($s2 / $size) | 1; |
763 | my $edge = int ($s2 / $size * 0.97); |
| 764 | my $ofs = int ($edge / 2); |
764 | my $ofs = int ($edge / 2); |
| 765 | |
765 | |
| 766 | my @k = map int ($s2 * $_ / $size - $ofs + $border + 0.5), 0 .. $size; |
766 | my @k = map int ($s2 * $_ / $size - $ofs + $border + 0.5), 0 .. $size; |
| 767 | |
767 | |
| 768 | unless ($self->{background}) { |
768 | unless ($self->{background}) { |
