--- deliantra/Deliantra-Client/DC.pm	2006/04/06 20:15:10	1.2
+++ deliantra/Deliantra-Client/DC.pm	2006/04/07 18:20:13	1.3
@@ -21,6 +21,90 @@
    XSLoader::load "Crossfire::Client", $VERSION;
 }
 
+package Crossfire::Client::Texture;
+
+use Scalar::Util;
+
+use SDL::OpenGL;
+
+my @textures;
+
+sub new_from_file {
+   my ($class, $path) = @_;
+
+   open my $fh, "<:raw", $path
+      or die "$path: $!";
+
+   local $/;
+   $class->new_from_data (<$fh>)
+}
+
+sub new_from_image {
+   my ($class, $image) = @_;
+
+   my $self = bless {
+      image => $data,
+   };
+
+   push @textures, $self;
+   Scalar::Util::weaken $textures[-1];
+
+   $self->upload;
+
+   $self
+}
+
+sub upload {
+   my ($self) = @_;
+
+   return unless $SDL::App::USING_OPENGL;
+
+   my ($data, $width, $height);
+
+   if (exists $self->{data}) {
+      ($data, $width, $height) = ($self->{data}, $self->{width}, $self->{height});
+   } else {
+      my $pb = new Gtk2::Gdk::PixbufLoader;
+      $pb->write ($self->{data});
+      $pb->close;
+
+      $pb = $pb->get_pixbuf;
+      $pb = $pb->add_alpha (0, 0, 0, 0);
+
+      ($data, $width, $height) = ($pb->get_pixels, $pb->get_width, $pb->get_height);
+   }
+
+   ($self->{name}) = @{glGenTextures 1};
+
+   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_WRAP_S, GL_CLAMP;
+   glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP;
+   
+   glTexImage2D GL_TEXTURE_2D, 0,
+                GL_RGBA8,
+                $width, $height,
+                0,
+                GL_RGBA,
+                GL_UNSIGNED_BYTE,
+                $data;
+}
+
+sub DESTROY {
+   my ($self) = @_;
+
+   return unless exists $self->{name};
+
+   glDeleteTextures delete $self->{name};
+}
+
+push @::GLINIT, sub {
+   $_->upload
+      for grep $_, @textures;
+};
+
 1;
 
 =back