13 lines
381 B
Text
13 lines
381 B
Text
constant dimx = 512, dimy = 512
|
|
constant fn = open("first.ppm","wb") -- b - binary mode
|
|
sequence color
|
|
printf(fn, "P6\n%d %d\n255\n", {dimx,dimy})
|
|
for y=0 to dimy-1 do
|
|
for x=0 to dimx-1 do
|
|
color = {remainder(x,256), -- red
|
|
remainder(y,256), -- green
|
|
remainder(x*y,256)} -- blue
|
|
puts(fn,color)
|
|
end for
|
|
end for
|
|
close(fn)
|