factor/contrib/x11/gl.factor

IN: gl USING: kernel words sequences alien arrays namespaces x xlib x11 ;

: >int-array ( seq -- <int-array> )
dup length "int-array" <c-object> swap dup length >array [ pick set-int-nth ] 2each ;

: >attributes ( seq -- attributes )
0 add [ dup word? [ execute ] [ ] if ] map ;

: choose-visual ( attributes -- XVisualInfo* )
>attributes >int-array dpy get scr get rot glXChooseVisual ;

: create-context ( XVisualInfo* -- GLXContext )
>r dpy get r> 0 <alien> True glXCreateContext ;

: make-current ( GLXContext -- Bool ) >r dpy get win get r> glXMakeCurrent ;

: swap-buffers ( -- ) dpy get win get glXSwapBuffers ;