/**************************}
{ FastScript v1.0          }
{ Bitmap demo              }
{**************************/

void MakePattern(TBitmap b)
{ 
  for (int i = 0; i < b.Width; i++)
    for (int j = 0; j < b.Height; j++)
      if (((i + j) % 3) == 0)
        b.Pixels[i, j] = claWhite; else
        b.Pixels[i, j] = claBlack;
}

{
  TBitmap bmp = new TBitmap(100, 100);
  MakePattern(bmp);
  bmp.SaveToFile("test.bmp");
  delete bmp;
  ShowMessage("BMP file saved successfully");
}
