… | |
… | |
507 | $size / $shadow_img->get_width, $size / $shadow_img->get_height, |
507 | $size / $shadow_img->get_width, $size / $shadow_img->get_height, |
508 | 'bilinear', 128 |
508 | 'bilinear', 128 |
509 | ); |
509 | ); |
510 | } |
510 | } |
511 | |
511 | |
512 | for ([MARK_B, $mark & MARK_GRAYED ? 96 : 255, 1], |
512 | for ([MARK_B, $mark & MARK_GRAYED ? 106 : 255, 1], |
513 | [MARK_W, $mark & MARK_GRAYED ? 160 : 255, TRAD_SIZE_W / TRAD_SIZE_B]) { |
513 | [MARK_W, $mark & MARK_GRAYED ? 190 : 255, TRAD_SIZE_W / TRAD_SIZE_B]) { |
514 | my ($mask, $alpha, $scale) = @$_; |
514 | my ($mask, $alpha, $scale) = @$_; |
515 | if ($mark & $mask) { |
515 | if ($mark & $mask) { |
516 | $stone->composite ( |
516 | $stone->composite ( |
517 | $base, 0, 0, $csize, $csize, ($size * (1 - $scale) * 0.5 ) x2, |
517 | $base, 0, 0, $csize, $csize, ($size * (1 - $scale) * 0.5 ) x2, |
518 | $size * $scale / $stone->get_width, $size * $scale / $stone->get_height, |
518 | $size * $scale / $stone->get_width, $size * $scale / $stone->get_height, |