Post by PeterMaria on Jul 20, 2015 7:21:44 GMT -5
Hi,
a small texture test.
a small texture test.
TextMode(TEXT_OVERLAID)
dim fn = loadtex("fonts/font03.png")
font(fn)
locate 20,0
print("CLICK ON TEXTURE")
dim t1 = loadtex("png/texture1.png")
dim t2 = loadtex("png/texture2.png")
dim t3 = loadtex("png/texture3.png")
dim t4 = loadtex("png/texture4.png")
glEnable (GL_TEXTURE_2D)
dim xrot#, yrot#, zrot#, mx, my
dim abc = t1
Sub Texture2D(x#,y#,z#)
glPushMatrix()
glLoadIdentity()
glTranslatef(x#, y#, z#)
glBegin(GL_QUADS)
glTexCoord2f(0.0, 0.0): glVertex3f(-1.0, -1.0, 1.0)
glTexCoord2f(1.0, 0.0): glVertex3f( 1.0, -1.0, 1.0)
glTexCoord2f(1.0, 1.0): glVertex3f( 1.0, 1.0, 1.0)
glTexCoord2f(0.0, 1.0): glVertex3f(-1.0, 1.0, 1.0)
glEnd()
glPopMatrix()
End Sub
while scankeydown(27)=0
glClearColor(0,0,0,1)
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT)
glLoadIdentity()
glTranslatef(0.0,0.0,-6.0)
glRotatef(xrot#,1.0,0.0,0.0)
glRotatef(yrot#,0.0,1.0,0.0)
glRotatef(zrot#,0.0,0.0,1.0)
mx = Mouse_X () * TextCols()
my = Mouse_Y () * TextRows()
if mouse_button(0) and mx >=0 and mx <=4 and my >=2 and my <=5 then
abc=t1
elseif mouse_button(0) and mx >=0 and mx <=4 and my >=6 and my <=9 then
abc=t2
elseif mouse_button(0) and mx >=0 and mx <=4 and my >=10 and my <=13 then
abc=t3
elseif mouse_button(0) and mx >=0 and mx <=4 and my >=14 and my <=17 then
abc=t4
endif
glBindTexture(GL_TEXTURE_2D, t1)
Texture2D(-7.3, 4.5,-12.0)
glBindTexture(GL_TEXTURE_2D, t2)
Texture2D(-7.3, 2.5,-12.0)
glBindTexture(GL_TEXTURE_2D, t3)
Texture2D(-7.3, 0.5,-12.0)
glBindTexture(GL_TEXTURE_2D, t4)
Texture2D(-7.3, -1.5,-12.0)
glBindTexture(GL_TEXTURE_2D, abc)
glBegin(GL_QUADS)
glTexCoord2f(0.0, 0.0): glVertex3f(-1.0, -1.0, 1.0)
glTexCoord2f(1.0, 0.0): glVertex3f( 1.0, -1.0, 1.0)
glTexCoord2f(1.0, 1.0): glVertex3f( 1.0, 1.0, 1.0)
glTexCoord2f(0.0, 1.0): glVertex3f(-1.0, 1.0, 1.0)
glTexCoord2f(1.0, 0.0): glVertex3f(-1.0, -1.0, -1.0)
glTexCoord2f(1.0, 1.0): glVertex3f(-1.0, 1.0, -1.0)
glTexCoord2f(0.0, 1.0): glVertex3f( 1.0, 1.0, -1.0)
glTexCoord2f(0.0, 0.0): glVertex3f( 1.0, -1.0, -1.0)
glTexCoord2f(0.0, 1.0): glVertex3f(-1.0, 1.0, -1.0)
glTexCoord2f(0.0, 0.0): glVertex3f(-1.0, 1.0, 1.0)
glTexCoord2f(1.0, 0.0): glVertex3f( 1.0, 1.0, 1.0)
glTexCoord2f(1.0, 1.0): glVertex3f( 1.0, 1.0, -1.0)
glTexCoord2f(1.0, 1.0): glVertex3f(-1.0, -1.0, -1.0)
glTexCoord2f(0.0, 1.0): glVertex3f( 1.0, -1.0, -1.0)
glTexCoord2f(0.0, 0.0): glVertex3f( 1.0, -1.0, 1.0)
glTexCoord2f(1.0, 0.0): glVertex3f(-1.0, -1.0, 1.0)
glTexCoord2f(1.0, 0.0): glVertex3f( 1.0, -1.0, -1.0)
glTexCoord2f(1.0, 1.0): glVertex3f( 1.0, 1.0, -1.0)
glTexCoord2f(0.0, 1.0): glVertex3f( 1.0, 1.0, 1.0)
glTexCoord2f(0.0, 0.0): glVertex3f( 1.0, -1.0, 1.0)
glTexCoord2f(0.0, 0.0): glVertex3f(-1.0, -1.0, -1.0)
glTexCoord2f(1.0, 0.0): glVertex3f(-1.0, -1.0, 1.0)
glTexCoord2f(1.0, 1.0): glVertex3f(-1.0, 1.0, 1.0)
glTexCoord2f(0.0, 1.0): glVertex3f(-1.0, 1.0, -1.0)
glEnd()
DrawText()
SwapBuffers()
waittimer(10)
xrot# = xrot#+0.4
yrot# = yrot#+0.3
zrot# = zrot#+0.5
wend