Добавил функцию закрашивания произвольной замкнутой поверхности любым цветом.
Fill (x:
integer; y:
integer: r:
integer; g:
integer, b:
integer)
Попробуйте, например такой пример:
Program IM;
Uses gfx;
begin
SetColor(0, 0, 0);
DrawLine(5, 5, 150, 10);
DrawLine(150, 10, 170, 200);
DrawLine(170, 200, 60, 60);
DrawLine(60, 60, 5, 105);
DrawLine(5, 105, 5, 5);
Fill(20, 20, 100, 120, 250);
Repaint;
Delay(10000);
end.
Результат можно увидеть на скриншоте.