§ 18. Составление алгоритмов для работы с графикой

Пусть дом начинается в точке (x; y), его ширина a, высота b. Правый нижний угол корпуса имеет координаты (x + a; y + b). Если все детали используют те же x и y, изменение опорной точки переносит дом целиком.

Параметры должны иметь понятный смысл. Для прямоугольного треугольника вершины можно задать как (x; y), (x + a; y), (x; y + b). Тогда a и b — длины катетов. Координаты внутренней точки для заливки выбирают с учётом размеров: фиксированный небольшой сдвиг не гарантирует попадание внутрь любой фигуры.

Вместо копирования длинного фрагмента создают процедуру, например DrawBox(x, y, w, h). Вызов с новыми аргументами строит прямоугольник в другом месте или другого размера. Порядок аргументов должен совпадать с объявлением параметров.

Локальные переменные служат для промежуточных вычислений внутри процедуры. Понятные имена помогают избежать путаницы между координатами и размерами. Проверять процедуру удобно отдельно, на одном простом рисунке, а затем использовать её в цикле.

procedure DrawBox(x, y, w, h: integer);
begin
  Rectangle(x, y, x + w, y + h);
end;

Random(a) в PascalABC возвращает целое от 0 до a − 1 при положительном a. Поэтому Random(6) + 1 моделирует значения от 1 до 6. Вариант Random(a, b), рассматриваемый в учебнике, выбирает целое между указанными границами включительно.

Случайные координаты должны учитывать размер фигуры. Для окружности радиуса r в окне W × H допустим центр от r до W − 1 − r по горизонтали и от r до H − 1 − r по вертикали. Сначала проверьте, что такой диапазон существует. Случайный выбор не гарантирует равное число каждого результата в короткой серии.

Цикл задаёт количество объектов, процедура — форму каждого, параметры — положение, размер и цвет. Для ровного ряда координату изменяют на постоянный шаг. Для случайной композиции выбирают значения из допустимых диапазонов. Условие может выделять отдельные фигуры другим цветом.

Проверяйте, что каждый объект помещается в окне, его размеры положительны, а порядок рисования соответствует замыслу. Перекрытия не всегда являются ошибкой, но должны быть осознанными. Для повторяемой проверки удобно использовать один и тот же набор входных значений.