--- deliantra/Deliantra-Client/DC.pm	2006/04/11 18:06:52	1.24
+++ deliantra/Deliantra-Client/DC.pm	2006/04/15 21:16:49	1.34
@@ -21,6 +21,10 @@
    XSLoader::load "CFClient", $VERSION;
 }
 
+use AnyEvent;
+use BerkeleyDB;
+use SDL::OpenGL;
+
 our %GL_EXT;
 our $GL_VERSION;
 
@@ -32,6 +36,14 @@
 
    $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2;
 
+   glEnable GL_TEXTURE_2D;
+   glEnable GL_COLOR_MATERIAL;
+   glShadeModel GL_FLAT;
+   glDisable GL_DEPTH_TEST;
+   glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
+
+   glHint GL_PERSPECTIVE_CORRECTION_HINT, GL_FASTEST;
+
    CFClient::Texture::restore_state ();
 }
 
@@ -78,8 +90,53 @@
    close CFG;
 }
 
+mkdir "$Crossfire::VARDIR/pclient", 0777;
+
+our $DB_ENV = new BerkeleyDB::Env
+                 -Home => "$Crossfire::VARDIR/pclient",
+                 -Cachesize => 1_000_000,
+                 -ErrFile => "/proc/self/fd/2",
+                 -ErrPrefix => "DATABASE",
+                 -Verbose => 1,
+                 -Flags => DB_CREATE | DB_JOINENV | DB_RECOVER_FATAL | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN,
+                    or die "unable to create/open database home $Crossfire::VARDIR/pclient: $BerkeleyDB::Error";
+
+sub db_table($) {
+   new CFClient::Database
+      -Env      => $DB_ENV,
+      -Filename => "database",
+      -Subname  => $_[0],
+      -Flags    => DB_CREATE | DB_UPGRADE,
+         or die "unable to create/open database table $_[0]: $BerkeleyDB::Error";
+}
+
+package CFClient::Database;
+
+our @ISA = BerkeleyDB::Btree::;
+
+sub get($$) {
+   my $data;
+
+   $_[0]->db_get ($_[1], $data) == 0
+      ? $data
+      : ();
+}
+
+my %DB_SYNC;
+
+sub put($$$) {
+   my ($db, $key, $data) = @_;
+
+   $db->db_put ($key => $data);
+
+   $DB_SYNC{$db} = AnyEvent->timer (after => 5, cb => sub { $db->db_sync });
+   
+}
+
 package CFClient::Texture;
 
+use strict;
+
 use Scalar::Util;
 
 use SDL::OpenGL;
@@ -92,6 +149,7 @@
    my $self = bless {
       internalformat => GL_RGBA,
       format         => GL_RGBA,
+      type           => GL_UNSIGNED_BYTE,
       %data,
    }, $class;
 
@@ -104,9 +162,9 @@
 }
 
 sub new_from_image {
-   my ($class, $image) = @_;
+   my ($class, $image, %arg) = @_;
 
-   $class->new (image => $image)
+   $class->new (image => $image, %arg)
 }
 
 sub new_from_file {
@@ -142,6 +200,7 @@
       data           => $data,
       internalformat => GL_ALPHA4,
       format         => GL_ALPHA,
+      type           => GL_UNSIGNED_BYTE,
    )
 }
 
@@ -158,50 +217,43 @@
 sub upload {
    my ($self) = @_;
 
-   return unless $SDL::App::USING_OPENGL;
+   return unless $GL_VERSION;
 
    my $data;
 
    if (exists $self->{data}) {
       $data = $self->{data};
+
    } 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;
-      glPushmatrix;
       glLoadIdentity;
-      glClear GL_COLOR_BUFFER_BIT;
-
       $self->{render_cb}->($self, $self->{w}, $self->{h});
-   } else {
-      my $pb = new Gtk2::Gdk::PixbufLoader;
-      $pb->write ($self->{image});
-      $pb->close;
-
-      $pb = $pb->get_pixbuf;
-      $pb = $pb->add_alpha (0, 0, 0, 0);
 
-      $self->{w} = $pb->get_width;
-      $self->{h} = $pb->get_height;
-
-      $data = $pb->get_pixels;
+   } else {
+      ($self->{w}, $self->{h}, $data, $self->{internalformat}, $self->{format}, $self->{type})
+         = CFClient::load_image_inline $self->{image};
    }
 
    my ($tw, $th) = @$self{qw(w h)};
 
-   unless ($tw || $th) {
+   unless ($tw && $th) {
       $tw = $th = 1;
       $data = "\x00" x 64;
    }
 
+   $self->{minified} = [CFClient::average $tw, $th, $data]
+      if $self->{minify};
+
    unless ($GL_NPOT) {
       # TODO: does not work for zero-sized textures
       $tw = topot $tw;
       $th = topot $th;
 
-      if (defined $data) {
+      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;
@@ -216,19 +268,18 @@
 
    glBindTexture GL_TEXTURE_2D, $self->{name};
 
-   glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;
-   glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR;#_MIPMAP_LINEAR;
+   glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, $::FAST ? GL_NEAREST : GL_LINEAR;
+   glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, $::FAST ? GL_NEAREST : GL_LINEAR;
    glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP;
    glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP;
    
-   glGetError;
    if (defined $data) {
       glTexImage2D GL_TEXTURE_2D, 0,
                    $self->{internalformat},
                    $tw, $th, # need to pad texture first
                    0,
                    $self->{format},
-                   GL_UNSIGNED_BYTE,
+                   $self->{type},
                    $data;
       glGetError and die;
    } else {
@@ -237,7 +288,7 @@
                    0, 0,
                    $tw, $th,
                    0;
-      glPopmatrix;
+      glGetError and die "glCopyTexImage2D $tw,$th";
    }
 }