на темном небе с цветными точечными звездами отображать графический объект с заливкой, который должен двигаться по экрану и отталкиваться от его краев

program Lab_Work_8;
// Подключаем библиотеки доп. функций
uses
GraphABC;
// Определяем используемые константы
const
DELTA = 5; // Величина смещения объектов на экране
STEPS_COUNT = 85; // Число шагов смещения объектов
DELAY = 5; // Задержка появления объекта на экране
// Определяем новые типы данных
type
// Объект "ЗВЕЗДА"
TStar = class
// Внутренние переменные и процедуры - доступны только объекту
private
X, Y: integer; // Координаты объекта на экране
DrawColor: Color; // Цвет объекта
procedure Show; // Показывает объект на экране
procedure Hide; // Прячет объект с экрана
// Внешние переменные и процедуры -
// используются для доступа к объекту
public
// Создает объект, заполняет нач. значения, показывает на экране
constructor Create(sX, sY: integer; sColor: Color);
// Перемещает объект вверх
procedure MoveUp;
// Перемещает объект вниз
procedure MoveDown;
// Перемещает объект влево
procedure MoveLeft;
// Перемещает объект вправо
procedure MoveRight;
end;
// ========================================================
// TStar
// ========================================================
constructor TStar.Create(sX, sY: integer; sColor: Color);
begin
// Заполняем начальные значения объекта
X := sX;
Y := sY;
DrawColor := sColor;
// Рисуем объект
Show;
end;
procedure TStar.Show;
Var
starData: array of Point;
begin
// Устанавливаем цвет и тип пера и кисти
SetPenColor(DrawColor); // Цвет для контура объекта
SetPenWidth(2);
SetBrushColor(DrawColor); // Цвет и стиль заливки
// Рассчитываем координаты точек звезды
SetLength(starData,10);
starData[0].X := X+30;
starData[0].Y := Y;
starData[1].X := X+20;
starData[1].Y := Y+20;
starData[2].X := X;
starData[2].Y := Y+20;
starData[3].X := X+20;
starData[3].Y := Y+33;
starData[4].X := X+10;
starData[4].Y := Y+55;
starData[5].X := X+30;
starData[5].Y := Y+43;
starData[6].X := X+50;
starData[6].Y := Y+55;
starData[7].X := X+40;
starData[7].Y := Y+33;
starData[8].X := X+60;
starData[8].Y := Y+20;
starData[9].X := X+40;
starData[9].Y := Y+20;
// Рисуем звезду
Polygon(starData);
end;
procedure TStar.Hide;
begin
// Устанавливаем цвет заливки
SetBrushColor(clBlack);
// Стираем объект
FillRectangle(X-3, Y-3, X + 64, Y + 64);
end;
procedure TStar.MoveUp;
begin
// Прячем объект
Hide;
// Пересчитываем координаты
Y := Y - DELTA;
// Показываем объект
Show;
// Делаем задержку
Sleep(DELAY);
end;
procedure TStar.MoveDown;
begin
// Прячем объект
Hide;
// Пересчитываем координаты
Y := Y + DELTA;
// Показываем объект
Show;
// Делаем задержку
Sleep(DELAY);
end;
procedure TStar.MoveLeft;
begin
// Прячем объект
Hide;
// Пересчитываем координаты
X := X - DELTA;
// Показываем объект
Show;
// Делаем задержку
Sleep(DELAY);
end;
procedure TStar.MoveRight;
begin
// Прячем объект
Hide;
// Пересчитываем координаты
X := X + DELTA;
// Показываем объект
Show;
// Делаем задержку
Sleep(DELAY);
end;
// ========================================================
// Основная программа
// ========================================================
var
MyStar1: TStar; // Звезда #1
MyStar2: TStar; // Звезда #2
MyStar3: TStar; // Звезда #3
i: integer; // Счетчик цикла
begin
// Начальные установки экрана
SetWindowSize(800, 600);
SetWindowIsFixedSize(TRUE);
SetWindowCaption('My Star Sky!!!');
ClearWindow(clBlack);
// Создаем объекты и показываем их на экране
MyStar1 := TStar.Create(110, 20, clLightGreen);
MyStar2 := TStar.Create(20, 20, clLightBlue);
MyStar3 := TStar.Create(20, 100, clRed);
while (TRUE) do
begin
// Двигаем звезды в разные стороны
for i := 1 to STEPS_COUNT do
begin
MyStar1.MoveRight;
MyStar3.MoveDown;
MyStar2.MoveRight;
MyStar2.MoveDown;
end;
// Собираем звезды обратно
for i := STEPS_COUNT downto 1 do
begin
MyStar1.MoveLeft;
MyStar3.MoveUp;
MyStar2.MoveLeft;
MyStar2.MoveUp;
end;
end;
end.