Обрезка составного изображения в canvas

[doktor255]

Склеиваю изображения в канвасе. Использую TPngImage. После склейки получается что-то вроде этого



Необходимо программно обрезать края до изображения. Чтоб получилось так



Рисую методом Canvas.Draw
До построения изображения обозначить размеры невозможно, так как вставляемые изображения имеют разные позиции отрисовки по осям X,Y, и просчитать общий размер изображения до отрисовки очень сложно. Кто что может подсказать?

Желательно без сложных вычислений, чтоб не нагружать процессор (вычислений и так хватает).

[phomm]

Программно такие вещи делаются дико редко, и то оптимизируются "по самое немогу" - например, хранят где-то предрассчитанные (обычно человеком ) данные о границах обрезки.
При программной склейке у Вас могут храниться размеры изображений и позиций вставки, по ним можно высчитать в определённых случаях.

Абстрактно ответить можно так - у пнгимейдж есть методы работы со сканлайном - его применить, могу дома поискать простые семплы как с ним работать. Сканлайн хоть и перебор пикселей в памяти, но должен быть довольно быстрым.

Ну и проект где-то как-то посмотреть было бы неплохо, может это наведёт на мысль, как помочь, если не секрет, конечно.

[doktor255]

Проект очень большой, поэтому смысла показывать его нет. Вот только часть его с основными функциями

function BlendPng(Png1,Png2: TPngImage):TPngImage;
Procedure BuildBMP2PNG(bmp: TBitMap; PNG: TPngImage);
var
obj_Width:integer;
implementation
Uses Main;

function BlendPng(Png1,Png2: TPngImage):TPngImage;
var
    MaxWidth,MaxHeight:integer;
    BTOut: Tbitmap;
    png:TPngImage;
begin
    if Png1.Width>Png2.Width then MaxWidth:=Png1.Width else MaxWidth:=Png2.Width;
    if Png1.Height>Png2.Height then MaxHeight:=Png1.Height else MaxHeight:=Png2.Height;
    if obj_Width<MaxWidth then obj_Width:=MaxWidth;
    result:=TPngImage.Create;
    result.CreateBlank(COLOR_RGBALPHA,8,MaxWidth,MaxHeight);
    BTOut := Tbitmap.Create;
    BTOut.PixelFormat := pf32bit;
    BTOut.SetSize(MaxWidth,MaxHeight);
    BTOut.Assign(result);
    BTOut.Canvas.Draw(MaxWidth div 2 - png2.Width div 2,MaxHeight - png2.Height,png2); //Рисуем на BMP Png2 в позиции X,Y
    BTOut.Canvas.Draw(MaxWidth div 2 - png1.Width div 2,MaxHeight - png1.Height,png1); //Рисуем на BMP Png1
    png:=TPngImage.Create; 
    BuildBMP2PNG(BTOut,png); //Конвертируем BMP в PNG 
    BTOut.Free;
    Result.Assign(png);
    png.Free;
end;

Procedure BuildBMP2PNG(bmp: TBitmap; PNG: TPngImage);
Const
   MaxPixelCountA = MaxInt Div SizeOf(TRGBQuad);
Type
   PRGBAArray = ^TRGBAArray;
   TRGBAArray = Array[0..MaxPixelCountA - 1] Of TRGBQuad;
Var
   iii,ii: integer;
   PNB: TPngImage;
   fff: PRGBAArray;
   aaa: pByteArray;
Begin
   PNB := TPngImage.Create;
   Try
      PNB.Assign(bmp);
      pnb.CreateAlpha;
      For ii := 0 To bmp.Height - 1 Do
      Begin
         fff := bmp.ScanLine[ii];
         aaa := pnb.AlphaScanline[ii];
         For iii := 0 To bmp.Width - 1 Do
         Begin
            aaa[iii] := fff[iii].rgbReserved;
         End;
      End;
      PNG.Assign(PNB);
   Finally
      PNB.free;
   End;
End;

end.

Поясняю. В функцию BlendPng Поступает 2 png изображения. Функция их склеивает на битмапе, с сохранением прозрачности (с помощью BuildBMP2PNG). На данный момент в виду того что я не использую сдвиги по осям, всё работает, но мне необходимо ввести в функцию BlendPng "сдвиги по осям", то есть что-то вроде BlendPng(Png1,Png2: TPngImage; X,Y: integer), и вот тут получается полная шляпа, ибо я определяю размер выходного размера по максимальной ширине и высоте картинки, а при смещениях эти размеры меняются. И в нагрузку к этой проблеме нужно изменить BlendPng так, чтоб она могла клеить не 2 картинки а любое количество одновременно (чтоб сохранить нулевую координату, так как при изменениях размеров она поплывёт). И каждая картинка во входящих данных будет иметь координаты сдвигов, то есть как-то так

png1 +10 -20, png2 +5 -30, png3 +50 -20


Картинки имеют теоретический ноль отрисовки по центру снизу


Плюс сдвиги по осям. Данный код я перевожу с явы. В яве есть так называемые анчоры (якоря), и там просто это сделать, а тут задница....

[doktor255]

Поизучал вопрос ещё сутки, получил следующие результаты. Клеить много картинок со сдвигами по осям я могу без проблем. Просто задаю большой размер холста изначально. В процедуре конвертации я работаю с пикселями (код не мой, нашёл на просторах интернета), вот тут и нужно определить границы обрезки, и совершить обрезку. Прошу помощи в ДОПИСАНИИ процедуры BuildBMP2PNG

[doktor255]

Неужели ни кто не может помочь? Упрощаю свой вопрос. Как обрезать png сверху, снизу, слева, справа с сохранением альфаканала?

[phomm]

Зачем обрезать ? Создать новый с нужным размером, и в него canvas.copyrect 'ом скопировать что надо.

Могу дать кой-какой исходник моей одной проги по разрезке и поклейке чего-то типа атласов, но там каша, руки нескоро до него дойдут. Но вытянуть кой какие рабочие принципы для пнг-обработки можно. Либо прямо сюда вкопипастю касательно Вашей задачи, хотя и не утверждаю что задачи те же и код подойдёт сразу, уверен придётся дорабатывать. Завтра накропаю что-то по моему разумению подходящее вашей задаче со своего кода, ок ? Ну, или без правок могу так отдать и пояснить лично, коли надо будет. (пишите по контактам)

[doktor255]

А СopyRect у нас умеет копировать альфу? Если бы все было так просто, я бы не просил о помощи. Сейчас стоит конкретная задача. Имеются данные по обрезке. Например 3 пикселя сверху, 4 слева, 5 справа. Нужно обрезать PNG сохранив прозрачность. CopyRect этого не может сделать. Как быть?

[s-andriano]

Есть подозрения, что необходимость обрезки является следствием ошибки проектирования.
Изложите проблему с начала.

[doktor255]

Сначала проблема изложена в топике. Есть png, надо его обрезать с сохранением прозрачности. Как это сделать???
Вот тестовая картинка. Нужно убрать невидимую рамку.

[s-andriano]

То, что изложено в топике, не проблема, а ее следствие.
Почему нельзя изначально сделать холст нужного размера?
Почему нельзя сделать холст минимального размера и увеличивать его по мере необходимости?