19 lines
406 B
Factor
19 lines
406 B
Factor
IN: gadgets
|
|
USING: kernel opengl ;
|
|
|
|
DEFER: set-title ( string handle -- )
|
|
|
|
DEFER: draw-world ! defined in world.factor
|
|
|
|
: redraw-world ( world -- ) draw-world ;
|
|
|
|
DEFER: open-window* ( world title -- )
|
|
|
|
DEFER: select-gl-context ( handle -- )
|
|
|
|
DEFER: flush-gl-context ( handle -- )
|
|
|
|
: with-gl-context ( handle quot -- )
|
|
swap [ select-gl-context call ] keep
|
|
glFlush flush-gl-context gl-error ; inline
|