Физика в 2D играх

[Вадим Буренков]

Не жать, но...
1)Чтоб что-то понять в нем нужно прочитать и понять кучу информации по векторам, физике и прочему..
2)Исходник был на моем старом движке.
3)Исходник БЫЛ , но где он сейчас не знаю. Наверно удалил из-за ненадобности или скинул куда....

[VintProg]

Вадим Буренков
Держи книжку
http://www.kodges.ru/13419-fizika-dl...rnykh-igr.html

хоть она и не для Delphi но всеже!

[Dock1100]

Сообщение от Kostia

Вообще физику круг-круг, круг-линия реализовать достаточно просто, но не более...

Пишу небольшую 2д игру, но никак не могу реализовать физику столкновения круга с линией(получается очень криво). можете помочь?

type TDcVector=record
x,y:real;
end;
type
TCircle=record
aceleration:TDcVector; //ускорение круга
position:TDcVector; //позиция
Radius:Integer; //радиус
angle    : Single;//угл
w        : Single;

end;
var
  p1,p2:Tpoint;
  circle:Tcircle;//круг
  gravitation:TDcVector;
  dt:real;
  v  : TDcVector;
  dist : real;
  r_sum : real;
  k : real;
  f0,f1,A,B,C,op: real;
  tmp:Tpoint;
  ind:boolean;
  sub_angle:extended;
  s1,s2:Tpoint;

begin
  s1:=p1;
  s2:=p2;
  dt:=0.1; //прошедшее время
  circle.aceleration := VectorAdd(circle.aceleration, VectorMul(gravitation,dt));
  circle.angle := circle.angle + circle.w*dt;
  circle.position := VectorAdd(circle.position, VectorMul( circle.aceleration, dt ));

//столкнулось или нет
  op:=circle.Radius*circle.Radius;
  tmp:=VSub(S1,point(round(Circle.position.x),round(Circle.position.y)));
  f0 := dot3(tmp,tmp)-op;

  tmp:=VSub(S2,point(round(Circle.position.x),round(Circle.position.y)));
  f1 := dot3(tmp,tmp)-op;
  ind := f0*f1<0;
  if (not ind) then
    begin
      tmp:=VSub(S1,S2);
      A := dot3(tmp,tmp);
      B := (S1.X-Circle.position.X)*(S2.X-S1.X)+
           (S1.Y-Circle.position.Y)*(S2.Y-S1.Y);
      ind := (B*B>=A*f0) and (B<0) and (A+B>0);
      if ind then
//если да то
      begin
      A:=s2.y-s1.y;
      B:=-(s2.x-s1.x);
      C:=-s1.x*(s2.y-s1.y)+s1.y*(s2.x-s1.x);
      dist:=abs(A*Circle.position.x+B*Circle.position.y+C)/sqrt(A*A+B*B);//получаю длину перепендикуляра опущеного из центра круга на прямую
      dist:=dist-circle.radius;
      if dist<0 then
      begin
       sub_angle:=arctan((s2.y-s1.y)/(s2.x-s1.x));//угол прямой
       Circle.position.x := Circle.position.x-sin(sub_angle)*dist;//смещение центра круга
       Circle.position.y := Circle.position.y+cos(sub_angle)*dist;
      end;
      end;
     end;

прикрепил исходный код(кнопка point1 и point2 для того что бы поставить точки линии,circle-круг, start/stop- начать,остановить)
http://file.qip.ru/file/VxElh94p/game.html