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

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.
Вопрос закрыт
Рекомендуем личную консультацию

Олег С.

Сейчас на сайте
Помощь по Windows и программам установленным у вас. Антивирусная защита, Настройка безопасности интернет, Решу проблемки с телефонами. Прошивка, настройка Борьба с вирусами
Посмотреть всех экспертов из раздела Технологии > Компьютерная графика