Почему так медленно работает SetPixel? - PascalABC.NET

Формулировка задачи:

Видел похожие темы но ответа не нашел. Не могу понять почему так медленно работает Setpixel. Внеэкранный буфер помогает но не так как хотелось бы. Как можно ускорить прорисовку экрана, если можно примерчик.

Решение задачи: «Почему так медленно работает SetPixel?»

Листинг программы

uses
  graphabc, utils;
 
begin
  LockDrawing;
  for var x := 1 to 300 do
    for var y := 1 to 300 do
      setpixel(x, y, clblue);
  writeln(milliseconds);
  Redraw;
  
end.

Объяснение кода листинга программы

В этом коде используется библиотека GraphABC.Net для рисования на графике.

Переменная x инициализируется значением 1, затем в цикле изменяется от 1 до 300.
Переменная y инициализируется значением 1, затем в цикле изменяется от 1 до 300.
В каждой итерации цикла выполняется вызов функции setpixel, которая устанавливает цвет пикселя на графике.
Параметры функции setpixel - это координаты пикселя (x, y), а значение clblue задает синий цвет пикселя.
После завершения внутреннего цикла выводится значение переменной milliseconds, которая измеряет время выполнения цикла в миллисекундах.
Выполняется команда Redraw, которая обновляет график. Код вызывает функцию setpixel 9000 раз (300*300), что может занять некоторое время при работе с графикой. Если вы хотите ускорить выполнение кода, можно попробовать оптимизировать функцию setpixel или изменить параметры графика.