mixster

var
  meh: T2DIntArray;
  x, y, bmp: Integer;
begin
  DisplayDebugImgWindow(200, 100);

  SetLength(meh, 100);
  for y := 0 to 99 do
  begin
    SetLength(meh[y], 200);
    for x := 0 to 199 do
      meh[y][x] := Random(256);
  end;

  bmp := BitmapFromString(200, 100, '');
  for y := 0 to 99 do
    for x := 0 to 199 do
      FastSetPixel(bmp, x, y, RGBtoColor(meh[y][x], meh[y][x], meh[y][x]));

  SafeDrawBitmap(bmp, GetDebugCanvas, 0, 0);
  FreeBitmap(bmp);
end.