А теперь вспомним про дифракцию, которая поможет нам сделать звёзды более выразительными, «сиятельными».
Лучи, расходящиеся от яркого центра звезды, постепенно теряют свою яркость, не меняя при этом цветовой тон. Для рисования такой звезды нам потребуется процедура Star, в которую параметрами передаются координаты и цвет центра.
• Добавьте в программу процедуру, выводящую звезду, и вызов этой процедуры:
• Запустите программу — теперь в звёздах больше романтики?
Разбор
Звёздочка в процедуре Star рисуется из девяти точек: в центре белая, самая яркая; рядом с ней с четырёх сторон цветные точки (светлые, из промежутка [9;15]); дальше располагаются точки того же цветового тона, но более тёмные:
Благодаря способу кодирования цвета в Pascal, цвета одного тона имеют номера, различающиеся на 8:
| значение
| цвет
| значение
| Цвет (оттенки)
|
|
| Черный
|
| Серый
|
|
| Синий
|
| Синий
|
|
| Зеленый
|
| Зеленый
|
|
| Голубой
|
| Голубой
|
|
| Красный
|
| Красный
|
|
| Лиловый
|
| Лиловый
|
|
| Коричневый
|
| желтый
|
|
| серый
|
| белый
|
• Уменьшите количество звёзд до 50—100, иначе слишком уж ярко на небесах...
