Very cool! On Fri, Feb 4, 2022 at 3:06 PM Raul Miller <[email protected]> wrote:
> On Thu, Feb 3, 2022 at 7:17 PM bill lam <[email protected]> wrote: > > gl2 expect ascii or utf8. Try > > gltext 8&u: u:9017 > > Or > > gltext 8&u: 9017 > > Thanks -- that worked. (And, I've updated the gltext entry in the wiki > to reflect this issue.) > > For what it's worth, here's the related (and useless, but fun) J > implementation of the rosettacode "Matrix digital rain" task: > > require'ide/qt/gl2' > coinsert'jgl2' > > junk=: 7 u:;48 65 16b30a1(+i.)&.>10 26 90 > sz=:128 72 > len=: {:sz > heat=: 0,(255)(len-1)}(<.0.5+255*(% >./)i.len)*/0 1 0 > > canvas=: sz$' ' > hp=: sz$0 > cols=: i.0 > rows=: i.0 > > update=: {{ > try.glfill 0 0 0 255 catch.wd'timer 0'return.end. > cols=: cols,?{.sz > rows=: rows,0 > canvas=: (junk{~?(#cols)##junk) (cols,.rows)} canvas > hp=: len (cols,.rows)} hp > for_p.}./:~~.0,,hp do. > gltextcolor glrgb p{heat > for_xy.($hp)#:I.,p=hp do. > gltextxy 10*xy > gltext 8 u:(<xy) { canvas > end. > end. glpaint'' > hp=: 0 >. hp-1 > keep=: rows<{:sz-1 > cols=: keep#cols > rows=: keep#rows+1 > EMPTY > }} > sys_timer_z_=: update_base_ > > wd rplc&('DIMS';":10*sz) {{)n > pc rain closeok; > setp wh DIMS; > cc green isidraw flush; > pshow; > timer 42 > }} > > Thanks, > > -- > Raul > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
