Eric, A very old problem has not been solved and I would like to remind you of it. I am replying to "this" message to give some temporal perspective. Notice, that the code you asked me to run on my Mac, which apparently *did* run at that time, does *not* run now and produces the following error. But that is not the main problem, so please read on.
load '/Users/brian/j602-user/temp/104.ijs' run'' |domain error: wd | wd A In the meanwhile, I have also reported this error in the jwiki and cannot notice a resolution. And btw, the simplest "keystroke" error which occurs is that the Mac escape button does not close the graphics window as it does before the error occurs. http://www.jsoftware.com/jwiki/System/Library/Bugs#A.22for..22loopingldemocausesjavafrontendfailure I have produced a somewhat simpler script which demonstrates the problem. The script is a very slight revision to the standalone opengl demo script which creates a black triangle. j602/system/examples/graphics/opengl/demo/glviews.ijs The only extra code in glviews.ijs is the following. drawtriangle=: monad define glColor3d 0 0 0 glBegin GL_POLYGON glVertex 1 ,0 ,0,1 glVertex 0 ,1 ,0,1 glVertex _1 ,0 ,0,1 glEnd '' ) paint=: 3 : 0 wd'psel opengl;pactive' if. ''-:y do. GS_CLEARCOLOR=.0 0 255 else. GS_CLEARCOLOR=: y end. gsinit GS_LIGHT drawtriangle '' gsfini'' ) The extra code replaces the "XX" in glviews.ijs . Then the opengl graphics can be exercised by entering the following command in the ijx window. The number 60 in the following line controls the number of background color changes are executed. paint_gldemo_"1] 60 3 ?...@$ 255 The problem is that after some number of color changes, the graphics opengl window becomes unresponsive to keystroke commands, even to the "close window" =Escape command on the Mac. Presumably on different platforms the number of color changes before this failure occurs will be different, and likely a higher number than on my antique Mac. Although there is some slight cumulative deterioration of this phenomenon, I am mostly referring to a failure from a single execution of the above line. I would really like to eradicate this problem. On Mon, Feb 6, 2006 at 4:47 PM, Eric Iverson <eiver...@sympatico.ca> wrote: > Brian, > > I have done a quick test with the Java front end in windows. I found two > bugs/differences between Jwdw (windows front end) and Jwdp (portable Java > front end) that probably explain why things don't work as expected on your > Mac. > > The 1st is that a glpaintx'' is required at the end of the go verb in Java > opengl. I need to look into this. > > The 2nd is that in the sys_timer event handler Jwdp has lost the selection > of the current form and current isigraph and this means the go in the timer > event gets an error and turns of the timer. Adding a few smoutput calls in > the timer event made this obvious. > > The script that follows is modified to add the glpaintx and to go and to do > psel and glsel in the timer event. The psel and gsle are necessary anyways > as causing any event on any other form would cause failure in the windows > example for the same reason. > > I have also wrapped the sentences at the end that were automatically run (I > hate scripts that do this) into a run verb. > > Please try the following on your Mac. Run the script and then run sentence > run'' and with lots of luck you'll see a tumbling cube. > > ** > require 'opengl' > coinsert 'jgl3 jzopengl' > > AMBIENT=: 0.15 > DIFFUSE=: 0.7 > SPECULAR=: 0.7 > ROTXYZ=: 40 50 0 > > go=: 3 : 0 > glrotate 2 3 5 > startlist LRotate > stdrotate'' > endlist'' > stdpaint'' > glpaintx'' > ) > > A=: 0 : 0 > pc a closeok; > xywh 0 0 200 200; > cc g isigraph ws_clipchildren ws_clipsiblings rightmove bottommove; > pas 0 0;pshow;ptop; > rem form end; > ) > > a_g_paint=: stdpaint > a_g_size=: stdsizeaspect > > sys_timer_z_=: 3 : 0 > try. > wd'psel a' > glsel 'g' > go '' > catch. wd'timer 0' end. > ) > > run=: 3 : 0 > wd A > glreset'' > glaRC'' > LISTS=: NURBS=: QUADS=: '' > glEnable GL_DEPTH_TEST > glclearcolor CLEARCOLOR > glcolor COLOR > stdlistlight'' > genlist 'Box' > drawcube makelist Box 0 0 1 > a_g_size'' > wd 'pshow' > wd 'timer 15' > ) > > > > ----- Original Message ----- From: <schott.br...@gmail.com> > To: "Programming forum" <programming@jsoftware.com> > Sent: Monday, February 06, 2006 10:57 AM > Subject: Re: [Jprogramming] opengl > > >> Fraser, >> >> I, too, wonder if there is a problem with the Mac >> implementation. Btw, can you describe the behavior you >> observed before (and after, if possible) you typed go'' , >> please? >> >> On Tue, 7 Feb 2006, Fraser Jackson wrote: >> >> + Brian, >> + >> + I have tried Chris's script on both J504 and J601 under Windows XP and >> it >> + works fine. Is there some difference between the implementations on the >> Mac >> + and in Windows causing your problem. >> + >> + Fraser >> + -- (B=) <-----my sig Brian Schott ***************************** PS. The complete script follows below. NB. Standalone version of opengl demo. NB. NB. This text can be cut and pasted into a single script. require 'opengl' cocurrent 'gldemo' coinsert 'jzopenglutil' gsetdefaults'' OPENGL=: 0 : 0 pc opengl; xywh 0 0 200 150;cc g isigraph opengl rightmove bottommove; pas 0 0; rem form end; ) opengl_run=: 3 : 0 wd OPENGL ogl=: '' conew 'jzopengl' wd'pshow;' ) opengl_close=: 3 : 0 destroy__ogl'' ogl=: '' wd 'pclose' ) opengl_cancel=: opengl_close NB. ========================================================= drawtriangle=: monad define glColor3d 0 0 0 glBegin GL_POLYGON glVertex 1 ,0 ,0,1 glVertex 0 ,1 ,0,1 glVertex _1 ,0 ,0,1 glEnd '' ) paint=: 3 : 0 wd'psel opengl;pactive' if. ''-:y do. GS_CLEARCOLOR=.0 0 255 else. GS_CLEARCOLOR=: y end. gsinit GS_LIGHT drawtriangle '' 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
