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

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, Mac OS. ☑☑☑ Избавлю от вирусов, баннеров и прочей гадости. ☑ Помогу разобраться с железом. ☑ Видеомонтаж, Фото и видео услуги. ●●● Узнать подробнее
Посмотреть всех экспертов из раздела Технологии > Компьютерная графика