… | |
… | |
610 | sub refresh_hook { |
610 | sub refresh_hook { |
611 | my ($self) = @_; |
611 | my ($self) = @_; |
612 | |
612 | |
613 | if ($::MAP && $self->{texture_atime} < time) { |
613 | if ($::MAP && $self->{texture_atime} < time) { |
614 | my ($w, $h) = @$self{qw(w h)}; |
614 | my ($w, $h) = @$self{qw(w h)}; |
|
|
615 | |
|
|
616 | return unless $w && $h; |
615 | |
617 | |
616 | my $sw = int $::WIDTH / ($::MAPWIDGET->{tilesize} * $::CFG->{map_scale}) + 0.99; |
618 | my $sw = int $::WIDTH / ($::MAPWIDGET->{tilesize} * $::CFG->{map_scale}) + 0.99; |
617 | my $sh = int $::HEIGHT / ($::MAPWIDGET->{tilesize} * $::CFG->{map_scale}) + 0.99; |
619 | my $sh = int $::HEIGHT / ($::MAPWIDGET->{tilesize} * $::CFG->{map_scale}) + 0.99; |
618 | |
620 | |
619 | my $ox = 0.5 * ($w - $sw); |
621 | my $ox = 0.5 * ($w - $sw); |