[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/Texture.pm

Comparing deliantra/Deliantra-Client/DC/Texture.pm (file contents):
Revision 1.31 by root, Wed Dec 26 21:03:21 2007 UTC vs.
Revision 1.34 by root, Thu Apr 17 03:46:39 2008 UTC

 =head1 NAME
-DC::Texture - tetxure class for CFPlus
+DC::Texture - tetxure class for Deliantra-Client
 =head1 SYNOPSIS
  use DC::Texture;
          ($dw, $dh) = @$self{qw(w h)};
       } elsif (defined $self->{image}) {
          ($self->{w}, $self->{h}, $data, my $internalformat, $self->{format}, $self->{type})
             = DC::load_image_inline $self->{image};
          $self->{internalformat} ||= $internalformat;
          ($dw, $dh) = @$self{qw(w h)};
          delete $self->{image} if delete $self->{delete_image};
    $self->unload;
 }
 $DC::OpenGL::INIT_HOOK{"DC::Texture"} = sub {
-   for (values %TEXTURES) {
+   for my $tex (values %TEXTURES) {
-      $_->upload if $_->{want_upload};
+      if (my $name = $tex->{want_upload}) {
+         $tex->upload;
+         if ($tex->{loading} && $name > 0) {
+            # if loading is delayed we still have to allocate the texture name
+            glBindTexture GL_TEXTURE_2D, $name;
+            glTexImage2D GL_TEXTURE_2D, 0, GL_ALPHA, 0, 0, 0, GL_ALPHA, GL_UNSIGNED_BYTE;
+         }
+      }
    }
 };
 $DC::OpenGL::SHUTDOWN_HOOK{"DC::Texture"} = sub {
    for (values %TEXTURES) {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines