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