Практическое задание N 1. 47
Модифицировать программу "мерцание
звезд":
1. Если точка
гаснет, то ее положение изменить на
несколько пикселов и выводить цветом
звезды линию к новым координатам звезды.
2. Если точка
гаснет, то звезда "взрывается"
-
рисуется красная окружность радиусом два
пиксела с коротким звуковым импульсом и
гашением этой окружности после "взрыва".
3. Перемещать
звезды желтого цвета вокруг центра экрана (выход
пиксела за экран не контролировать).
4. Разделить
экран на четыре области,
в каждой из которых звезды белого цвета
смещать на два пиксела по "Х" ,
"Y" от
центра экрана.
{------------------------------------------------------------------
Фрагмент N 3 программы
"снег"
( рисование движущегося
массива пикселов с остановкой на границе
экрана ).
----------------------------------------------------------------- }
for i:=1 to 200 do
begin
X[i]:= random(Gx);
Y[i]:= random(Gy div 2); PutPixel(X[i],Y[i],15)
end;
Repeat
for i:=1 to 200 do begin
if ( Y[i] < Gy )
and ( GetPixel(X[i],Y[i]+1)= 0 ){ анализ
границы }
{
и цвета пиксела }
then begin PutPixel(X[i], Y[i],
0); Y[i]:= Y[i]+1;
PutPixel(X[i], Y[i],15) end {
движение
пикселов }
else begin {
образование
новых
пикселов }
Y[i]:= random(Gy div 10);
X[i]:= random(Gx); PutPixel(X[i],
Y[i], 15) end end
Until
keypressed;
{-----------------------------------------------------------------}
Сначала генерируется набор координат (X[i],
Y[i]) в верхней половине экрана и выводятся
белые точки (снежинки). Затем
каждая точка гасится, смещается
по оси Y на 1 пиксел и высвечивается вновь.
Если точка по ходу движения достигнет
нижнего края экрана или встретит "преграду"
(точку не черного цвета),
то она не гасится и генерируется новая
точка в верхней части экрана.
