NB. ogl1.ijs

NB. OpenGL isigraph MUST have ws_clipchildren ws_clipsiblings

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 ''                  NB. enable 3D commands
wd 'pshow;ptop'
)
