| … | |
… | |
| 430 | |
430 | |
| 431 | my $sw = 1 + int $::WIDTH / 32; |
431 | my $sw = 1 + int $::WIDTH / 32; |
| 432 | my $sh = 1 + int $::HEIGHT / 32; |
432 | my $sh = 1 + int $::HEIGHT / 32; |
| 433 | |
433 | |
| 434 | if ($::CONN->{mapw} > $sw) { |
434 | if ($::CONN->{mapw} > $sw) { |
| 435 | $xofs = ($sw - $::CONN->{mapw}) * 0.5; |
435 | $xofs = $mx + ($::CONN->{mapw} - $sw) * 0.5; |
| 436 | } else { |
436 | } else { |
| 437 | $xofs = $self->{xofs} = min $mx, max $mx + $::CONN->{mapw} - $sw + 1, $self->{xofs}; |
437 | $xofs = $self->{xofs} = min $mx, max $mx + $::CONN->{mapw} - $sw + 1, $self->{xofs}; |
| 438 | } |
438 | } |
| 439 | |
439 | |
| 440 | if ($::CONN->{maph} > $sh) { |
440 | if ($::CONN->{maph} > $sh) { |
| 441 | $yofs = ($sh - $::CONN->{maph}) * 0.5; |
441 | $yofs = $my + ($::CONN->{maph} - $sh) * 0.5; |
| 442 | } else { |
442 | } else { |
| 443 | $yofs = $self->{yofs} = min $my, max $my + $::CONN->{maph} - $sh + 1, $self->{yofs}; |
443 | $yofs = $self->{yofs} = min $my, max $my + $::CONN->{maph} - $sh + 1, $self->{yofs}; |
| 444 | } |
444 | } |
| 445 | |
445 | |
| 446 | glEnable GL_TEXTURE_2D; |
446 | glEnable GL_TEXTURE_2D; |
| 447 | glEnable GL_BLEND; |
447 | glEnable GL_BLEND; |
| 448 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE; |
448 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE; |
| 449 | |
|
|
| 450 | warn "<$mx,$my> <$xofs,$yofs>\n";#d# |
|
|
| 451 | |
449 | |
| 452 | for my $x (0 .. $sw - 1) { |
450 | for my $x (0 .. $sw - 1) { |
| 453 | for my $y (0 .. $sh - 1) { |
451 | for my $y (0 .. $sh - 1) { |
| 454 | |
452 | |
| 455 | my $cell = $map->[$x + $xofs][$y + $yofs] |
453 | my $cell = $map->[$x + $xofs][$y + $yofs] |
