Срачи - Форум

А что - их не надо просчитывать? Они ж все движутся.

А игра и так всё отображает.

А что касается лагов статики - дык модели скромнее задавайте.

procedure Show3DObject;
var
j, k: integer;
M: PModel;
l, l2, c, s, a: double;
oX, oY: double;
R: integer;
begin
with Map do with Lines[i]^ do begin
SetTrumAttr(ObjTrum);
M := Models[Attr[0]];
if (M <> nil) and (M.Static) then begin
R := RandSeed;
RandSeed := Attr[1] shl 8 or Attr[2];
l := Sqrt(Sqr(X2 - X1) + Sqr(Y2 - Y1));
c := (X2 - X1) / l;
s := (Y2 - Y1) / l;
a := ArcTg(c, s) * 180 / Pi;
l2 := M.FLen[0] + M.BLen[0];
k := Trunc(l / l2);
oX := X1;
oY := Y1;
for j := 0 to k - 1 do begin
ObjTrum.IsNight := Light_ < 0.1 + Random * 0.3;
if M.Color >= 0 then ObjTrum.Color := M.Color
else ObjTrum.Color := random($1000000);
if M.DarkColors then ObjTrum.Color := ObjTrum.Color and $7F7F7F;
glPopMatrix;
glPushMatrix;
glTranslateF(oX, -oY, 0);
glRotateF(90, 1, 0, 0);
glRotateF(-a, 0, 1, 0);
ScrDist := Abs(X - oX) + Abs(Y - oY);
if ScrDist > 1E-7 then begin
ScrDist := 0.0625*Screen.Width/ScrDist;
if ScrDist > LW then ScrDist := LW;
end else ScrDist := LW;
ShowModel(M^);
oX := oX + l2 * c;
oY := oY + l2 * s;
end;
RandSeed := R;
glPopMatrix;
glPushMatrix;
end;
end;
end;

Добавлено (07.02.2010, 22:24)
---------------------------------------------
Подсказка - самая жрущая строчка тут - ShowModel(M^)
И толку от того, что всё заранее просчитается?