One Perl/OpenGL texture

Hi,

I want to do a texture on a polygon but I think I am missing something
here.
Nowhere in the code I see a connection with my polygon but the polygon
turns flickering black and green when I do enable the texture. I have
the code below now.

Any ideas?

MD
---------
...
glBegin(GL_POLYGON);
glVertex3f(0, 0, 1);
glVertex3f(0, 0.5, 1);
glVertex3f(1, 0, 1);
glEnd();

# make texture
my $img = new Imager;
$img->open(file=>'check.png', type=>'png'); # initializes
from file
my $texid = glGenTextures_p(1);
glBindTexture(GL_TEXTURE_2D, $texid);
glTexImage2D_c(GL_TEXTURE_2D, 0, 3, 32, 32, 0, GL_RGB, GL_BYTE,

$img); # not sure its _c
glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER,
GL_LINEAR);
glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER,
GL_LINEAR);
glEnable(GL_TEXTURE_2D);
# glClearColor(0, 0.3, 0.6, 1);
#end texture

glPopMatrix();
glutSwapBuffers();
weer1 [ Fr, 24 November 2006 12:36 ] [ ID #1546793 ]
Perl » comp.lang.perl.modules » One Perl/OpenGL texture

Vorheriges Thema: Problem with installing modules
Nächstes Thema: how do I list modules