--- deliantra/Deliantra-Client/DC/Texture.pm	2006/06/06 02:55:50	1.4
+++ deliantra/Deliantra-Client/DC/Texture.pm	2009/11/15 19:05:14	1.37
@@ -1,10 +1,10 @@
 =head1 NAME
 
-CFClient::Texture - tetxure class for CFClient
+DC::Texture - tetxure class for Deliantra-Client
 
 =head1 SYNOPSIS
 
- use CFClient::Texture;
+ use DC::Texture;
 
 =head1 DESCRIPTION
 
@@ -12,15 +12,15 @@
 
 =cut
 
-package CFClient::Texture;
+package DC::Texture;
 
 use strict;
 
-use Scalar::Util;
-
-use CFClient::OpenGL;
+use List::Util qw(max min);
+use DC::OpenGL;
 
 my %TEXTURES;
+my ($MAX_W, $MAX_H) = (4096, 4096); # maximum texture size attempted by this module
 
 sub new {
    my ($class, %data) = @_;
@@ -32,9 +32,10 @@
       %data,
    }, $class;
 
-   Scalar::Util::weaken ($TEXTURES{$self+0} = $self);
+   DC::weaken ($TEXTURES{$self+0} = $self);
 
-   $self->upload;
+   $self->upload
+      unless delete $self->{delay};
 
    $self
 }
@@ -42,17 +43,16 @@
 sub new_from_image {
    my ($class, $image, %arg) = @_;
 
-   $class->new (image => $image, %arg)
+   Carp::confess "tried to create texture from undefined image"
+      unless defined $image;
+
+   $class->new (image => $image, internalformat => undef, %arg)
 }
 
-sub new_from_file {
+sub new_from_resource {
    my ($class, $path, %arg) = @_;
 
-   open my $fh, "<:raw", $path
-      or die "$path: $!";
-
-   local $/;
-   $class->new_from_image (<$fh>, %arg)
+   $class->new (resource_path => $path, internalformat => undef, %arg)
 }
 
 #sub new_from_surface {
@@ -67,144 +67,287 @@
 #   )
 #}
 
-sub new_from_layout {
-   my ($class, $layout, %arg) = @_;
-
-   my ($w, $h, $data, $format, $internalformat) = $layout->render;
-
-   $class->new (
-      w              => $w,
-      h              => $h,
-      data           => $data,
-      format         => $format,
-      internalformat => $format,
-      type           => GL_UNSIGNED_BYTE,
-      %arg,
-   )
-}
+#sub new_from_layout {
+#   my ($class, $layout, %arg) = @_;
+#
+#   my ($w, $h, $data, $format, $internalformat) = $layout->render;
+#
+#   $class->new (
+#      w              => $w,
+#      h              => $h,
+#      data           => $data,
+#      format         => $format,
+#      internalformat => $format,
+#      type           => GL_UNSIGNED_BYTE,
+#      %arg,
+#   )
+#}
 
 sub new_from_opengl {
    my ($class, $w, $h, $cb) = @_;
 
-   $class->new (w => $w || 1, h => $h || 1, render_cb => $cb)
+   $class->new (w => $w || 1, h => $h || 1, render_cb => $cb, nearest => 1)
 }
 
-sub topot {
-   (grep $_ >= $_[0], 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768)[0]
+sub loading_done($$) {
+   my ($self, $data) = @_;
+
+   delete $self->{loading};
+   ++$self->{delete_image};
+   $self->{image} = $data;
+   $self->upload;
 }
 
 sub upload {
-   my ($self) = @_;
-
-   return unless $GL_VERSION;
+   my ($self, $cb) = @_;
 
-   my $data;
+   push @{ $self->{upload_done} }, $cb
+      if $cb;
 
-   if (exists $self->{data}) {
-      $data = $self->{data};
+   return if $self->{loading};
 
-   } elsif (exists $self->{render_cb}) {
-      glViewport 0, 0, $self->{w}, $self->{h};
-      glMatrixMode GL_PROJECTION;
-      glLoadIdentity;
-      glOrtho 0, $self->{w}, 0, $self->{h}, -10000, 10000;
-      glMatrixMode GL_MODELVIEW;
-      glLoadIdentity;
-      $self->{render_cb}->($self, $self->{w}, $self->{h});
-
-   } else {
-      ($self->{w}, $self->{h}, $data, $self->{internalformat}, $self->{format}, $self->{type})
-         = CFClient::load_image_inline $self->{image};
+   unless ($GL_VERSION) {
+      $self->{want_upload} = -1;
+      return;
    }
 
-   my ($tw, $th) = @$self{qw(w h)};
+   unless ($self->{name}) {
+      # $tw,$th texture
+      # $rw,$rh rendered/used size
+      # $dw,$dh $data
+
+      my ($data, $dw, $dh);
+
+      if (exists $self->{resource_path}) {
+         open my $fh, "<:raw", DC::find_rcfile $self->{resource_path};
+         local $/;
+         delete $self->{internalformat};
+         $self->{image} = <$fh>;
+         $self->{delete_image} = 1;
+      }
 
-   unless ($tw > 0 && $th > 0) {
-      $tw = $th = 1;
-      $data = "\x00" x 64;
-   }
+      if (defined $self->{data}) {
+         $data = $self->{data};
+         ($dw, $dh) = @$self{qw(w h)};
+
+      } elsif ($self->{render_cb}) {
+         ($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};
+
+      } elsif (defined $self->{tile}) {
+         ++$self->{loading};
+         return DC::DB::get tilecache => $self->{tile}, sub {
+            $self->loading_done ($_[0]);
+         };
+
+      } elsif (defined $self->{path}) {
+         ++$self->{loading};
+         return DC::DB::read_file $self->{path}, sub {
+            $self->loading_done ($_[0]);
+         };
 
-   $self->{minified} ||= [CFClient::average $tw, $th, $data]
-      if $self->{minify};
+      } else {
+         Carp::confess "tried to create texture that is not data, render or image";
+      }
 
-   unless ($GL_NPOT) {
-      # TODO: does not work for zero-sized textures
-      $tw = topot $tw;
-      $th = topot $th;
-
-      if (($tw != $self->{w} || $th != $self->{h}) && defined $data) {
-         my $bpp = (length $data) / ($self->{w} * $self->{h});
-         $data = pack "(a" . ($tw * $bpp) . ")*",
-                    unpack "(a" . ($self->{w} * $bpp) . ")*", $data;
-         $data .= ("\x00" x ($tw * $bpp)) x ($th - $self->{h});
+      my ($tw, $th) = ($dw, $dh);
+
+      defined $data or $self->{render_cb} or die; # some sanity check
+
+      $self->{minified} ||= [DC::average $dw, $dh, $data]
+         if $self->{minify};
+
+      # against rather broken cards we enforce a maximum texture size
+      $tw = min $MAX_W, $tw;
+      $th = min $MAX_H, $th;
+
+      # if only pot-textures are allowed, pot'ify tw/th
+      unless ($GL_NPOT) {
+         $tw = DC::minpot $tw;
+         $th = DC::minpot $th;
       }
-   }
 
-   $self->{s} = $self->{w} / $tw;
-   $self->{t} = $self->{h} / $th;
+      # now further decrease texture size until the
+      # card does accept it
+      while (!texture_valid_2d $self->{internalformat}, $tw, $th, $self->{format}, $self->{type}) {
+         # quarter the texture size
+         $tw >>= 1;
+         $th >>= 1;
+      }
 
-   $self->{name} ||= glGenTexture;
+      # decide the amount of space used in the texture
+      my ($rw, $rh);
+      my ($ox, $oy); # area shift to lessen effect of buggy opengl implementations (nvida, ati)
+      my $render;
+
+      if ($self->{render_cb}) {
+         # use only part of the texture
+         #$rw >>= 1 while $rw > $tw;
+         #$rh >>= 1 while $rh > $th;
+         $rw = min $dw, $tw;
+         $rh = min $dh, $th;
+         ++$render;
+      } else {
+         if ($self->{wrap} || $tw < $dw || $th < $dh) {
+            # scale to the full texture size
+            ($rw, $rh) = ($tw, $th);
+            ++$render;
+         } else {
+            # pad
+            pad $data, $dw, $dh, $tw, $th;
+            ($rw, $rh) = ($dw, $dh);
+            ($dw, $dh) = ($tw, $th);
+         }
+      }
 
-   glBindTexture GL_TEXTURE_2D, $self->{name};
+      if ($render) {
+         $ox = int .5 * ($::WIDTH  - $rw);
+         $oy = int .5 * ($::HEIGHT - $rh);
+
+         glViewport $ox, $oy, $tw, $th;
+         #glScissor 0, 0, $tw, $th;
+         #glEnable GL_SCISSOR_TEST;
+         glMatrixMode GL_PROJECTION;
+         glLoadIdentity;
+         glOrtho 0, $tw, 0, $th, -10000, 10000;
+         glMatrixMode GL_MODELVIEW;
+         glLoadIdentity;
+
+         if ($self->{render_cb}) {
+            glScale $rw / $dw, $rh / $dh;
+            $self->{render_cb}->($self, $rw, $rh);
+         } else {
+            glClearColor 0, 0, 0, 0;
+            glClear GL_COLOR_BUFFER_BIT;
+            glPixelZoom $tw / $dw, $th / $dh;
+            glRasterPos 0, 0;
+            glDrawPixels $dw, $dh,
+                         $self->{format},
+                         $self->{type},
+                         $data;
+            glPixelZoom 1, 1;
+         }
+      }
 
-   if ($self->{wrap}) {
-      glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT;
-      glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT;
-   } else {
-      glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
-      glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
-   }
+      if ((my $name = delete $self->{want_upload}) > 0) {
+         $self->{name} = $name;
+      }
 
-   if ($::FAST) {
-      glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST;
-      glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST;
-   } elsif ($self->{mipmap} && $GL_VERSION >= 1.4) {
-      glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, 1;
-      glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
-      glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR;
-   } else {
-      glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, $self->{mipmap};
-      glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
-      glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR;
-   }
-   
-   glGetError;
+      glBindTexture GL_TEXTURE_2D, $self->{name} ||= glGenTexture;
+
+      if ($self->{wrap}) {
+         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT;
+         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT;
+      } else {
+         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
+         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, $GL_VERSION >= 1.2 ? GL_CLAMP_TO_EDGE : GL_CLAMP;
+      }
 
-   if (defined $data) {
-      glTexImage2D GL_TEXTURE_2D, 0,
-                   $self->{internalformat},
-                   $tw, $th,
-                   0,
-                   $self->{format},
-                   $self->{type},
-                   $data;
-      gl_check "uploading texture %dx%d if=%x f=%x t=%x",
-               $tw, $th, $self->{internalformat},  $self->{format}, $self->{type};
-   } else {
-      glCopyTexImage2D GL_TEXTURE_2D, 0,
-                   $self->{internalformat},
-                   0, 0,
-                   $tw, $th,
-                   0;
-      gl_check "copying to texture %dx%d if=%x",
-               $tw, $th, $self->{internalformat};
+      if ($::FAST || $self->{nearest}) {
+         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST;
+         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST;
+      } elsif ($self->{mipmap} && $GL_VERSION >= 1.4) {
+         glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, 1;
+         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
+         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR;
+      } else {
+         glTexParameter GL_TEXTURE_2D, GL_GENERATE_MIPMAP, $self->{mipmap};
+         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
+         glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR;
+      }
+      
+      glGetError;
+
+      if ($render) {
+         glCopyTexImage2D GL_TEXTURE_2D, 0,
+                      $self->{internalformat},
+                      $ox, $oy,
+                      $tw, $th,
+                      0;
+         gl_check "copying to texture %dx%d if=%x",
+                  $tw, $th, $self->{internalformat};
+
+         #glDisable GL_SCISSOR_TEST;
+      } else {
+         my $if = $self->{internalformat};
+
+         if ($GL_COMPRESS && $::CFG->{texture_compression}) {
+            if ($if == GL_RGB) {
+               $if = GL_COMPRESSED_RGB_ARB;
+            } elsif ($if == GL_RGBA) {
+               $if = GL_COMPRESSED_RGBA_ARB;
+            }
+         }
+
+         glTexImage2D GL_TEXTURE_2D, 0,
+                      $if,
+                      $dw, $dh,
+                      0,
+                      $self->{format},
+                      $self->{type},
+                      $data;
+         gl_check "uploading texture %dx%d if=%x f=%x t=%x",
+                  $tw, $th, $self->{internalformat},  $self->{format}, $self->{type};
+      }
+
+      $self->{s} = $rw / $tw;
+      $self->{t} = $rh / $th;
+
+      if ($self->{tile}) {
+         $::MAP->set_texture ($self->{tile}, @$self{qw(name w h s t)}, @{$self->{minified}})
+            if $::MAP;
+         $::MAPWIDGET->update
+            if $::MAPWIDGET;
+      }
    }
 
-   glBindTexture GL_TEXTURE_2D, 0; # just to be on the safe side
+   $_->($self)
+      for @{ (delete $self->{upload_done}) || [] };
 }
 
+sub unload {
+   my ($self) = @_;
+
+   glDeleteTexture delete $self->{name}
+      if $self->{name};
+} 
+
 sub DESTROY {
    my ($self) = @_;
 
    delete $TEXTURES{$self+0};
 
-   glDeleteTexture delete $self->{name}
-      if $self->{name};
+   $self->unload;
 }
 
-$CFClient::OpenGL::INIT_HOOK{"CFClient::Texture"} = sub {
-   $_->upload
-      for values %TEXTURES;
+$DC::OpenGL::INIT_HOOK{"DC::Texture"} = sub {
+   for my $tex (values %TEXTURES) {
+      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) {
+      next unless $_->{name};
+      $_->{want_upload} = $_->{name};
+      $_->unload;
+   }
 };
 
 1;