NB. ogl2.ijs

a_g_paint =: verb define
glClearColor 0 0 1 0           NB. RGBA blue
glClear GL_COLOR_BUFFER_BIT    NB. clear backbuffer to blue
glaSwapBuffers ''              NB. swap backbuffer/frontbuffer				
)

A=: 0 : 0
pc a closeok;
xywh 0 0 100 100;cc g isigraph ws_clipchildren ws_clipsiblings rightmove bottommove;
pas 0 0;
rem form end;
)

a_run=: 3 : 0
wd :: ] 'psel a;pclose'
wd A
glaRC ''
wd 'pshow;ptop'
)
