--- deliantra/Deliantra-Client/DC/MapWidget.pm	2009/11/21 05:17:28	1.152
+++ deliantra/Deliantra-Client/DC/MapWidget.pm	2009/11/26 07:19:12	1.153
@@ -524,7 +524,10 @@
 
          if (my $tex = $self->{fow_texture}) {
             glEnable GL_TEXTURE_2D;
+            glEnable GL_BLEND;
             glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
+            glBlendEquation GL_FUNC_REVERSE_SUBTRACT;
+            glBlendFunc GL_ONE, GL_ZERO;
 
             my $a1 = 0.9;
 
@@ -535,12 +538,12 @@
                if ($d1 * $d2) {
                   my $a2 = $d1 / $d2;
 
-                  $a1 = (1/$a2);
+                  $a1 = 1 - $a2;
 
                   #$a1 *= 0.9;
                   #$a2 *= 0.9;
 
-                  printf "%4g %4g %4g\n", $d1, $d2, $a1+$a2;#d#
+                  printf "%4g %4g %4g %4g\n", $d1, $d2, $a1, $a2;#d#
 
                   #$a1 = 1 - (1-$a1) * 0.707;
                   #$a2 = 1 - (1-$a2) * 0.707;
@@ -572,7 +575,9 @@
             $self->{fow_texture}->draw_quad_alpha (0, 0);
             glPopMatrix;
 
+            glBlendEquation GL_FUNC_ADD;
             glDisable GL_TEXTURE_2D;
+            glDisable GL_BLEND;
          }
 
          if ($self->{magicmap}) {