12 lines
265 B
ObjectPascal
12 lines
265 B
ObjectPascal
procedure MunchingSquares(Image: TImage);
|
|
{XOR's X and Y to select an RGB level}
|
|
var W,H,X,Y: integer;
|
|
begin
|
|
W:=Image.Width;
|
|
H:=Image.Height;
|
|
for Y:=0 to Image.Height-1 do
|
|
for X:=0 to Image.Width-1 do
|
|
begin
|
|
Image.Canvas.Pixels[X,Y]:=RGB(0,X xor Y,0);
|
|
end;
|
|
end;
|