| … | |
… | |
| 519 | ); |
519 | ); |
| 520 | } |
520 | } |
| 521 | } |
521 | } |
| 522 | |
522 | |
| 523 | # then the small stones (always using the first image) |
523 | # then the small stones (always using the first image) |
| 524 | for ([MARK_SMALL_B, $black_img[0]], |
524 | for ([MARK_SMALL_B, $mark & MARK_GRAYED ? 106 : 255, $black_img[0]], |
| 525 | [MARK_SMALL_W, $white_img[0]]) { |
525 | [MARK_SMALL_W, $mark & MARK_GRAYED ? 190 : 255,$white_img[0]]) { |
| 526 | my ($mask, $img) = @$_; |
526 | my ($mask, $alpha, $img) = @$_; |
| 527 | if ($mark & $mask) { |
527 | if ($mark & $mask) { |
| 528 | $img->composite ( |
528 | $img->composite ( |
| 529 | $base, ($size / 4) x2, (ceil $size / 2 + 1) x2, ($size / 4) x2, |
529 | $base, ($size / 4) x2, (ceil $size / 2 + 1) x2, ($size / 4) x2, |
| 530 | $size / $img->get_width / 2, $size / $img->get_height / 2, |
530 | $size / $img->get_width / 2, $size / $img->get_height / 2, |
| 531 | 'bilinear', 255 |
531 | 'bilinear', $alpha |
| 532 | ); |
532 | ); |
| 533 | } |
533 | } |
| 534 | } |
534 | } |
| 535 | |
535 | |
| 536 | # and finally any markers |
536 | # and finally any markers |
