| … | |
… | |
| 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}; |
