--- deliantra/Deliantra-Client/DC.pm	2006/04/14 14:55:27	1.31
+++ deliantra/Deliantra-Client/DC.pm	2006/04/15 01:13:45	1.33
@@ -117,9 +117,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 {
@@ -200,6 +200,9 @@
       $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;