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

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