Dim pmatax# = 3
Dim pmatay# = 7
Dim pmataz# = 19
'posisi titik pandang
Dim ppandangx# = 0
Dim ppandangy# = 0
Dim ppandangz# = 0
Dim pindah# = 0.4
'variabel untuk menyimpan gambar tekstur
Dim tekstur
tekstur = loadmipmaptexture("gbr/kayu.jpg")
'beritahu bahwa akan menggunakan tekstur
glEnable(gl_texture_2d)
while true
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT)
glLoadIdentity()
gluLookAt(pmatax#, pmatay#, pmataz#, ppandangx#, ppandangy#, ppandangz#, 0,1,0) 'posisi mata, posisi titik pandang, vektor up (0,1,0)
glBindTexture(gl_texture_2d, tekstur)
glBegin(GL_QUADS) 'sisi kiri depan
glTexCoord2d(1,1)
glVertex3f(0, 7, 1) 'kanan atas
glTexCoord2d(0,1)
glVertex3f(0, 7, 1) 'kiri atas
glTexCoord2d(0,0)
glVertex3f(-7, -9, 1) 'kiri bawah
glTexCoord2d(1,0)
glVertex3f(0, -5, 1)'kanan bawah
glEnd()
glbegin(gl_quads)'sisi kanan depan
glTexCoord2d(1,1)
glvertex3f(0,7,1)
glTexCoord2d(0,1)
glvertex3f(0,7,1)
glTexCoord2d(0,0)
glvertex3f(7,-9,1)
glTexCoord2d(1,0)
glvertex3f(0,-5,1)
glEnd()
glBegin(GL_QUADS) 'sisi tengah depan
'glColor3f(0,1,0) 'warna hijau
glTexCoord2d(1,1)
glVertex3f(8, 1, 1) 'kanan atas
'glColor3f(1,0,0) 'warna merah
glTexCoord2d(0,1)
glVertex3f(-8, 1, 1) 'kiri atas
'glColor3f(0,0,1) 'warna biru
glTexCoord2d(0,0)
glVertex3f(0, -5, 1) 'kiri bawah
'glColor3f(1,1,0) 'warna kuning
glTexCoord2d(1,0)
glVertex3f(0, -5, 1)'kanan bawah
glEnd()
glbegin(gl_quads)'sisi kanan tengah
glTexCoord2d(0,1)
glvertex3f(0,7,1)'kanan depan atas
glTexCoord2d(0,0)
glvertex3f(0,7,-2)'kanan belakang atas
glTexCoord2d(1,0)
glvertex3f(7,-9,-2)'kanan belakang bawah
glTexCoord2d(1,1)
glvertex3f(7,-9,1)'kanan depan bawah
glend()
glbegin(gl_quads)'sisi kiri tegah
glTexCoord2d(0,1)
glvertex3f(0,7,1)
glTexCoord2d(0,0)
glvertex3f(0,7,-2)
glTexCoord2d(1,0)
glvertex3f(-7,-9,-2)
glTexCoord2d(1,1)
glvertex3f(-7,-9,1)
glend()
glbegin(gl_quads)'sisi tengah bawah kanan
glTexCoord2d(0,1)
glvertex3f(8,1,1)
glTexCoord2d(0,0)
glvertex3f(8,1,-2)
glTexCoord2d(1,0)
glvertex3f(0,-5,-2)
glTexCoord2d(1,1)
glvertex3f(0,-5,1)
glend()
glbegin(gl_quads)'sisi tengah bawah kiri
glTexCoord2d(0,1)
glvertex3f(-8,1,1)
glTexCoord2d(0,0)
glvertex3f(-8,1,-2)
glTexCoord2d(1,0)
glvertex3f(0,-5,-2)
glTexCoord2d(1,1)
glvertex3f(0,-5,1)
glend()
glbegin(gl_quads)'sisi tengan atas
glTexCoord2d(1,1)
glvertex3f(8,1,1)
glTexCoord2d(0,1)
glvertex3f(8,1,-2)
glTexCoord2d(0,0)
glvertex3f(-8,1,-2)
glTexCoord2d(1,0)
glvertex3f(-8,1,1)
glend()
glBegin(GL_QUADS) 'sisi kiri belakang
'glColor3f(1,0,0) 'warna merah
glTexCoord2d(1,1)
glVertex3f(0, 7, -2) 'kanan atas
'glColor3f(0,1,0) 'warna hijau
glTexCoord2d(0,1)
glVertex3f(0, 7, -2) 'kiri atas
'glColor3f(0,0,1) 'warna biru
glTexCoord2d(0,0)
glVertex3f(-7, -9, -2) 'kiri bawah
'glColor3f(1,1,0) 'warna kuning
glTexCoord2d(1,0)
glVertex3f(0, -5, -2)'kanan bawah
glEnd()
glbegin(gl_quads)'sisi kanan belakang
glTexCoord2d(1,1)
glvertex3f(0,7,-2)
glTexCoord2d(0,1)
glvertex3f(0,7,-2)
glTexCoord2d(0,0)
glvertex3f(7,-9,-2)
glTexCoord2d(1,0)
glvertex3f(0,-5,-2)
glEnd()
glBegin(GL_QUADS) 'sisi tengah belakang
'glColor3f(0,1,0) 'warna hijau
glTexCoord2d(0,1)
glVertex3f(8, 1, -2) 'kanan atas
'glColor3f(1,0,0) 'warna merah
glTexCoord2d(0,0)
glVertex3f(-8, 1, -2) 'kiri atas
'glColor3f(0,0,1) 'warna biru
glTexCoord2d(1,0)
glVertex3f(0, -5, -2) 'kiri bawah
'glColor3f(1,1,0) 'warna kuning
glTexCoord2d(1,1)
glVertex3f(0, -5, -2)'kanan bawah
glEnd()
swapBuffers()
if scankeydown(VK_RIGHT) then
pmatax# = pmatax# + pindah#
' ppandangx# = ppandangx# + pindah#
elseif scankeydown(VK_LEFT) then
pmatax# = pmatax# - pindah#
' ppandangx# = ppandangx# - pindah#
endif
wend
ketika program di jalankan ini hasilnya :
