--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/10 11:41:17	1.51
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/10 11:55:16	1.52
@@ -808,10 +808,10 @@
 }
 
 sub size_request {
-
-}
-
-sub size_allocate {
+   (
+      1 + int $::WIDTH  / 32,
+      1 + int $::HEIGHT / 32,
+   )
 }
 
 sub _draw {
@@ -854,7 +854,7 @@
 
          my $darkness = $cell->[0] * (1 / 255);
          if ($darkness < 0) {
-            $darkness = 0.15;
+            $darkness = $cell->[1] ? 0.2 : 0;
          }
          substr $lighting, $y * $sw4 + $x, 1, chr 255 - $darkness * 255;
 
@@ -893,11 +893,11 @@
       width          => $sw4,
       height         => $sh,
       data           => $lighting,
-      internalformat => GL_ALPHA4,
+      internalformat => GL_ALPHA,
       format         => GL_ALPHA;
 
    glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
-   glColor 0, 0, 0, 0.75;
+   glColor 1, 1, 1, 1;
    glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
    glBindTexture GL_TEXTURE_2D, $lighting->{name};
    glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR;