Wow! That close? On Mon, Nov 16, 2009 at 9:52 AM, Eric Iverson <eric.b.iver...@gmail.com>wrote:
> The best I can promise right now is that I'll leave your message in my > inbox > as a reminder. I'll take a look if I have a chance but it won't be till > after I get out the first phase of the new beta release and that is still > at > least a week or so away. > > On Sun, Nov 15, 2009 at 5:11 PM, Brian Schott <schott.br...@gmail.com > >wrote: > > > 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 > > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
