Anonymous user
Munching squares: Difference between revisions
no edit summary
(added J example) |
No edit summary |
||
Line 152:
[[Image:Xor pattern Java.png|200px]]
=={{header|Liberty BASIC}}==
<lang lb>
nomainwin
w =512
' allow for title bar and window border
WindowWidth =w +2
WindowHeight =w +34
open "XOR Pattern" for graphics_nsb_nf as #w
#w "trapclose quit"
#w "down"
for x =0 to w -1
for y =0 to w -1
b =( x xor y) and 255
print b
#w "color "; 255 -b; " "; b /2; " "; b
#w "set "; x; " "; w -y -1
scan
next y
next x
#w "flush"
wait
sub quit j$
close #w
end
end sub
</lang>
Image available at [[http://www.diga.me.uk/xorRC.gif]]
=={{header|Mathematica}}==
| |||