… | |
… | |
435 | [$y + $::CONN->{mapy}] |
435 | [$y + $::CONN->{mapy}] |
436 | or next; |
436 | or next; |
437 | |
437 | |
438 | my $darkness = $cell->[0] * (1 / 255); |
438 | my $darkness = $cell->[0] * (1 / 255); |
439 | if ($darkness < 0) { |
439 | if ($darkness < 0) { |
440 | $darkness = 0.5; |
440 | glColor 0.3, 0.3, 0.3; |
|
|
441 | } else { |
|
|
442 | glColor $darkness, $darkness, $darkness; |
441 | } |
443 | } |
442 | glColor $darkness, $darkness, $darkness; |
|
|
443 | |
444 | |
444 | for my $num (grep $_, @$cell[1,2,3]) { |
445 | for my $num (grep $_, @$cell[1,2,3]) { |
445 | my $tex = $::CONN->{face}[$num]{texture} || next; |
446 | my $tex = $::CONN->{face}[$num]{texture} || next; |
446 | |
447 | |
447 | glBindTexture GL_TEXTURE_2D, $tex->{name}; |
448 | glBindTexture GL_TEXTURE_2D, $tex->{name}; |