Определение точки основания перпендикуляра

[tunyash]

Доброго времени суток.
Я пытаюсь создать небольшую игру и столкнулся с тем, что не умею определять координаты точки основания перпендикуляра. Известна точка, из которой нужно провести перпендикуляр и координаты концов отрезка, находящегося на данной прямой. Подскажите, пожалуйста, формулу по которой можно определить координаты точки. Заранее спасибо.

[JTG]

Такое?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure line(x1,y1,x2,y2: integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x1, x2, y1, y2: integer;  //прямая
  xn1, yn1, xn2, yn2: real; //перпендикуляр

implementation

{$R *.dfm}

procedure TForm1.line(x1,y1,x2,y2: integer);
begin
  Canvas.MoveTo(x1,y1);
  Canvas.LineTo(x2,y2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  x1 := 100;
  y1 := 100;
  xn1 := 200;
  yn1 := 200;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Color := clBlack;
  line(x1, y1, x2, y2);
  Canvas.Pen.Color := clBlue;
  line(round(xn1), round(yn1), round(xn2), round(yn2));
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  x2 := x;
  y2 := y;
  try
    xn2:=(x1*sqr(y2-y1) + xn1*sqr(x2-x1) + (x2-x1) * (y2-y1) * (yn1-y1)) / (sqr(y2-y1)+sqr(x2-x1));
    yn2:=(y2-y1)*(xn2-x1)/(x2-x1)+y1;
  except
  end;
  Repaint;
end;
end.

[tunyash]

Спасибо, помогло=)