… | |
… | |
176 | for my $stone ($mark & (MARK_W | MARK_GRAY_W) ? @::white_img : @::black_img) { |
176 | for my $stone ($mark & (MARK_W | MARK_GRAY_W) ? @::white_img : @::black_img) { |
177 | my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 0x00000000; |
177 | my $base = new_pixbuf $size + $shadow, $size + $shadow, 1, 0x00000000; |
178 | |
178 | |
179 | # zeroeth the shadow |
179 | # zeroeth the shadow |
180 | if ($mark & (MARK_B | MARK_W)) { |
180 | if ($mark & (MARK_B | MARK_W)) { |
181 | $::black_img[0]->composite ( |
181 | $::shadow_img->composite ( |
182 | $base, $shadow, $shadow, $size, $size, $shadow, $shadow, |
182 | $base, $shadow, $shadow, $size, $size, $shadow - 0.5, $shadow - 0.5, |
183 | $size / $stone->get_width, $size / $stone->get_height, |
183 | $size / $stone->get_width, $size / $stone->get_height, |
184 | $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192 |
184 | $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192 |
185 | ); |
185 | ); |
186 | } |
186 | } |
187 | |
187 | |