1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22

procedure TWorld.Update(dTime: Single);
var
  i,j: integer;
  temp: TVector2f;
begin
  for i:=0 to Count-1 do
  begin
    if Bodyes[i]^.Static then break else
    for j:=0 to Bodyes[i]^.Count-1 do
    begin
      Bodyes[i]^.AccumulateForces[j]:=Gravitation;
      temp:=Bodyes[i]^.Position[j];
      Bodyes[i]^.Position[j].x:=Bodyes[i]^.Position[j].x+
          (Bodyes[i]^.Position[j].x-Bodyes[i]^.OldPosition[j].x)+
           Bodyes[i]^.AccumulateForces[j].x*dTime*dTime;
      Bodyes[i]^.Position[j].y:=Bodyes[i]^.Position[j].y+
          (Bodyes[i]^.Position[j].y-Bodyes[i]^.OldPosition[j].y)+
           Bodyes[i]^.AccumulateForces[j].y*dTime*dTime;
      Bodyes[i]^.OldPosition[j]:=temp;
    end;
  end;
end;