Задача в pascal abc!Движение графики!
Помогите пжл решить задачу в паскале...Тема графика,движение!Нужно нарисовать стрелу которая летит и попадает в мишень!
Я сделал,но стрела постоянно закрашивает мишень!
Вот код:
Program a3;
uses graphabc,crt;
var
i,r,x1,x2,x3,x4,x5,x6:integer;
begin
setpenwidth(4);
r:=100;
x1:=40;
x2:=150;
x3:=130;
x4:=150;
x5:=130;
x6:=150;
setpencolor(clblue);
for i:=1 to 5 do
begin
setbrushcolor(clgray);
circle(300,200,r);
r:=r-11;
setbrushcolor(clblack);
circle(300,200,r);
r:=r-11;
end;
setpencolor(clred);
for i:=1 to 150 do
begin
setpencolor(clred);
line(x1,200,x2,200);
line(x3,180,x4,200);
line(x5,220,x6,200);
delay(10);
setpencolor(clwhite);
line(x1,200,x2,200);
line(x3,180,x4,200);
line(x5,220,x6,200);
x1:=x1+1;
x2:=x2+1;
x3:=x3+1;
x4:=x4+1;
x5:=x5+1;
x6:=x6+1;
end;
r:=100;
setpencolor(clblue);
for i:=1 to 5 do
begin
setbrushcolor(clgray);
circle(300,200,r);
r:=r-11;
setbrushcolor(clblack);
circle(300,200,r);
r:=r-11;
end;
setpencolor(clred);
line(x1,200,x2,200);
end.