GAECHKA
Твоя помощница в решении задач

Анимация: как зациклить картинку?

Нужна помощь! Я не знаю как зациклить картинку чтоб она заходила в одну сторону и выходила с другой и так бесконечно повторялась.

uses graphABC;
var pic, w:Picture;
    x,y,i:integer;
    o:real;
begin 
SetWindowSize(600,600);
 pic:=Picture.Create(800,200);
 pic.Load('cloud.png');
 x:=0;
y:=100;
lockdrawing;
for i:=1 to 120 do 
begin
if i120 then
begin
w:=Picture.Create('background.png');
w.Load('background.png');
w.Draw(0,0);
 pic.Draw(x,y);
  sleep(20);
  x:=x+5;
  redraw
 end
else if i>120 then
 end;
 //?
//?
//?
end.
0
вопрос задан

Источник


0 ответов