Delphi RPG

[dampirik]

как выжать из цикла FOR максимум производительности

* уменьшить его размер
* упросить вычисления внутри
* "кэшировать" данные, если не требуется обновление

[Beermonza]

Сообщение от ruN00b

Есть один вопрос: как выжать из цикла FOR максимум производительности? А то из-за него у меня FPS в игре 14-15 кадров вместо должных хотя бы 30.

Никогда не используй в объявлении глубины цикла выражения, только готовые числа или переменные, содержащие эти числа. Т.е. до цикла нужно всё вычислить и направить в переменные, ...ты уже это должен был проделать, выше разбирали.

Ещё одна типичная ошибка выражений в цикле:

  For i := 0 to 14 do
    Begin
      For j := 0 to 14 do
        Begin
          x := MapDispX + StepX * j;
          y := MapDispY + StepY * i;

          // отрисовать спрайт в клетку
          Form1.Canvas.Draw(x, y, MapSprites[mas[i, j]]);
        end;
    end;

...видно, да? ...совершенно лишнее многократное вычисление значения y которое внутри цикла по-j не изменяется. Правильно будет так:

  For i := 0 to 14 do
    Begin
      y := MapDispY + StepY * i;

      For j := 0 to 14 do
        Begin
          x := MapDispX + StepX * j;
          
          // отрисовать спрайт в клетку
          Form1.Canvas.Draw(x, y, MapSprites[mas[i, j]]);
        end;
    end;

Далее. Старайся избавляться от умножения и деления. Если есть умножение на целые числа, старайся эти числа выбирать кратные 8-ми, т.е.: 8, 16, 24, 32 и тд. Так же умножение и деление можно заменять сдвигами вправо или влево (shr, shl), ...процессор сдвиги выполняет быстрее.

[Arigato]

Сообщение от Beermonza

Старайся избавляться от умножения и деления.

Верно:

y := MapDispY;
For i := 0 to 14 do
    Begin
      x := MapDispX;
      For j := 0 to 14 do
        Begin
          // отрисовать спрайт в клетку
          Form1.Canvas.Draw(x, y, MapSprites[mas[i, j]]);
          Inc (x, StepX);
        end;
      Inc (y, StepY);
    end;

[Beermonza]

Arigato, понимаю твою радость, это не весь код.

[Arigato]

Лишь указал, что можно и в этом случае обойтись без умножений. А как внешний код может повлиять на эти циклы?

[Beermonza]

Сообщение от Arigato

Лишь указал, что можно и в этом случае обойтись без умножений. А как внешний код может повлиять на эти циклы?

Я последовательность кусков сообщения уловил, однозначный намёк ...не? ...тогда я рад.

Если внутри циклов выражения со скобками и переменная не одна, то сложение Inc не выручает. Я, чтобы время не тратить, выдрал кусок и упростил, Canvas'а естественно у меня нет. А на элементарное смещение, конечно счетчик - лучший вариант. Смотреть нужно конкретно код.

[Arigato]

Не пойму, на что намек? Замечание по конкретному куску кода и в тему "как выжать из цикла FOR максимум производительности".

[ruN00b]

Beermonza, сегодня постараюсь избавлиться от умножений и делений, вечером отпишусь.
Насчет кратности на 8,16,32... Я поставил все таймеры с интервалом 100 на 128, с 10 на 32 и игрушка заметно ускорилась. Вопрос таков: есть ли смысл ставить интервал 750 на кратное 8,16,32... и если есть, то на какое число менять?

[Beermonza]

ruN00b, кучу таймеров лучше не применять. Выбрав интервал для основного игрового таймера, остальные триггеры игры могут брать интервал из счетчика. Т.е. заведи переменные и в каждый такт в конце процедуры тела TTimer прибавляй 1. В триггерах будут условия, например: если счётчик t1 > 200, то {действие}. Таким образом достигается синхронизация всех "таймеров" игры.

[ruN00b]

Ну, я убрал деление и умножение, FPS повысился до 20. А таймеры еще не пробовал, завтра попробую и выложу с новой версией.