(define-module
(figl glx low-level)
#:use-module
- (figl runtime)
+ (figl glx runtime)
#:use-module
(figl glx types)
#:export
glXWaitGL
glXWaitX))
-(define-foreign-procedures
+(define-glx-procedures
((glXChooseFBConfig
(dpy Display-*)
(screen int)
ATTRIB_LIST, if SCREEN is invalid, or if DPY does not support the GLX
extension.")
-(define-foreign-procedures
+(define-glx-procedures
((glXChooseVisual
(dpy Display-*)
(screen int)
`NULL' is returned if an undefined GLX attribute is encountered in
ATTRIBLIST.")
-(define-foreign-procedures
+(define-glx-procedures
((glXCopyContext
(dpy Display-*)
(src GLXContext)
`GLXBadContext' is generated if either SRC or DST is not a valid GLX
context.")
-(define-foreign-procedures
+(define-glx-procedures
((glXCreateContext
(dpy Display-*)
(vis XVisualInfo-*)
`BadAlloc' is generated if the server does not have enough resources to
allocate the new context.")
-(define-foreign-procedures
+(define-glx-procedures
((glXCreateGLXPixmap
(dpy Display-*)
(vis XVisualInfo-*)
`BadAlloc' is generated if the server cannot allocate the GLX pixmap.")
-(define-foreign-procedures
+(define-glx-procedures
((glXCreateNewContext
(dpy Display-*)
(config GLXFBConfig)
`BadValue' is generated if CONFIG is not a valid visual (for example, if
a particular GLX implementation does not support it).")
-(define-foreign-procedures
+(define-glx-procedures
((glXCreatePbuffer
(dpy Display-*)
(config GLXFBConfig)
`BadMatch' is generated if CONFIG does not support rendering to pixel
buffers (e.g., `GLX_DRAWABLE_TYPE' does not contain `GLX_PBUFFER_BIT').")
-(define-foreign-procedures
+(define-glx-procedures
((glXCreatePixmap
(dpy Display-*)
(config GLXFBConfig)
`GLXBadFBConfig' is generated if CONFIG is not a valid GLXFBConfig.")
-(define-foreign-procedures
+(define-glx-procedures
((glXCreateWindow
(dpy Display-*)
(config GLXFBConfig)
`GLXBadFBConfig' is generated if CONFIG is not a valid GLXFBConfig.")
-(define-foreign-procedures
+(define-glx-procedures
((glXDestroyContext
(dpy Display-*)
(ctx GLXContext)
`GLXBadContext' is generated if CTX is not a valid GLX context.")
-(define-foreign-procedures
+(define-glx-procedures
((glXDestroyGLXPixmap
(dpy Display-*)
(pix GLXPixmap)
`GLXBadPixmap' is generated if PIX is not a valid GLX pixmap.")
-(define-foreign-procedures
+(define-glx-procedures
((glXDestroyPbuffer
(dpy Display-*)
(pbuf GLXPbuffer)
`GLXBadPbuffer' is generated if PBUF is not a valid GLXPbuffer.")
-(define-foreign-procedures
+(define-glx-procedures
((glXDestroyPixmap
(dpy Display-*)
(pixmap GLXPixmap)
`GLXBadPixmap' is generated if PIXMAP is not a valid GLXPixmap.")
-(define-foreign-procedures
+(define-glx-procedures
((glXDestroyWindow
(dpy Display-*)
(win GLXWindow)
`GLXBadWindow' is generated if WIN is not a valid GLXPixmap.")
-(define-foreign-procedures
+(define-glx-procedures
((glXFreeContextEXT
(dpy Display-*)
(ctx GLXContext)
`GLXBadContext' is generated if CTX does not refer to a valid context.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetClientString
(dpy Display-*)
(name int)
length. The vendor-specific information is optional. However, if it is
present, the format and contents are implementation specific.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetConfig
(dpy Display-*)
(vis XVisualInfo-*)
`GLX_BAD_VISUAL' is returned if VIS doesn't support GLX and an attribute
other than `GLX_USE_GL' is requested.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetContextIDEXT
(ctx const-GLXContext)
->
`GLXBadContext' is generated if CTX does not refer to a valid context.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetCurrentContext -> GLXContext))
"Return the current context.
`glXGetCurrentContext' returns client-side information. It does not make
a round trip to the server.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetCurrentDisplay -> Display-*))
"Get display for current context.
a round-trip to the server, and therefore does not flush any pending
events.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetCurrentDrawable -> GLXDrawable))
"Return the current drawable.
`glXGetCurrentDrawable' returns client-side information. It does not
make a round trip to the server.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetCurrentReadDrawable -> GLXDrawable))
"Return the current drawable.
`glXGetCurrentReadDrawable' returns client-side information. It does not
make a round-trip to the server.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetFBConfigAttrib
(dpy Display-*)
(config GLXFBConfig)
extension. `GLX_BAD_ATTRIBUTE' is returned if ATTRIBUTE is not a valid
GLX attribute.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetFBConfigs
(dpy Display-*)
(screen int)
screen specified by SCREEN. Use `glXGetFBConfigAttrib' to obtain
attribute values from a specific GLXFBConfig.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetProcAddress
(procName const-GLubyte-*)
->
PROCNAME. This is necessary in environments where the OpenGL link
library exports a different set of functions than the runtime library.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetSelectedEvent
(dpy Display-*)
(draw GLXDrawable)
`GLXBadDrawable' is generated if DRAW is not a valid window or a valid
GLX pixel buffer.")
-(define-foreign-procedures
+(define-glx-procedures
((glXGetVisualFromFBConfig
(dpy Display-*)
(config GLXFBConfig)
Returns `NULL' if CONFIG is not a valid GLXFBConfig.")
-(define-foreign-procedures
+(define-glx-procedures
((glXImportContextEXT
(dpy Display-*)
(contextID GLXContextID)
`GLXBadContext' is generated if CONTEXTID does not refer to a valid
context.")
-(define-foreign-procedures
+(define-glx-procedures
((glXIsDirect
(dpy Display-*)
(ctx GLXContext)
`GLXBadContext' is generated if CTX is not a valid GLX context.")
-(define-foreign-procedures
+(define-glx-procedures
((glXMakeContextCurrent
(display Display-*)
(draw GLXDrawable)
DRAW or READ is a GLXWindow or GLXPbuffer and CTX was previously bound
to a GLXPixmap.")
-(define-foreign-procedures
+(define-glx-procedures
((glXMakeCurrent
(dpy Display-*)
(drawable GLXDrawable)
ancillary buffers until `glXMakeCurrent' is called, only to find that it
has insufficient resources to complete the allocation.")
-(define-foreign-procedures
+(define-glx-procedures
((glXQueryContextInfoEXT
(dpy Display-*)
(ctx GLXContext)
fred `GLX_BAD_CONTEXT' is returned if ATTRIBUTE is not a valid context.")
-(define-foreign-procedures
+(define-glx-procedures
((glXQueryContext
(dpy Display-*)
(ctx GLXContext)
`GLXBadContext' is generated if CTX does not refer to a valid context.")
-(define-foreign-procedures
+(define-glx-procedures
((glXQueryDrawable
(dpy Display-*)
(draw GLXDrawable)
A `GLXBadDrawable' is generated if DRAW is not a valid GLXDrawable.")
-(define-foreign-procedures
+(define-glx-procedures
((glXQueryExtensionsString
(dpy Display-*)
(screen int)
(The extension names themselves never contain spaces.) If there are no
extensions to GLX, then the empty string is returned.")
-(define-foreign-procedures
+(define-glx-procedures
((glXQueryExtension
(dpy Display-*)
(errorBase int-*)
ERRORBASE and EVENTBASE do not return values if they are specified as
`NULL'.")
-(define-foreign-procedures
+(define-glx-procedures
((glXQueryServerString
(dpy Display-*)
(screen int)
for `glXGetClientString'. If NAME is not set to a recognized value,
`NULL' is returned.")
-(define-foreign-procedures
+(define-glx-procedures
((glXQueryVersion
(dpy Display-*)
(major int-*)
MAJOR and MINOR are not updated when `False' is returned.")
-(define-foreign-procedures
+(define-glx-procedures
((glXSelectEvent
(dpy Display-*)
(draw GLXDrawable)
`GLXBadDrawable' is generated if DRAW is not a valid window or a valid
GLX pixel buffer.")
-(define-foreign-procedures
+(define-glx-procedures
((glXSwapBuffers
(dpy Display-*)
(drawable GLXDrawable)
calling thread, and DRAWABLE identifies a window that is no longer
valid.")
-(define-foreign-procedures
+(define-glx-procedures
((glXUseXFont
(font Font)
(first int)
current context of the calling thread is a window, and that window is no
longer valid.")
-(define-foreign-procedures
+(define-glx-procedures
((glXWaitGL -> void))
"Complete GL execution prior to subsequent X calls.
current context of the calling thread is a window, and that window is no
longer valid.")
-(define-foreign-procedures
+(define-glx-procedures
((glXWaitX -> void))
"Complete X execution prior to subsequent GL calls.