Как поменять чтоб машина была справой стороны ,работаю в паскале

program aaa;
uses graphabc;
var
fon,avto: Picture;
x, y, w, h,l: integer;
begin
Setwindowsize(1366, 768);
fon := Picture.Create('d:\fon.png');
avto := Picture.Create('d:\кам.jpg');
avto.Transparent := true;
x := 0;y := 410;w := 240;h := 100; l:=100;
while x <= 400 do
begin
clearwindow;
fon.Draw(0,0);
avto.Draw(avto,y,w,h,l);
x:=1-x;
w:=w-2;
h:=h+1;
l:=l-10;
sleep(20);
redraw;
end;
end.
Вопрос закрыт

Глеб Черняк

от 55 p.
Сейчас на сайте
Глеб Черняк
Глеб Черняк
Эксперт месяца
Читать ответы

Олег С.

от 50 p.
Читать ответы

Алексей Чудинов

Бесплатно
Читать ответы
Посмотреть всех экспертов из раздела Технологии > Компьютерная графика