Создать изображение нескольких фаз движения объекта (не менее 3)

@Началка · Регистрация: 15.02.2014

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста: создать изображение нескольких фаз движения объекта (не менее 3).Используя созданные образы (фазы движения), создайте анимацию на экране. Изобразить,плывущего кита.

@Kordn · 19.05.2014, 15:00

С красивым компьютерным рисованием - это не ко мне. Придется Вам самому повозиться с вашим китом

Но суть примерно такова:

Pascal

uses
  GraphAbc;
 
const
  ///Кол-во спрайтов
  PICTURE_COUNT = 4;
 
var
  PictureArray: array [0..PICTURE_COUNT - 1] of Picture;
 
///Инициализируем изображения
procedure InitPictures;
begin
  for var i := 0 to PICTURE_COUNT - 1 do
  begin
    PictureArray[i] := new Picture(100, 100);  
    SetBrushColor(clRandom);
    PictureArray[i].Circle(20 * (i + 1), 20 * (i mod 2 + 1), 10);
  end;
end;
 
///Запускаем анимацию
procedure PlayAnimation;
begin
  while true do
    for var i := 0 to PICTURE_COUNT - 1 do
    begin
      Window.Clear;
      PictureArray[i].Draw(100, 100);
      Sleep(200);
    end;
end;
 
begin
  InitPictures;
  PlayAnimation;
end.

@Началка 0 / 0 / 0 Регистрация: 15.02.2014 Сообщений: 18
		1
	Создать изображение нескольких фаз движения объекта (не менее 3) 18.05.2014, 22:35. Показов 1324. Ответов 1 Метки нет (Все метки) Помогите пожалуйста: создать изображение нескольких фаз движения объекта (не менее 3).Используя созданные образы (фазы движения), создайте анимацию на экране. Изобразить,плывущего кита. 0

	19.05.2014, 15:00

Опции темы

Создать изображение нескольких фаз движения объекта (не менее 3)

Решение