'glGetString
includepath "$/inc/"
include "console.inc"
include "OpenglSceneFrame.inc"
#define GL_SHADING_LANGUAGE_VERSION 0x8B8C
sub initialize(sys hWnd)
end sub
sub scene(sys hWnd)
==================
glLoadIdentity
glClear GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT
glClearColor 0.9, 0.9, 0, 0
cls
string version = (char)glGetString(GL_VERSION)
printl "GL_VERSION " version & cr
string vendor = (char)glGetString(GL_VENDOR)
printl "GL_VENDOR " vendor & cr
string renderer = (char)glGetString(GL_RENDERER)
printl "GL_RENDERER " renderer & cr
'lot of info
string extensions = (char)glGetString(GL_EXTENSIONS)
printl "GL_EXTENSIONS " extensions & cr
string glshaders = (char)glGetString(GL_SHADING_LANGUAGE_VERSION)
printl "GL_SHADING_LANGUAGE_VERSION " glshaders & cr
printl : printl "Close Window to quit"
waitkey
end sub
sub Release(sys hwnd)
end sub