Ребят помогите пожалуста нужно программку написать чтоб показать движение машины способом запоминания изображения и выводом его на экран (когда машина полностью выезжает за пределы экрана то поевляется снова).
Вот часть программы рисующаа машину:
Program car;
Uses crt,Graph;
var
st:string;
d,m,n,j:integer;
begin
d:=detect;
InitGraph(d,m,'d:\bp\bgi');
repeat
line(60,400,30,400);
line(70,370,110,370);
line(110,370,120,400);
line(120,400,300,400);
line(310,370,350,370);
line(360,400,440,400);
line(430,370,290,340);
line(240,300,100,300);
line(30,350,30,400);
line(30,350,100,300);
line(60,400,70,370);
line(300,400,310,370);
line(360,400,350,370);
line(440,400,430,370);
line(290,340,240,300);
circle(330,400,26);
circle(90,400,26);
until keypressed;
end.
Вот эту "машинку" теперь копируй с помощью GetImage, и потом выводи на экран через PutImage
(поиск по словам GetImage, PutImage, ImageSize) должен выдать примеры использования... Только это слишком большое изображение, будет замедление при выводе, получится некрасиво. Сделай рисунок поменьше.
А можете написать программный код для перемишения а то у меня не получается.