Графические возможности Delphi: Мультипликация, использование ьиотвых образов

Мультипликация

Под мультипликацией обычно понимается движущийся и меняющийся рисунок. В простейшем случае рисунок может только двигаться или только меняться.

Как было показано выше, рисунок может быть сформирован из графических примитивов (линий, окружностей, луг, многоугольников и т. д.). Обеспечить перемещение рисунка довольно просто: надо сначала вывести рисунок на экран, затем через некоторое время стереть его и снова вывести этот же рисунок, но уже на некотором расстоянии от его первоначального положения. Подбором времени между выводом и удалением рисунка, а также расстояния между старым и новым положением рисунка (шага перемещения), можно добиться того, что у наблюдателя будет складываться впечатление, что рисунок равномерно движется по экрану. {replace on}

Следующая простая программа, текст которой приведен в листинге 10.8, а вид формы — на рис. 10.15, демонстрирует движение окружности от левой к правой границе окна программы.

Рис. 10.15. Форма программы Движущаяся окружность

Листинг 10.8. Движущаяся окружность

unit mcircle ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
type
TForml = class(TForra)
Timer1: TTimer;
procedure TimerlTimer(Sender: TObject);
procedure FormActivatejSender: TObject);
private
{Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.DEW}
var
Form1; TForm;
x,y: byte; // координаты центра окружности
dx: byte; // приращение координаты х при движении окружности
// стирает и рисует окружность на новом месте
procedure Ris;
begin
// стереть окружность
fоml.Canvas.Pen.Color:=forml.Color;
forml.Canvas.Ellipse [x,y,x+10,y+10) ;
x:=x+dx;
// нарисовать окружность на новом месте
forml.Canvas.Pen.Color:=c!Black;
forml.Canvas.Ellipse(х,у,x+10,y+10);
end;
// сигнал or таймера
procedure TForml.TimerlTiroer(Sender: TObject];
begin
Ris;
end;
procedure TForml.FormActivate(Sender: TObject);
begin
y:=10;
dx:=5;
tirnerl. Interval: =50; // период возникновения события OriTimer — 0.5 сек
forml.canvas.brush.color:=forml.color;
end;
end.

Основную работу выполняет процедура RIS, которая стирает окружность и выводит ее на новом месте. Стирание окружности выполняется путем перерисовки окружности поверх нарисованной, но цветом фона.

Для обеспечения периодического вызова процедуры Ris в форму программы добавлен невизуальный компонент Timer (таймер), значок которого находится на вкладке System палитры компонентов (рис. 10.16). Свойства компонента Timer, перечислены в табл. 10.9.

Рис. 10.16. Значок компонента Timer

Добавляется компонент Timer к форме обычным образом, однако, поскольку компонент Timer является невизуальным, т. е. во время работы программы не отображается на форме, его значок можно поместить в любое место формы.

Таблица 10.9, Свойства компонента Timer

Компонент Timer генерирует событие OnTimer. Период возникновения события OnTimer измеряется в миллисекундах и определяется значением свойства interval. Следует обратить внимание на свойство Enabled. Оно дает возможность программе "запустить" или "остановить" таймер. Если значение свойства Enabled равно False, то событие OnTimer не возникает.

Событие OnTimer в рассматриваемой программе обрабатывается процедурой TimeriTimer, которая, в свою очередь, вызывает процедуру Ris. Таким образом, в программе реализован механизм периодического вызова процедуры Ris.

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

Метод базовой точки

При программировании сложных изображений, состоящих из множества

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

Суть этого метода заключается в следующем:

При программировании сложных изображений, состоящих из множестваэлементов, используется метод, который называется методом базовой точки.

Суть этого метода заключается в следующем:

Выбирается некоторая точка изображения, которая принимается за базовую.
Координаты остальных точек отсчитываются от базовой точки.
Если координаты точек изображения отсчитывать от базовой в относительных единицах, а не в пикселах, то обеспечивается возможность масштабирования изображения.

На рис. 10.17 приведено изображение кораблика. Базовой точкой является точка с координатами (x0, y0). Координаты остальных точек отсчитываются именно от этой точки.

Рис. 10.17. Определение координат изображения относительно базовой точки

В листинге 10.9 приведен текст программы, которая выводит на экран изображение перемешающегося кораблика.

Листинг 10.9. Кораблик

unit ship_;
interface
 
uses
Windows, Messages, SysOtils, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;
type
TForml = class(TForra)
Timer!: TTiraer;
procedure TimerlTimer(Sender: TObject];
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x,y: integer; // координаты корабля (базовой точки)
implementation
{SR *.DFM}
// вычерчивает кораблик
procedure Titanik(x,y: integer; // координаты базовой точки
color: TColor]; // цвет корабля
const
dx - 5;
dy = 5;
var
buf: TColor;
begin
with forml.canvas do
begin
buf:=pen.Color; // сохраним текущий цвет
pen.Color:=color; // установим нужный цвет
// рисуем . . .
// корпус
MoveTo(x,y] ;
 
LineTo(к,y-2*dy);
LineTo(x+10*dx,y-2*dy);
LineTo(x+ll*dx,y-3*dy) ;
LineTo(x+17*dx,y~3*dy);
LineTo (x+1-4*dx,y);
LineTo(x,y);
// надстройке
MoveTo(x+3*dx,y-2*dy);
 
LineTo(x+4*dx,y-3*dy) ;
LineTo (x+4*dx, y-4dy);
LineTo(x+13*dx,y-4*dy);
LineTo(x+13*dx,y-3*dy);
MoveTo (x-f5*dx, y-3*dy) ;
LineTo (x+9*dx,y-3*dy);
// капитанский мостик
 
Rectangle(x+8*dx,y-4*dy,x+ll*dx,y-5*dy|;
// труба
Rectangle(x+7*dx,y-4*dy,x+8*dx,y-7*dy);
// иллюминаторы
Ellipse(x+ll*dx,y-2*dy,x+12*dx,y-l'dy);
Ellipse (x+13*dx,y-2*dy,x-t-14*dx,y-l*dy) ;
// мачта
MoveTo(x+10*dx,y-5'dy);
LineTo (x-HO*dx,y-10*dyi ;
// оснастка
MoveTo(x+17*dx,y-3*dy);
LineTo(x+10*dx,y-10*dy| ;
LineTo(x,y-2*dy);
pen.Color:=buf; // восстановим старый цвет карандаша
end;
end;
// обработка сигнала таймера
 
procedure TForml.TimerlTiiner(Sender: TObject];
begin
Titanik{x,y,forml.color); // стереть рисунок
if x < Form1.ClientWidth then x := x+5 else begin // новый рейс
x := О;
у := Random(50] + 100;
end;
Titanik(x,y,clffliite); // нарисовать в новой точке
end;
procedure TForml.FormActivatelSender: TObject);
begin
x:=0;
y:=100;
Forml.Color:=clNavy;
Timer1.Interval := 50; // сигнал таймера каждые 50 миллисекунд
end;
end.

Отрисовку и стирание изображения кораблика выполняет процедура Titanik, которая получает в качестве параметров координаты базовой точки и цвет, которым надо вычертить изображение кораблика. Если при вызове процедуры цвет отличается от цвета фона формы, то процедура рисует кораблик, а если совпадает— то "стирает". В процедуре Titanik объявлены константы dx и dy, определяющие шаг (в пикселах), используемый при вычислении координат точек изображения. Меняя значения этих констант, можно проводить масштабирование изображения.

Использование битовых образов

В предыдущем примере изображение формировалось из графических при-

митивов. Теперь рассмотрим, как можно реализовать перемещение одного

сложного изображения на фоне другого, например перемещение самолета

на фоне городского пейзажа.

Эффект перемещения картинки может быть создан путем периодической

перерисовки картинки с некоторым смещением относительно ее прежнего

положения. При этом предполагается, что перед выводом картинки в новой

В предыдущем примере изображение формировалось из графических примитивов. Теперь рассмотрим, как можно реализовать перемещение одногосложного изображения на фоне другого, например перемещение самолета на фоне городского пейзажа.

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

В рассматриваемой программе используется второй подход. Картинка выводится применением метода Draw к свойству canvasкомпонента image, a стирается путем копирования (метод CopyRect) нужной части фона из буфера на поверхность компонентаimage.

Форма программы приведена на рис. 10.18, а текст — в листинге ШЛО.

Компонент image используется для вывода фона, а компонент Timer — для организации задержки между циклами удаления и вывода на новом месте изображения самолета.

Листинг 10.10. Летящий самолет

unit anim_;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TForml = class(TForm)
Timerl: TTimer;
Irnagel: TImage;
procedure ForraActivate(Senderr TObject);
procedure TimerlTimer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations}
end;
var
Forml: TForm;
implementation
{$R*.DFM}
var
Back, bitmap, Buf : TBitMap; // фон, картинка, буфер
BackRct : TRect; // область фона, которая должна быть
// восстановлена из буфера
BufRct: Ttect; // область буфере, которая используется для
// восстановления фона
х,у:integer; // текущее положение картинки
W,H: integer; // размеры картинки
procedure TForml.FormActivatefSender: TObject);
begin
// создать три объекта — битовых образа
Back := TBitmap.Create; // фон
bitmap := TBitmap.Create; // картинка
Buf := TBitmap.Create; // буфер
// загрузить и вывести фон
Back.LoadFromFilei'factory.bmp'J;
Forml.Imagel.canvas.Draw(0,0,Back);
// загрузить картинку, которая будет двигаться
bitmap.LoadFromFile('aplane.bmp');
// определим "прозрачный" цвет
bitmap.Transparent := True;
bitmap.TransParentColor := bitmap.canvas.pixels[1,1];
// создать буфер длл сохранения копии области фона,
// на которую накладывается картинка
W:= bitmap.Width;
Н:= bitmap.Height;
Buf.Width;= W;
Buf.Height:=H;
Buf.Palette:=Back.Palette; // Чтобы обеспечить соответствие палитр ! !
Buf.Canvas.CopyMode:=cmSrcCopy;
// определим обласгь буфера, которая будет использоваться
// для восстановления фона
BufRet:^Bounds(0,0,W,H);
// начальное положение картинки
к := -W;
у := 20;
// определим сохраняемую область фона
BackRct:=Bounds(x,у,W,H);
// и сохраним ее
Buf.Canvas.CopyRect(BufRct,Back.Canvas,BackRct);
end;
// обработка сигнала таймера
procedure TForml.TimerlTimer(Sender: TObject);
begin
// восстановлением фона (из буфера) удалим рисунок
Forml.imagel.canvas.Draw(x,у,Buf);
x:=x+2;
if x>forml.Imagel.Width than x:=-W;
// определим сохраняемую область фона
BackRct:=Bounds(x,у,W,H);
// сохраним ее копию
Buf.Canvas.CopyRect(BufRet,Back.Canvas,BackRct];
// выведем рисунок
Forml.imagel.canvas.Draw(x,у,bitmap);
end;
// завершение работы программы
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// освободим память, выделенную
// для хранения, битовых образов
Back.Free;
bitmap. Free;
Buf.Free;
end;
end.

Рис. 10.18. Форма программы Самолет

Для хранения битовых образов (картинок) фона и самол

DelphiComponent.ru - бесплатно видеоуроки по Delphi, статьи, исходники

Графические возможности Delphi: Мультипликация, использование ьиотвых образов

Помоги проекту! Расскажи друзьям об этом сайте:

Компоненты Delphi

Подпишись на канал!

Вступай в группу!

DelphiComponent.ru - бесплатно видеоуроки по Delphi, статьи, исходники