[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/UI.pm

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.20 by elmex, Sat Apr 8 17:21:01 2006 UTC vs.
Revision 1.21 by root, Sat Apr 8 18:15:59 2006 UTC

 sub key_up {
 }
 sub _draw {
+   my ($self) = @_;
    glEnable GL_TEXTURE_2D;
    glEnable GL_BLEND;
    glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
    my $map = $::CONN->{map};
-   for my $x (0 .. $::CONN->{mapw} - 1) {
+   for my $x (0 .. int $::WIDTH / 32) {
-      for my $y (0 .. $::CONN->{maph} - 1) {
+      for my $y (0 .. int $::HEIGHT / 32) {
-         my $cell = $map->[$x][$y]
+         my $cell = $map->[$x + $::CONN->{mapx}]
+                          [$y + $::CONN->{mapy}]
             or next;
-         my $darkness = $cell->[3] * (1 / 255);
+         my $darkness = $cell->[0] * (1 / 255);
+         if ($darkness < 0) {
+            $darkness = 0.5;
+         }
          glColor $darkness, $darkness, $darkness;
-         for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) {
+         for my $num (grep $_, @$cell[1,2,3]) {
             my $tex = $::CONN->{face}[$num]{texture} || next;
             glBindTexture GL_TEXTURE_2D, $tex->{name};
             my $w = $tex->{width};

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines