To: Mac users with the glrect bug (display at Y-1) please report the result from the following experiment:

run script
f_run''
see''
paste the see result in an email message

The good result looks like (must be displayed with fixed pitch font):
*  **    ***   ***   ***    **      ***
        * *   * *   * *   *  *   **   **
        ***   ***   ***    **    *      *

The display contains: pixel; line; lines for rect, polygon for rect; rect; round rect; circle top. The problem shows up in the top line.

*** glymacbug.ijs
coinsert 'jgl2' [ require 'gl2'

f_run=: 3 : 0
 wd 'pc f;xywh 0 0 50 50;cc g isigraph;pas 0 0;'
 NB. initialize form here
 wd 'pshow;'
)
f_close=: wd bind 'pclose'

f_g_paint=: 3 : 0
x=. 0
glpixel      x, 0
x=.3+x
gllines      x, 0 5 0
x=. 6+x
y=. 2+x
gllines      x, 0, y,0,y,2,x,2,x,0
x=. 6+x
y=. 2+x
glpolygon    x, 0, y,0,y,2,x,2,x,0
x=. 6+x
glrect       x, 0 3 3
x=. 6+x
glroundr     x, 0 4 3 2 2
x=. 6+x
glellipse    x, 0 10 10
)

see=: 3 : 0
wd'psel f'
' *'{~0=3 45$glqpixels 0 0 45 3
)

inv=: 3 : 0
wd'psel f;setinvalid g'
)
***
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to