| … | |
… | |
| 250 | $pb->fill (0x00000000); |
250 | $pb->fill (0x00000000); |
| 251 | |
251 | |
| 252 | $TILE->composite ($pb, |
252 | $TILE->composite ($pb, |
| 253 | 0, 0, |
253 | 0, 0, |
| 254 | TILESIZE, TILESIZE, |
254 | TILESIZE, TILESIZE, |
| 255 | - ($_->{_face} % 64) * TILESIZE, - TILESIZE * int $_->{_face} / 64, |
255 | - ($_->{_face} % CACHESTRIDE) * TILESIZE, - TILESIZE * int $_->{_face} / CACHESTRIDE, |
| 256 | 1, 1, 'nearest', 255 |
256 | 1, 1, 'nearest', 255 |
| 257 | ); |
257 | ); |
| 258 | |
258 | |
| 259 | my $a = $_->{_virtual} || $_; |
259 | my $a = $_->{_virtual} || $_; |
| 260 | |
260 | |
| … | |
… | |
| 399 | |
399 | |
| 400 | for my $a (@{$oss->[$y]}) { |
400 | for my $a (@{$oss->[$y]}) { |
| 401 | $TILE->composite ($pb, |
401 | $TILE->composite ($pb, |
| 402 | $dx, $dy, |
402 | $dx, $dy, |
| 403 | TILESIZE, TILESIZE, |
403 | TILESIZE, TILESIZE, |
| 404 | $dx - ($a->{_face} % 64) * TILESIZE, $dy - TILESIZE * int $a->{_face} / 64, |
404 | $dx - ($a->{_face} % CACHESTRIDE) * TILESIZE, $dy - TILESIZE * int $a->{_face} / CACHESTRIDE, |
| 405 | 1, 1, 'nearest', 255 |
405 | 1, 1, 'nearest', 255 |
| 406 | ); |
406 | ); |
| 407 | } |
407 | } |
| 408 | } |
408 | } |
| 409 | } |
409 | } |
