2015-12-28 14:25:15 +03:00
|
|
|
// Графика. Пример "наивной" анимации. Эффект мерцания
|
2015-05-14 22:35:07 +03:00
|
|
|
uses GraphABC;
|
|
|
|
|
|
|
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
Window.Title := 'Демонстрация простой анимации';
|
2015-05-14 22:35:07 +03:00
|
|
|
var y := 200;
|
|
|
|
|
Brush.Color := clGreen;
|
|
|
|
|
for var x := 70 to 500 do
|
|
|
|
|
begin
|
|
|
|
|
Window.Clear(clWhite);
|
|
|
|
|
Circle(x,y,50);
|
|
|
|
|
Sleep(3);
|
|
|
|
|
end;
|
|
|
|
|
end.
|
