Matrix digital rain: Difference between revisions
J
(Matrix digital rain en JavaScript) |
(J) |
||
Line 1,047:
}
}</lang>
=={{header|J}}==
This implementation was written for jqt under j903:
<lang J>
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.glrgb 0 0 0 catch.wd'timer 0'return.end.
cols=: cols,?{.sz
rows=: rows,0
canvas=: (junk{~?(#cols)##junk) (cols,.rows)} canvas
hp=: len (cols,.rows)} hp
glfill 0 0 0 255
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.
hp=: 0 >. hp-1
keep=: rows<{:sz-1
cols=: keep#cols
rows=: keep#rows+1
glpaint''
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
}}
</lang>
=={{header|Javascript}}==
Line 1,217 ⟶ 1,266:
</body>
</html></pre>
=={{header|Julia}}==
| |||