… | |
… | |
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, |
… | |
… | |
537 | # and lastly any markers |
537 | # and lastly any markers |
538 | my $dark_bg = ! ! ($mark & MARK_B); |
538 | my $dark_bg = ! ! ($mark & MARK_B); |
539 | |
539 | |
540 | for ([MARK_CIRCLE, $circle_img[$dark_bg]], |
540 | for ([MARK_CIRCLE, $circle_img[$dark_bg]], |
541 | [MARK_TRIANGLE, $triangle_img[$dark_bg]], |
541 | [MARK_TRIANGLE, $triangle_img[$dark_bg]], |
|
|
542 | [MARK_CROSS, $cross_img[$dark_bg]], |
542 | [MARK_SQUARE, $square_img[$dark_bg]], |
543 | [MARK_SQUARE, $square_img[$dark_bg]], |
543 | [MARK_CROSS, $cross_img[$dark_bg]], |
|
|
544 | [MARK_KO, $square_img[$dark_bg]]) { |
544 | [MARK_KO, $square_img[$dark_bg]]) { |
545 | my ($mask, $img) = @$_; |
545 | my ($mask, $img) = @$_; |
546 | if ($mark & $mask) { |
546 | if ($mark & $mask) { |
547 | $img->composite ( |
547 | $img->composite ( |
548 | $base, 0, 0, $size, $size, 0, 0, |
548 | $base, 0, 0, $size, $size, 0, 0, |
549 | $size / $img->get_width, $size / $img->get_height, |
549 | $size / $img->get_width, $size / $img->get_height, |
550 | 'bilinear', 176 |
550 | 'bilinear', $dark_bg ? 176 : 190 |
551 | ); |
551 | ); |
552 | } |
552 | } |
553 | } |
553 | } |
554 | |
554 | |
555 | push @stack, $base; |
555 | push @stack, $base; |