Crashes j601 in Darwin/Mac ...

- joey

At 12:53  -0400 2006/04/16, Miller, Raul D wrote:
The script, below, reliably crashes with linux opengl.

I notice that the alloc code for linux has lines which say:
NB. !!! check if following is needed:
NB. ((*/wh)$0) memw pad,0,(*/wh),JINT

I'm not sure if this crash is a bug in my opengl implementation,
or a bug in J.

If it's a bug in my opengl implementation, I should file a bug
report against the implementation I'm using.

Can someone with linux opengl verify that this works (without
crashing) on their system?

Thanks,

--
Raul


coclass'example'
(coinsert[require)'jzopengl'

P=: 0 : 0
pc p;
xywh 0 0 50 50;cc c isigraph rightmove bottommove;
pas 6 6;pcenter;
rem form end;
 pshow;
)

create=:3 :0
 create_jzopengl_ f. ''
 wd P
)

p_run=: 3 : 0
''conew'example'
)

destroy=:3 :0
 destroy_jzopengl_ f. ''
 wd'pclose'
)

p_close=: destroy

p_c_size=: 3 : 0
 alloc glqwh''
 p_c_paint''
)

board=: 40*1 1,"1~((2|+/)#&(,/),"0/)~i.8

scissorClear=:3 :0"1
 glScissor y
 glClear GL_COLOR_BUFFER_BIT
)

enabled=:2 :0
 glDisable m [   v y [ glEnable m
)

rectangles=:3 :0
 GL_SCISSOR_TEST enabled scissorClear y
)

p_c_paint=: 3 : 0
 glClearColor 0 0 0 0
 glClear GL_COLOR_BUFFER_BIT
 glClearColor 1 0 0 0
 rectangles board
 draw_keep''
)

p_run''
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to