| … | |
… | |
| 1964 | $self->{mapmap_texture} = |
1964 | $self->{mapmap_texture} = |
| 1965 | new CFClient::Texture |
1965 | new CFClient::Texture |
| 1966 | w => $w, |
1966 | w => $w, |
| 1967 | h => $h, |
1967 | h => $h, |
| 1968 | data => $::MAP->mapmap ($w, $h), |
1968 | data => $::MAP->mapmap ($w, $h), |
| 1969 | type => GL_UNSIGNED_INT_8_8_8_8_REV; |
1969 | type => $CFClient::GL_VERSION >= 1.2 ? GL_UNSIGNED_INT_8_8_8_8_REV : GL_UNSIGNED_BYTE; |
| 1970 | |
1970 | |
| 1971 | $self->{mapmap_texture}->draw_quad (100, 100); |
1971 | $self->{mapmap_texture}->draw_quad (100, 100); |
| 1972 | |
1972 | |
| 1973 | glDisable GL_TEXTURE_2D; |
1973 | glDisable GL_TEXTURE_2D; |
| 1974 | glDisable GL_BLEND; |
1974 | glDisable GL_BLEND; |
