Source code Basic4GL prisma

Berikut adalah contoh source code dari basic4gl berbentuk kerucut.

'posisi mata
Dim pmatax# = 0
Dim pmatay# = 0
Dim pmataz# = 4

'posisi titik pandang
Dim ppandangx# = 0
Dim ppandangy# = 0
Dim ppandangz# = -4   

Dim pindah# = 0.05 

'variabel untuk menyimpan gambar tekstur
Dim tekstur
tekstur = loadmipmaptexture("gbr/division.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_TRIANGLES)  'sisi depan
   'glColor3f(1,0,0) 'warna merah
   'glTexCoord2d(1,1)
   'glVertex3f(1, 1, -1) 'kanan atas 
   'glColor3f(0,1,0) 'warna hijau
   glTexCoord2d(0,1)
   glVertex3f(0, 1, 0) 'kiri atas
   'glColor3f(0,0,1) 'warna biru
   glTexCoord2d(0,0)
   glVertex3f(-1, -1, -1) 'kiri bawah
   'glColor3f(1,1,0) 'warna kuning
   glTexCoord2d(1,0)
   glVertex3f(1, -1, -1)'kanan bawah
glEnd()                                     

glBegin(GL_TRIANGLES)  'sisi belakang
   'glColor3f(0,1,0) 'warna hijau
   'glTexCoord2d(0,1)
   'glVertex3f(1, 1, 1) 'kanan atas 
   'glColor3f(1,0,0) 'warna merah
   glTexCoord2d(0,0)
   glVertex3f(0, 1, 0) 'kiri atas
   'glColor3f(0,0,1) 'warna biru
   glTexCoord2d(1,0)
   glVertex3f(-1, -1, 1) 'kiri bawah
   'glColor3f(1,1,0) 'warna kuning
   glTexCoord2d(1,1)
   glVertex3f(1, -1, 1)'kanan bawah
glEnd()                                       

glBegin(GL_QUADS)  'sisi bawah
   'glColor3f(0,1,0) 'warna hijau
   glTexCoord2d(0,1)
   glVertex3f(1, -1, -1) 'kanan depan 
   'glColor3f(1,0,0) 'warna merah
   glTexCoord2d(0,0)
   glVertex3f(1, -1, 1) 'kanan belakang
   'glColor3f(0,0,1) 'warna biru
   glTexCoord2d(1,0)
   glVertex3f(-1, -1, 1) 'kiri belakang
   'glColor3f(1,1,0) 'warna kuning
   glTexCoord2d(1,1)
   glVertex3f(-1, -1, -1)'kiri depan
glEnd()   


glBegin(GL_TRIANGLES)  'SISI KANAN
   'glColor3f(0,1,0) 'warna hijau
   'glTexCoord2d(0,1)
   glVertex3f(1, -1, -1) 'kanan depan 
   glColor3f(1,0,0) 'warna merah
   glTexCoord2d(0,0)
   glVertex3f(1, -1, 1) 'kanan belakang
   'glColor3f(0,0,1) 'warna biru
   glTexCoord2d(1,0)
   glVertex3f(0, 1, 0) 'ATAS
   'glColor3f(1,1,0) 'warna kuning
   'glTexCoord2d(1,1)
   'glVertex3f(-1, -1, -1)'kiri depan
glEnd()

 glBegin(GL_TRIANGLES)  'SISI KIRI
   'glColor3f(0,1,0) 'warna hijau
   'glTexCoord2d(0,1)
   'glVertex3f(1, -1, -1) 'kanan depan 
   'glColor3f(1,0,0) 'warna merah
   glTexCoord2d(0,0)
   glVertex3f(0, 1, 0) 'ATAS
   'glColor3f(0,0,1) 'warna biru
   glTexCoord2d(1,0)
   glVertex3f(-1, -1, 1) 'KIRI BELAKANG
   'glColor3f(1,1,0) 'warna kuning
   glTexCoord2d(1,1)
   glVertex3f(-1, -1, -1)'kiri depan
glEnd()

swapBuffers()

if scankeydown(VK_RIGHT) then
    pmatax# = pmatax# + pindah#
'    ppandangx# = ppandangx# + pindah#
elseif scankeydown(VK_LEFT) then
    pmatax# = pmatax# - pindah#     
'    ppandangx# = ppandangx# - pindah#
elseif scankeydown(VK_UP) then
    pmatay# = pmatay# + pindah#     
'    ppandangy# = ppandangy# - pindah# 
elseif scankeydown(VK_DOWN) then
    pmatay# = pmatay# - pindah#     
'    ppandangy# = ppandangy# - pindah# 
elseif scankeydown(VK_DELETE) then
    pmataz# = pmataz# + pindah#     
'    ppandangz# = ppandangz# + pindah#   
elseif scankeydown(VK_END) then
    pmataz# = pmataz# - pindah#     
'    ppandangz# = ppandangz# - pindah#
endif

wend



Link Download : https://drive.google.com/open?id=1K6851fHJG34ML1r0hIEWH9ZIVAej-4du