Супер бильярд, подскажите... Опции

[VelarThind]

Решил тут я бильярд на паскале написать. Ну кий там, шарик ведущий сделал, всё пока работает(кий толкает шарик, он катиться, замедляет ход), но необходимо и другие шары в игру(какой же это будет бильярд с одним шариком), а вот соударение шариков друг с другом, что-то не осилил. Подскажите, пожалуйста!!!! Заранее спасибо.

[Shura]

Процедура TurnAfterHit неправильная!!!. Я писал на днях такую же прогу, тока ещё сила тяжести действует и потеря энергии. Так я тоже сначала просто менял составляющие скоростей шариков. Ну вот пример: первый шарик изначально покоится, а второй висит над ним, но не ровно над ним, а со смещением, скажем в пол-радиуса. После соударения они должны коряво в разные скорости разлететься, а с использованием той процедуры первый шарик просто прыгает вверх-вниз, а второй так вообще не двигаетса - беспредел! Уже второй день в голове крутится... Мне кажется, что надо посчитать угол между осью абсцисс и касательной к шарикам в точке соударения и как-то его использовать. Вот код. В чём ошибка?

Var
 x1, y1, x2, y2: Real; {координаты центров}
 r1, r2: Integer; {радиусы}
 vx1, vy1, vx2, vy2: Real; {составляющие скоростей}

Procedure Bum;
 var
  l: Real; {Тот самый угол}
  vx, vy: Real; {Дополнительные переменные}
 begin
   l:=Arctan((y2-y1)/(x2-x1)) - PI/2;
   vx:=vx1;
   vy:=vx2;
  vx1:=(vx2+vy2)*cos(l);
  vy1:=(vx2+vy2)*sin(l);
  vx2:=(vx+vy)*cos(l+PI); 
  vy2:=(vx+vy)*sin(l+PI)
   {то, что ось Y в Паскале вниз направлена, я не учитывал}
 end;