… | |
… | |
654 | unless ($$c) { |
654 | unless ($$c) { |
655 | for my $stone ($mark & (MARK_W | MARK_GRAY_W) ? @::white_img : @::black_img) { |
655 | for my $stone ($mark & (MARK_W | MARK_GRAY_W) ? @::white_img : @::black_img) { |
656 | my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 1; |
656 | my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 1; |
657 | |
657 | |
658 | # zeroeth the shadow |
658 | # zeroeth the shadow |
|
|
659 | if ($mark & (MARK_B | MARK_W)) { |
659 | $::black_img[0]->composite ( |
660 | $::black_img[0]->composite ( |
660 | $base, $shadow, $shadow, $size, $size, $shadow-0.5, $shadow-0.5, |
661 | $base, $shadow, $shadow, $size, $size, $shadow-0.5, $shadow-0.5, |
661 | $size / $stone->get_width, $size / $stone->get_height, |
662 | $size / $stone->get_width, $size / $stone->get_height, |
662 | $::config{speed} ? INTERP_NEAREST : INTERP_TILES, 128 |
663 | $::config{speed} ? INTERP_NEAREST : INTERP_TILES, 128 |
663 | ); |
664 | ); |
|
|
665 | } |
664 | |
666 | |
665 | # first the big stones |
667 | # first the big stones |
666 | for ([MARK_B, 255], |
668 | for ([MARK_B, 255], |
667 | [MARK_W, 255], |
669 | [MARK_W, 255], |
668 | [MARK_GRAY_B, 128], |
670 | [MARK_GRAY_B, 128], |