AlphaBlend

[aeff]

saludos, cHackAll, me alegra me hallas respondido colega, hasta el momento se me van aclarando las dudas, pero a la vez se me van ocurriendo más, en una de las explicaciones que planteas dentro del enlace que me recomendaste publicas lo siguiente:

 x = ((x1 / MAX(x)) * ((Alpha / MAX(Alpha)) * MAX(x)) + x2) / 2


Donde:
 x = Resultado
 x1 = R, G o B del pixel de la imagen
 x2 = R, G o B del pixel de fondo
 Alpha = valor "Alpha channel"
 MAX(x) = valor maximo de x
 MAX(Alpha) = valor máximo de Alpha

entonces, ¿está es la ecuación que determina la mezcla entre los canales de un pixel para provocar lo que llamamos AlphaBlend?, bueno de todas formas, quisiera que me explicaras los parámetros MAX(x) y MAX(Alpha),

mil gracias de antemano colega.

saludos!
aeff!

[[cHackAll]]

Empezado por aeff

...¿está es la ecuación que determina la mezcla entre los canales de un pixel para provocar lo que llamamos AlphaBlend?...

Es la ecuación a la que yo llegue en aquel entonces (del post), es basicamente una regla de 3 simple

Empezado por aeff

...quisiera que me explicaras los parámetros MAX(x) y MAX(Alpha)...

Empezado por cHackAll

 MAX(x) = valor maximo de x
 MAX(Alpha) = valor máximo de Alpha

MAX(x) segun dicha ecuacion sería 255 (máximo de R, G & B) y
MAX(Alpha) podría ser 100 siempre y cuando Alpha sea el porcentaje.

PD; La ecuacion esta pensada para un proceso generico, sin embargo el #2 y el #6 son mas concretos al caso.

Saludos

[aeff]

saludos!

mira colega, anteriormente mencionas:

...Para "mezclar" dos pixeles debes promediar cada R, G y B...

y se me ha ocurrido una idea matemáticamente para promediar los canales R, G y B entonces, la idea consiste en lo siguiente, por cada canal, R y R', G y G', B y B', suponiendo que:

R = Red fuente;
G = Green fuente;
B = Blue fuente
y
R' = Red destino;
G' = Green destino;
B' = Blue destino;

calculamos la diferencia entre el canal destino y el original (ya que necesito saber cuanto le falta a uno para llegar a otro), por ejemplo: R' - R; a esta diferencia le hallamos el X% que representaría el valor del Alpha de 0 a 100, y le adicionamos al valor R este X%:

programáticamente sería asi, una función:

Código Delphi [-]
function GetNewChanel(X1, X2, Alpha: Byte): Byte;
var
  Diff: Integer;
  Percent: Real;
  nX: Byte;
begin
  Diff := X2 - X1;
  Percent := (Diff * Alpha) / 100;
  nX := X1;
  nX := nX + Trunc(Percent);
  Result := nX;
end;

ahora, esta implementación da como resultado el promedio dado por Alpha entre dos canales, y esta otra función para mezclar todos los canales de un área:

Código Delphi [-]
type TPercent = 0..100;
type TArea = record
  Left, Top, Width, Height: Integer;
end;

function  Area(aLeft, aTop, aWidth, aHeight: Integer): TArea;
begin
  Result.Left := aLeft;     Result.Top := aTop;
  Result.Width := aWidth;   Result.Height := aHeight;
end;

procedure ABlendArea(pCanvas1, pCanvas2: TCanvas; pArea: TArea; pAlpha: TPercent; var pCanvasDest: TCanvas);
var
  X, Y: Integer;
  R, G, B, _R, _G, _B, newR, newG, newB: Byte;
begin
  Y := pArea.Top;
  while Y <= pArea.Height do
    begin
      for X := pArea.Left to pArea.Width do
        begin
          R := GetRValue(pCanvas1.Pixels[X, Y]);
          G := GetGValue(pCanvas1.Pixels[X, Y]);
          B := GetBValue(pCanvas1.Pixels[X, Y]);

          _R := GetRValue(pCanvas2.Pixels[X, Y]);
          _G := GetGValue(pCanvas2.Pixels[X, Y]);
          _B := GetBValue(pCanvas2.Pixels[X, Y]);

          newR := GetNewChanel(R, _R, pAlpha);
          newG := GetNewChanel(G, _G, pAlpha);
          newB := GetNewChanel(B, _B, pAlpha);

          pCanvasDest.Pixels[X, Y] := RGB(newR, newG, newB);
        end;
      Inc(Y);
    end;
end;

sin embargo, necesito la ayuda de ustedes para que me ayuden a optimizar el código, ¿de que forma puedo hacer que funcione más rápido?

mil gracias de antemano!
saludos!
aeff!

[aeff]

es decir, algún método para que el Canvas deje de pintar mientras cambio el valor de sus pixeles y luego que aplique los cambios????

saludos!

[[escafandra]]

Claro, estas trabajando con Canvas.Pixels[X, Y] para acceder a cada pixel, eso es muy lento cuando trabajas con toda la imagen. cHackAll en su ejemplo te muestra como acceder a un puntero que apunta a los pixels de una línea

Código Delphi [-]
lpByte := Pointer(Cardinal(FBitmap.ScanLine[Top + y]) + (Left * 3));

Así sólo tabajas en memoria y ganas tiempo.

En este hilo, encontrarás cómo llegar a la imagen en memoria de un bitmap, concretamente aquí.

Saludos.