| … | |
… | |
| 775 | $::board_img->copy_area (0, 0, $s, $s, $pixbuf, 0, 0); |
775 | $::board_img->copy_area (0, 0, $s, $s, $pixbuf, 0, 0); |
| 776 | } else { |
776 | } else { |
| 777 | $pixbuf = scale_pixbuf $::board_img, $s, $s, INTERP_TILES; |
777 | $pixbuf = scale_pixbuf $::board_img, $s, $s, INTERP_TILES; |
| 778 | } |
778 | } |
| 779 | |
779 | |
| 780 | my $linew = int ($s / 300); |
780 | my $linew = int ($s / 500); |
| 781 | |
781 | |
| 782 | my $a = "A"; |
782 | my $a = "A"; |
| 783 | for my $i (1 .. $size) { |
783 | for my $i (1 .. $size) { |
| 784 | pixbuf_rect $pixbuf, $k[$i] - $linew, $k[1] - $linew, $k[$i] + $linew, $k[$size] + $linew; |
784 | pixbuf_rect $pixbuf, $k[$i] - $linew, $k[1] - $linew, $k[$i] + $linew, $k[$size] + $linew; |
| 785 | pixbuf_rect $pixbuf, $k[1] - $linew, $k[$i] - $linew, $k[$size] + $linew, $k[$i] + $linew; |
785 | pixbuf_rect $pixbuf, $k[1] - $linew, $k[$i] - $linew, $k[$size] + $linew, $k[$i] + $linew; |
