| … | |
… | |
| 118 | for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]], |
118 | for ([MARK_SMALL_B, $::black_img[$rand % @::black_img]], |
| 119 | [MARK_SMALL_W, $::white_img[$rand % @::white_img]]) { |
119 | [MARK_SMALL_W, $::white_img[$rand % @::white_img]]) { |
| 120 | my ($mask, $img) = @$_; |
120 | my ($mask, $img) = @$_; |
| 121 | if ($mark & $mask) { |
121 | if ($mark & $mask) { |
| 122 | $img->composite ( |
122 | $img->composite ( |
| 123 | $base, (int ($size / 4)) x2, (ceil ($size / 2 + 1)) x2, ($size / 4) x2, |
123 | $base, (int $size / 4) x2, (ceil $size / 2 + 1) x2, ($size / 4 - 0.5) x2, |
| 124 | $size / $img->get_width / 2, $size / $img->get_height / 2, |
124 | $size / $img->get_width / 2, $size / $img->get_height / 2, |
| 125 | $::config->{speed} ? 'tiles' : 'bilinear', 224 |
125 | $::config->{speed} ? 'tiles' : 'bilinear', 224 |
| 126 | ); |
126 | ); |
| 127 | } |
127 | } |
| 128 | } |
128 | } |
| … | |
… | |
| 136 | my ($mask, $img) = @$_; |
136 | my ($mask, $img) = @$_; |
| 137 | if ($mark & $mask) { |
137 | if ($mark & $mask) { |
| 138 | $img->composite ( |
138 | $img->composite ( |
| 139 | $base, 0, 0, $size, $size, 0, 0, |
139 | $base, 0, 0, $size, $size, 0, 0, |
| 140 | $size / $img->get_width, $size / $img->get_height, |
140 | $size / $img->get_width, $size / $img->get_height, |
| 141 | $::config->{speed} ? 'tiles' : 'bilinear', 192 |
141 | $::config->{speed} ? 'tiles' : 'bilinear', 176 |
| 142 | ); |
142 | ); |
| 143 | } |
143 | } |
| 144 | } |
144 | } |
| 145 | |
145 | |
| 146 | push @$$c, $base; |
146 | push @$$c, $base; |
