Движение обьекта по прямой

[Wi1D]

Мне нужно прописать пули летящие по танку из пушки.
Выглядить это должно следующим образом :
Пуля паралелограм!У меня есть координаты прицела (x1,y1) который меняються и координаты пушки (xn,yn) они статичны. Смещаем обе точки вверх на 5 пикселей. Строим отрывок прямой образованной смещенными точками!Обрывок AB.Теперь этот AB по Oy смещаем на 10 и соединяем точками.Получаеться паралелограмм - ПУЛЯ!мне нужно чтобы куда бы я не поставил прицел комп расчитывал траекторию и k, гдк k:= tga!сам находил точки по x и y по формуле y:=tga*x+b чтобы получилось движение по траектории!Ниже схема наглядная в приблеженном виде

[Wi1D]

Код по любому не верен, но он есть

procedure vistrel(x1,y1:word);{---------------------BblCTPeJl------    }
var x_pyshki_n,y_pyshki_n,sm_n,x,y,x2,y2,i:integer;
CB,AB,k:real;
begin
x_pyshki_n:=520;
y_pyshki_n:=80;
sm_n:=20;

SetColor(white);
SetlineStyle(0,0,1);
line(x_pyshki_n,y_pyshki_n,x1,y1);
x:=x1;
x2:=x_pyshki_n;

y:=y1-sm_n;
y2:=y_pyshki_n-sm_n;

CB:=abs(sqrt(sqr(x2)+sqr(y2))-sqrt(sqr(x2)+sqr(y2)));
AB:=abs(sqrt(sqr(x)+sqr(y))-sqrt(sqr(x2)+sqr(y2)));
k:=abs(CB/AB);
for i:=1 to 15 do begin
x2:=x2-4;
y2:=round(k*x2);
PutPixel(x2,y2,15);
end;
{y:=y1-yn;
x:=x1-xn;
k:=abs(y/x);
x:=xn-1;
y:=k*x;
line(round(x),round(y),x1,y1);}

end;