José Roca
21-09-2008, 00:17
I have posted in my forum a new glext.inc file with macros for each and every one function. Updated up to OpenGl 3.0.
http://www.jose.it-berater.org/smfforum/index.php?topic=2819.0
Example:
' ========================================================================================
' Set the blend color.
' void glBlendColor (GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha);
' ========================================================================================
DECLARE SUB Proto_glBlendColor (BYVAL SINGLE, BYVAL SINGLE, BYVAL SINGLE, BYVAL SINGLE)
MACRO glBlendColor(red, green, blue, alpha)
   MACROTEMP pProc
   LOCAL pProc AS DWORD
   pProc = wglGetProcAddress("glBlendColor")
   IF pProc THEN CALL DWORD pProc USING Proto_glBlendColor(red, green, blue, alpha)
END MACRO
' ========================================================================================
I also have added two helper functions, GL_GetString and GL_IsExtensionSupported, to the gl.inc file.
http://www.jose.it-berater.org/smfforum/index.php?topic=2819.0
Example:
' ========================================================================================
' Set the blend color.
' void glBlendColor (GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha);
' ========================================================================================
DECLARE SUB Proto_glBlendColor (BYVAL SINGLE, BYVAL SINGLE, BYVAL SINGLE, BYVAL SINGLE)
MACRO glBlendColor(red, green, blue, alpha)
   MACROTEMP pProc
   LOCAL pProc AS DWORD
   pProc = wglGetProcAddress("glBlendColor")
   IF pProc THEN CALL DWORD pProc USING Proto_glBlendColor(red, green, blue, alpha)
END MACRO
' ========================================================================================
I also have added two helper functions, GL_GetString and GL_IsExtensionSupported, to the gl.inc file.