1. Pascal / Говнокод #1384

    +151

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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;

    Моделирование системы частиц через интегрирование Верлета

    Запостил: guest, 19 Июля 2009

    Комментарии (1) RSS

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