require 'bmp gl2' coinsert 'jgl2' dat=:256 #. [: |."1 [: [ 256 256 256 #: [: readbmp jpath
foo=: 3 : 0 wd 'pc test closeok' DAT=:dat '~system\examples\data\toucan.bmp' wd 'xywh 0 0 150 150;cc g isigraph' wd 'pas 0 0;pshow' test_g_paint'' 6!:3 (5) DAT=:|.dat '~system\examples\data\toucan.bmp' test_g_paint'' ) test_g_paint=: 3 : 0 glpixels_jgl2_ (40 40 ,|.$DAT),,DAT glpaint'' ) foo'' --- [EMAIL PROTECTED] wrote: > How can I see one toucan and then, after a pause, see the upsidedown toucan? > > require 'bmp gl2' > > dat=:256 #. [: |."1 [: [ 256 256 256 #: [: readbmp jpath > > foo=: 3 : 0 > wd 'pc test closeok' > DAT=:dat '~system\examples\data\toucan.bmp' > wd 'xywh 0 0 150 150;cc g isigraph' > wd glpaint'' > 6!:3 (5) > DAT=:|.dat '~system\examples\data\toucan.bmp' > wd 'xywh 0 0 150 150;cc g isigraph' > wd 'pas 0 0;pshow' > ) > > test_g_paint=: 3 : 0 > glpixels_jgl2_ (40 40 ,|.$DAT),,DAT > ) > > foo'' > > Thanks, Linda > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
