Как Вы относитесь к созданию игр на Delphi?

[Showy]

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

1) код, который слепляет множество PNG-файлов в один PNG-файл по принципу "прикреплять с права", короче портянкой.

С использованием PNGImage.

Функция AttachPNG присоединяет к изображению анимации новый кадр

procedure AttachPNG(var DstPNG: TPNGObject; var SrcPNG: TPNGObject);
type
  BGR = packed record
    B: Byte;
    G: Byte;
    R: Byte;
  end;

  TBGR = array [word] of BGR;
var
  StartX: Integer;
  AlphaDst, AlphaSrc: PByteArray;
  DstBGR, SrcBGR: ^TBGR;
  X, Y: Integer;
begin
  StartX := DstPNG.Width;
  DstPNG.SetSize(DstPNG.Width + SrcPNG.Width, SrcPNG.Height);

  for Y := 0 to SrcPNG.Height - 1 do
  begin
    AlphaDst := DstPNG.AlphaScanline[Y];
    AlphaSrc := SrcPNG.AlphaScanline[Y];
    DstBGR := DstPNG.Scanline[Y];
    SrcBGR := SrcPNG.Scanline[Y];

    for X := 0 to SrcPNG.Width - 1 do
    begin
      AlphaDst[X + StartX] := AlphaSrc[X];
      DstBGR[X + StartX].B := SrcBGR[X].B;
      DstBGR[X + StartX].G := SrcBGR[X].G;
      DstBGR[X + StartX].R := SrcBGR[X].R;
    end;
  end;
end;

Использование AttachPNG

procedure TForm1.Button1Click(Sender: TObject);
var
  DstPNG, SrcPNG: TPNGObject;
  i: Integer;
begin
  DstPNG := TPNGObject.Create;
  SrcPNG := TPNGObject.Create;
  DstPNG.CreateBlank(COLOR_RGBALPHA, 4, 1, 1);
  SrcPNG.LoadFromFile('C:\2.png');

  for i := 0 to 5 do
    AttachPNG(DstPNG, SrcPNG);
end;

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

2) код, который создает два Bitmap'a, одинакового размера (по рамеру PNG-файла), один Bitmap должен содержать цветовые данные из PNG-файла, другой Bitmap, должен содержать маску альфаканала из того же PNG-файла.

Так же с PNGImage:

procedure TForm1.FormCreate(Sender: TObject);
type
  BGR = packed record
    B: Byte;
    G: Byte;
    R: Byte;
  end;

  TBGR = array [word] of BGR;
var
  PNG: TPNGObject;
  i, j: Integer;
  pngBGR: ^TBGR;
  ImageBGR: ^TBGR;
  Alpha: PByteArray;
  Mask: TBitmap;
  Image: TBitmap;
begin
  
  PNG := TPNGObject.Create;
  PNG.LoadFromFile('C:\2.png');

  Image := TBitmap.Create;
  Image.PixelFormat := pf24bit;
  Image.SetSize(PNG.Width, PNG.Height);

  for i := 0 to PNG.Height - 1 do
  begin
    pngBGR := PNG.Scanline[i];
    ImageBGR := Image.ScanLine[i];
    for j := 0 to PNG.Width - 1 do
    begin
      ImageBGR[j].B := pngBGR[j].B;
      ImageBGR[j].G := pngBGR[j].G;
      ImageBGR[j].R := pngBGR[j].R;
    end;
  end;

  Mask := TBitmap.Create;
  Mask.PixelFormat := pf24bit;
  Mask.SetSize(PNG.Width, PNG.Height);

  for i := 0 to PNG.Height - 1 do
  begin
    Alpha := PNG.AlphaScanline[i];
    ImageBGR := Mask.ScanLine[i];
    for j := 0 to PNG.Width - 1 do
    begin
      ImageBGR[j].B := Alpha[j];
      ImageBGR[j].G := Alpha[j];
      ImageBGR[j].R := Alpha[j];
    end;
  end;

  Mask.SaveToFile('C:\Mask.bmp');
  Image.SaveToFile('C:\Image.bmp');

  PNG.Free;
  Image.Free;
  Mask.Free;
end;

[Beermonza]

Хм, хорошо, попробую, спасибо!
...сам уже смотрю pngimage.pas, думал ответа не будет

[Showy]

Слежу за темой. Интересно.
Хотелось хоть как то помочь в развитии проекта.

[Beermonza]

Showy, ты уже помог и думаю еще пригодишься, все кто помог в разработке или принял участие пусть и скромное, будет отмечен в кредитах.
...мне уже меньше мороки с подготовкой текстур. Один момент только. Вот эта строчка не работает:

DstPNG.SetSize(DstPNG.Width + SrcPNG.Width, SrcPNG.Height);

очевидно тут надо:

DstPNG.Resize(DstPNG.Width + SrcPNG.Width, SrcPNG.Height);

[Beermonza]

С разлеплением на цветовые данные и маску аналогично, не работает вот эта запись:

Image.SetSize(PNG.Width, PNG.Height);

заменил на:

Image.Width := PNG.Width;
Image.Height := PNG.Height;

Теперь все полностью работает, премного благодарен

[Showy]

Странно всю жизнь делал SetSize и сейчас сделал и всё работало

[Beermonza]

Возможно, у меня версия подревнее будет, TPNGObject предлагает только Resize(const CX: Integer; const CY: Integer), ...ну ничего, просто открываем уже готовый PNG и прицепляем к нему остальные с изменением размера.

[Beermonza]

Вот как и было обещано, у нас в MMO 2D RPG будет подобная кинематика, ...пока детализация персонажа упрощенная. Заценивайте.

[Showy]

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

Вот как и было обещано, у нас в MMO 2D RPG будет подобная кинематика, ...пока детализация персонажа упрощенная. Заценивайте.

Классно сделано!

[apromix]

Впечатляет Заделано прикольно. Чем могу помочь?