factor/basis/opengl/gl/windows/windows.factor

USING: alien.c-types alien.syntax kernel windows.types ;
IN: opengl.gl.windows

LIBRARY: gl

FUNCTION: HGLRC wglGetCurrentContext ( ) ;
FUNCTION: void* wglGetProcAddress ( char* name ) ;

: gl-function-context ( -- context ) wglGetCurrentContext ; inline
: gl-function-address ( name -- address ) wglGetProcAddress ; inline
: gl-function-calling-convention ( -- str ) "stdcall" ; inline
update windows vocabs to load without c-type strings 2009-09-27 19:19:53 -04:00			`USING: alien.c-types alien.syntax kernel windows.types ;`
OpenGL 2.1 support 2008-01-13 01:58:56 -05:00			`IN: opengl.gl.windows`

eliminate windows.opengl32 dependency from opengl.gl.windows so we can use opengl.gl.extensions to define wgl extensions 2009-04-30 21:38:18 -04:00			`LIBRARY: gl`

			`FUNCTION: HGLRC wglGetCurrentContext ( ) ;`
			`FUNCTION: void* wglGetProcAddress ( char* name ) ;`

Remove useless alien-address call from opengl.gl.windows 2008-02-08 21:00:29 -05:00			`: gl-function-context ( -- context ) wglGetCurrentContext ; inline`
Do dynamic lookup of OpenGL 1.2+ functions on all platforms. Use fallback extension names when the official name is not available, e.g., if glUseProgram is missing try glUseProgramObjectARB instead 2008-02-08 01:43:05 -05:00			`: gl-function-address ( name -- address ) wglGetProcAddress ; inline`
			`: gl-function-calling-convention ( -- str ) "stdcall" ; inline`