Проблема с анимацией

[Вадим Буренков]

У тебя сложные исходники с ошибками. В них мне нет смысла разбираться поэтому сделал демку с рабочим классом анимации.
Код при запуске:

procedure TMainForm.FormCreate(Sender: TObject);
begin
//создаем буфер
Buffer:=TBitmap.Create;
//размерами под панель рендера
Buffer.Width:=MainForm.RenderPanel.Width;
Buffer.Height:=MainForm.RenderPanel.Height;

//устанавливаем рендер анимаций в буфер
AnimEngine_SetRenderTarget(Buffer);

//Test - переменная анимации (var Test:TAnimation)
//создаем ее
Test:=TAnimation.Create('TreeAnim.bmp',50,50,5,6);
//устанавливаем тип анимации (aNormal - анимация проходит 1 круг;aNo-рисуется первый кадр анимации;aLoop-анимация зациклена)
Test.SetAnimType(aNo);
//запускается анимация
Test.SartAnim;

//включаем таймер с обработкой
MainForm.AnimTimer.Enabled:=true;
end;

В таймере обрабатывается анимация, рисуется буфер на форму:

procedure TMainForm.AnimTimerTimer(Sender: TObject);
begin
Test.Processing(100,100);

MainForm.RenderPanel.Canvas.Draw(0,0,Buffer);
AnimEngine_ClearBuffer;
end;

Все комманды анимационного движка в AnimSystem.pas

[Beermonza]

В редакторе есть класс, но им почему-то не пользуются, вот код:

procedure TMainForm._ReDraw;
var
  i,j: byte;
  ip, jp: integer;
  Frame: integer;  // этого не нужно
begin
  _2DEraseBuffer;
  _2DDrawNet(sPoint);

   for i := 0 to MapResolutionX-1 do
    for j := 0 to MapResolutionY-1 do
    begin
    if Map.ObjMatrix[i + Map.sx, j + Map.sy] <> -1 then
      begin

        // это смена кадров
        If Animations[Map.ObjMatrix[i + Map.sx, j + Map.sy]].FrameNumber > Animations[Map.ObjMatrix[i + Map.sx, j + Map.sy]].MaxFrameCount then
          Animations[Map.ObjMatrix[i + Map.sx, j + Map.sy]].FrameNumber := 0
        else Inc(Animations[Map.ObjMatrix[i + Map.sx, j + Map.sy]].FrameNumber);


        ip := i * sPoint;
        jp := j * sPoint;

        // это режим анимации
        if not cbGame.Checked then _2DDraw(ip, jp, Textures[Map.ObjMatrix[i + Map.sx, j + Map.sy]])
        else Animations[Map.ObjMatrix[i + Map.sx, j + Map.sy]].DrawAnimation(ip,jp);

      end;
    end;


  _2DDrawScreen(0,0,Canvas);
end;

[Манжосов Денис :)]

Beermonza, работает код правильно, но всё равно есть некоторые проблемы, которые уже исправил. Большое спасибо.
Вадим, твой исходник не смотрел - не понадобилось. Спасибо.

[Манжосов Денис :)]

procedure TMainForm._ReDraw;
var
  i,j: byte;
  ip, jp, im, jm: integer;
begin
  _2DEraseBuffer;
  _2DDrawNet(sPoint);

 for i := 0 to MapResolutionX-1 do
    for j := 0 to MapResolutionY-1 do
    begin
    if Map.ObjMatrix[i + Map.sx, j + Map.sy] <> -1 then
      begin
        im := i + Map.sx;
        jm := j + Map.sy;

        ip := i * sPoint;
        jp := j * sPoint;

        if not cbGame.Checked
        then _2DDraw(ip, jp, Textures[Map.ObjMatrix[im, jm]])
        else Animations[Map.ObjMatrix[im, jm]].DrawAnimation(ip,jp);
        
     end;
    end;

    for i := 0 to al do
        If Animations[i].FrameNumber >
           Animations[i].MaxFrameCount
        then
           Animations[i].FrameNumber := 0
        else
           Inc(Animations[i].FrameNumber);

  _2DDrawScreen(0,0,Canvas);
end;

Правильный, рабочий, полит корректный, нормальный код

[Beermonza]

Первое, ...код не совсем политкорректный. Ты в первом цикле наталкиваешься на конкретный объект, именно в нем должна быть запись на счет кадров. Почему? ...да потому, что хоть у них и одинаковая текстура, но они все же разные объекты и у них не должно быть все синхронно. Одной и той же анимацией можно пользоваться по разному. Допустим рубят дерево, пошла анимация его падения, тут же срубили еще одно дерево, ...т.е. на первом дереве еще не завершилась анимация, а на втором нужен 0-й кадр, а если вспомнить, что у тебя на анимацию конкретной текстуры только один счет в конце по переменной "al", то ты получишь глюк на экране, ...не до конца падающее дерево снова встанет на место и синхронно со вторым повторно начнет падать.

Второе, ...ты делаешь лишний цикл по банку текстур, к нему доступ есть на месте в первом цикле.

Третье, ...если на участке карты нет объектов с анимацией, но на карте где-то есть объект с такой анимацией, но его не видно, у тебя все равно идет счет, ..."ай, какая мелочь..." скажешь? ...не торопись с выводами. Когда в банке будет не одна сотня текстур и динамический выбор, не только по кадрам, но и по состояниям, то ты в полной мере почувствуешь тормозность кода. Я уже через все это прошел, ты же можешь не тратить попросту время.

[Манжосов Денис :)]

Первое, ...

Анимация будет одинаковой для всех объектов данного типа анимации.

Насчёт третьего суждения. У меня проверка только на видимый участок карты идёт:

 for i := 0 to MapResolutionX-1 do
    for j := 0 to MapResolutionY-1 do

MapResolutionX = 16, MapResolutionY = 8. Так что тормозности никакой нет, а ображение к массиву такое:

Map.ObjMatrix[i + Map.sx, j + Map.sy]

, где sx и sy - это сдвиг так называемой игровой камеры. Всё, что можно было рассчитать, уже рассчитано. . Или я не совсем Вас понял?
Единственное, что меня не устраивает так это то, что при полной загруженности видимого участка карты 16x8 загрузка ЦП 13 %.

[Beermonza]

Если есть плавающая камера, значит есть видимый участок, на котором может не быть объектов, текстуры и анимация которых все равно загружается при считывании всей карты с файла. Или у тебя при сдвиге камеры заново загружаются текстуры?

По первой у меня тоже были такие вроде бы логичные ответы самому себе: "да это мне не нужно", "какое расширение? ...один вид на всех и хорошо", "какая динамика? ...вот, что в ручную в коде прописано, то и загрузит", ...как видишь, я свои мнения по этому поводу уже сменил, и правильно сделал, ...у меня полный игровой кадр с независимой анимацией всего, кушает 45% ЦП, ...это не предел.

[Манжосов Денис :)]

У меня в самом начале создаются объекты (текстуры), а вместе с ними в самом начале загружаются анимации. Но ведь смысл подгружать текстуры, если на пустом участке карты они не рисуются? Тем более, как мне кажется, это будет слишком большой нагрузкой для ЦП: сначала свыделить память, загрузить текстуру и потом её освободить?
Загруженность процессора 13 % только для видимого полностью загруженного участка карты, если же переключить камеру на 16 позиций, при условии, что на видимом участке нет объектов, то загрузка становиться равной 0 %.

procedure TMainForm._ReDraw;
var
  i,j: byte;
  ip, jp, im, jm: integer;
begin
  _2DEraseBuffer;
  _2DDrawNet(sPoint);

 for i := 0 to MapResolutionX-1 do
    for j := 0 to MapResolutionY-1 do
    begin
    if Map.ObjMatrix[i + Map.sx, j + Map.sy] <> -1 then
      begin
        im := i + Map.sx;
        jm := j + Map.sy;

        ip := i * sPoint;
        jp := j * sPoint;

        if cbGame.Checked then
             if   Animations[Map.ObjMatrix[im, jm]].Enabled
             then Animations[Map.ObjMatrix[im, jm]].DrawAnimation(ip,jp)
             else _2DDraw(ip, jp, Textures[Map.ObjMatrix[im, jm]])
             else _2DDraw(ip, jp, Textures[Map.ObjMatrix[im, jm]]);

     end;
    end;

    for i := 0 to al do
     if Animations[i].Enabled then
        If Animations[i].FrameNumber >
           Animations[i].MaxFrameCount
        then
           Animations[i].FrameNumber := 0
        else
           Inc(Animations[i].FrameNumber);

  _2DDrawScreen(0,0,Canvas);

Немного поправленный код: в случае, если есть неанимационные объекты, рисовать простой спрайт.

[Вадим Буренков]

Я согласен с Beermonza.
По организации кода:
Вообще лучше раскидывать код по разным модулям: анимации в одном, процедуры для работы с камерой в другом и.т.д. Это не только структурирует код, но облегчает работу, один и тот де код не придется писать несколько раз. Такой код отвечающий за элементарное:

    for i := 0 to al do
     if Animations[i].Enabled then
        If Animations[i].FrameNumber >
           Animations[i].MaxFrameCount
        then
           Animations[i].FrameNumber := 0
        else
           Inc(Animations[i].FrameNumber);

вообще лучше не писать в самом проэкте. Это только ухудшает читаемость. Как сделаешь редактор и начнешь разрабатывать игру тебе придется делать copy-past больших кусков (так как например код отвечающий за работу анимации везде одинаков). А если в проэкте игры изменятся какие-нибудь основные типы? Придется также менять тот же код в проэкте редактора. Я советую тебе посмотреть мой исходник, там весь код структоризован а модуль анимаций независим от конкретного проэкта.

[Манжосов Денис :)]

Читаемость кода облегчать для кого? Мне лучше, когда всё в одном модуле содержится, но некоторые функции или процедуры я всё равно по другим заголовочным файлам распределил, так как я использую их не в одном проекте, а в нескольких. Я ведь проект не для кого-то пишу, чтобы ему читать легче было... Если от меня будут требовать структуризации кода по модулям, то я сделаю так, иначе зачем мне это ?
Насчёт copy-past'ов так у меня их нет. Если код повторяется несколько раз в проекте, то он заносится в отдельную процедуру.