| … | |
… | |
| 191 | [MARK_GRAY_B, 128], |
191 | [MARK_GRAY_B, 128], |
| 192 | [MARK_GRAY_W, 128]) { |
192 | [MARK_GRAY_W, 128]) { |
| 193 | my ($mask, $alpha) = @$_; |
193 | my ($mask, $alpha) = @$_; |
| 194 | if ($mark & $mask) { |
194 | if ($mark & $mask) { |
| 195 | $stone->composite ( |
195 | $stone->composite ( |
| 196 | $base, 0, 0, $size, $size, -0.5, -0.5, |
196 | $base, 0, 0, $size, $size, 0, 0, |
| 197 | $size / $stone->get_width, $size / $stone->get_height, |
197 | $size / $stone->get_width, $size / $stone->get_height, |
| 198 | $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, $alpha |
198 | $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, $alpha |
| 199 | ); |
199 | ); |
| 200 | } |
200 | } |
| 201 | } |
201 | } |
| … | |
… | |
| 204 | for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]], |
204 | for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]], |
| 205 | [MARK_SMALL_W, $::white_img[$rand % @::white_img]]) { |
205 | [MARK_SMALL_W, $::white_img[$rand % @::white_img]]) { |
| 206 | my ($mask, $img) = @$_; |
206 | my ($mask, $img) = @$_; |
| 207 | if ($mark & $mask) { |
207 | if ($mark & $mask) { |
| 208 | $img->composite ( |
208 | $img->composite ( |
| 209 | $base, ($size / 4) x2, (int ($size / 2 + 0.5)) x2, ($size / 4 - 0.5) x 2, |
209 | $base, ($size / 4) x2, (int ($size / 2 + 0.5)) x2, ($size / 4) x 2, |
| 210 | $size / $img->get_width / 2, $size / $img->get_height / 2, |
210 | $size / $img->get_width / 2, $size / $img->get_height / 2, |
| 211 | $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192 |
211 | $::config->{speed} ? INTERP_NEAREST : INTERP_BILINEAR, 192 |
| 212 | ); |
212 | ); |
| 213 | } |
213 | } |
| 214 | } |
214 | } |
