§ 14. Графические возможности среды программирования PascalABC

Модуль GraphABC подключают строкой uses GraphABC; перед основной частью программы. Начало координат расположено в левом верхнем углу. Если ширина окна W пикселей, координаты его столбцов идут от 0 до W − 1. Для высоты H допустимые строки идут от 0 до H − 1.

SetWindowSize задаёт размеры окна, ClearWindow очищает его выбранным цветом. Чтобы фигура целиком поместилась, недостаточно проверить только её центр. Для окружности нужно учитывать радиус; для прямоугольника — оба противоположных угла.

Line(x1, y1, x2, y2) соединяет две точки. Rectangle(x1, y1, x2, y2) задаёт прямоугольник противоположными углами: последние два аргумента — не ширина и высота. Circle(x, y, r) задаёт центр и радиус. Ellipse использует ограничивающий прямоугольник.

LineTo рисует от текущего положения пера до заданной точки, поэтому её результат зависит от предыдущих команд. Для самостоятельного отрезка проще явно задать оба конца через Line. В черновике полезно подписать ключевые координаты будущего рисунка.

uses GraphABC;
begin
  SetWindowSize(400, 300);
  Rectangle(40, 50, 160, 120);
  Circle(250, 100, 35);
  Line(40, 180, 320, 180);
end.

Перо определяет цвет, толщину и стиль контура; кисть — заполнение фигуры. SetPenColor и SetPenWidth задают свойства линии, SetBrushColor — цвет заполнения. Прозрачная кисть bsClear позволяет рисовать контур без закрывания нижнего изображения.

Изменение цвета пера не перекрашивает уже нарисованные линии. FloodFill(x, y, color) заполняет связанную область от указанной точки. Если в границе есть разрыв, заливка может выйти наружу. Начальную точку выбирают внутри нужной области и не на её границе.

SetPenColor(clGreen);
SetPenWidth(3);
SetBrushColor(clYellow);
Rectangle(40, 40, 160, 110);
SetBrushStyle(bsClear);
Circle(180, 110, 50);

TextOut(x, y, text) выводит текст от заданной позиции. SetFontSize, SetFontName и SetFontColor настраивают шрифт. Строку в Паскале заключают в одинарные кавычки. Подпись лучше размещать после фона, чтобы фон не закрыл её.

Рисунок выполняется в порядке команд. Сначала удобно нарисовать крупные фоновые области, затем детали и подписи. Если нужно создать параметрический рисунок, координаты выражают через переменные. Тогда изменение одной величины, например ширины дома, согласованно меняет несколько деталей.