11 lines
178 B
Text
11 lines
178 B
Text
w = 100
|
|
graphic #g, w,w
|
|
for x = 0 to w
|
|
for y = 0 to w
|
|
b = (x xor y) and 255
|
|
#g color(255 -b,b /2,b)
|
|
#g "set "; x; " "; w -y -1
|
|
next y
|
|
next x
|
|
render #g
|
|
#g "flush"
|