… | |
… | |
18 | |
18 | |
19 | our $TEX_DIALOGUE = new_from_resource DC::Texture |
19 | our $TEX_DIALOGUE = new_from_resource DC::Texture |
20 | "dialogue.png", minify => 1, mipmap => 1; |
20 | "dialogue.png", minify => 1, mipmap => 1; |
21 | |
21 | |
22 | our $TEX_NOFACE = new_from_resource DC::Texture |
22 | our $TEX_NOFACE = new_from_resource DC::Texture |
23 | "noface.png", minify => 1, mipmap => 1; |
23 | "noface.png", minify => 1, mipmap => 1, wrap => 1; |
24 | |
24 | |
25 | our $TEX_HIDDEN = new_from_resource DC::Texture |
25 | our $TEX_HIDDEN = new_from_resource DC::Texture # MUST be POT |
26 | "hidden-0.png", minify => 1, mipmap => 1; |
26 | "hidden-0.png", minify => 1, mipmap => 1, wrap => 1; |
27 | |
27 | |
28 | sub MIN_TEXTURE_UNUSED() { 1 }#d# |
28 | sub MIN_TEXTURE_UNUSED() { 1 }#d# |
29 | |
29 | |
30 | sub new { |
30 | sub new { |
31 | my ($class, %arg) = @_; |
31 | my ($class, %arg) = @_; |
… | |
… | |
101 | } |
101 | } |
102 | |
102 | |
103 | { |
103 | { |
104 | $self->{hidden} = my $tex = $TEX_HIDDEN; |
104 | $self->{hidden} = my $tex = $TEX_HIDDEN; |
105 | $self->{map}->set_texture (3, @$tex{qw(name w h s t)}, @{$tex->{minified}}); |
105 | $self->{map}->set_texture (3, @$tex{qw(name w h s t)}, @{$tex->{minified}}); |
|
|
106 | $self->{map_widget}{hidden_tex} = $tex;#d# |
106 | } |
107 | } |
107 | |
108 | |
108 | # $self->{expire_count} = DC::DB::FIRST_TILE_ID; # minimum non-fixed tile id |
109 | # $self->{expire_count} = DC::DB::FIRST_TILE_ID; # minimum non-fixed tile id |
109 | # $self->{expire_w} = EV::timer 1, 1, sub { |
110 | # $self->{expire_w} = EV::timer 1, 1, sub { |
110 | # my $count = (int @{ $self->{texture} } / MIN_TEXTURE_UNUSED) || 1; |
111 | # my $count = (int @{ $self->{texture} } / MIN_TEXTURE_UNUSED) || 1; |