[igor74]

Всем привет!

Пишу графику и мне в расчётах нужно отбрасывать дробную часть переводя в целое.

Так вот Trunc работает в два раза дольше чем Round. Время для меня очень критично, поэтому ищу варианты решения данной задачи.

Ассемблерные вставки не помогают или я делаю что то не так...

У кого есть какие идеи?

Вот код:

Код:

  dx := w1 / w2;
  dy := h1 / h2;

  for y := 0 to h2 - 1 do
  begin
   yp := Trunc(y * dy);
   ypw1 := yp * w1;
   yw2 := y * w2;
   for x := 0 to w2 - 1 do
    begin
      xp := Trunc(x * dx);
      col := ypw1 + xp;
      Mem2[yw2 + x] := Mem1[col];
    end;
  end;