--- deliantra/Deliantra-Client/DC.pm	2006/04/09 00:12:58	1.15
+++ deliantra/Deliantra-Client/DC.pm	2006/04/09 17:34:14	1.16
@@ -126,7 +126,7 @@
       width          => $w,
       height         => $h,
       data           => $data,
-      internalformat => GL_ALPHA8,
+      internalformat => GL_ALPHA4,
       format         => GL_ALPHA,
    )
 }
@@ -180,6 +180,7 @@
    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},
@@ -188,6 +189,7 @@
                    $self->{format},
                    GL_UNSIGNED_BYTE,
                    $data;
+      glGetError and die;
    } else {
       glCopyTexImage2D GL_TEXTURE_2D, 0,
                    $self->{internalformat},
@@ -195,8 +197,6 @@
                    $self->{width}, $self->{height},
                    0;
       glPopmatrix;
-      #SDL::GLSwapBuffers;
-      #sleep 1;
    }
 }