Нарисовать движущийся легковой автомобиль

@dudos · Регистрация: 08.06.2016

Author24 — интернет-сервис помощи студентам

Помогите с анимацией автомобиля.

Pascal

uses crt,Graph;
var a,b,x: integer;
begin
a:=Detect; InitGraph(a,b,'');for x:=0 to 639 do
begin
SetBkColor(1);
Setcolor(12);
line(150,220,250,220);
line(150,260,450,260);
line(450,260,450,220);
line(450,220,350,220);
line(350,220,350,180);
line(350,180,250,180);setfillstyle(1,10);
line(250,180,250,220);Floodfill(400,150,10);
Setcolor(9);
circle(220,250,25);
circle(380,250,25);setfillstyle(1,14);
fillellipse(220,250,27,27);
fillellipse(380,250,27,27);
 
delay(1000);
cleardevice;
end;
 
 
readln; Closegraph;
 
end.

@Пытливый · 03.04.2014, 21:45

Вам надо нарисовать на каждом из колес ассиметричный маркер (точку например) и вот этот марке вращайте вокруг оси каждого колеса. Будет иллюзия движения автомобиля.

@Пытливый 3586 / 2195 / 693 Регистрация: 29.05.2013 Сообщений: 9,374
	03.04.2014, 21:45	2
	Вам надо нарисовать на каждом из колес ассиметричный маркер (точку например) и вот этот марке вращайте вокруг оси каждого колеса. Будет иллюзия движения автомобиля. 0