| … | |
… | |
| 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, |
