Концентрические окружности
Серия вложенных окружностей с цветом, зависящим от радиуса — демонстрация команды окружность и цветового пространства HSL.
Разбор
Параметры
новый лист(800, 600, белый)
перо(2, чёрный)
Лист 800×600. Перо толщиной 2 пикселя с чёрным контуром.
Цикл по радиусам
нц для r от 10 до 280 шаг 20
кисть(HSL(r * 360 / 280, 80, 60))
окружность(400, 300, r)
кц
Радиус растёт от 10 до 280 с шагом 20 — итого 14 окружностей. Оттенок r * 360 / 280 меняется от 0° (красный) до 360° (снова красный) по мере роста радиуса. Насыщенность 80% и светлота 60% дают пастельные, не слишком яркие цвета.
Все окружности рисуются с центром в точке (400, 300) — центре листа.
Полная программа
использовать Рисователь
алг
нач
цел r
новый лист(800, 600, белый)
перо(2, чёрный)
нц для r от 10 до 280 шаг 20
кисть(HSL(r * 360 / 280, 80, 60))
окружность(400, 300, r)
кц
кон