I should add that I am using as a test bed the standalone opengl demo file /j601/system/examples/graphics/opengl/demo/glviews.ijs withthe following simple paint verb replacing the "XX" placeholders in the script glviews.ijs
paint =: 3 : 0 gsinit'' 1.4 gsdrawcube SKYBLUE gsfini'' ) (B=) That is: NB. Standalone version of the opengl demo. require 'opengl' cocurrent 'gldemo' coinsert 'jzopenglutil' OPENGL=: 0 : 0 pc opengl closeok; xywh 0 0 200 150;cc g isigraph rightmove bottommove; pas 0 0; rem form end; ) opengl_run=: 3 : 0 wd OPENGL ogl=: ''conew'jzopengl' opengl_g_paint'' wd'pshow;' ) opengl_close=: 3 : 0 destroy__ogl'' wd 'pclose' ) opengl_cancel=: opengl_close NB. ========================================================= paint =: 3 : 0 gsinit'' 1.4 gsdrawcube SKYBLUE gsfini'' ) NB. ========================================================= opengl_g_paint=: paint opengl_g_char=: gschar opengl_default=: gsdefault NB. ========================================================= opengl_run'' ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
