AlphaBlend

[aeff]

bueno, existe una implementación de un componente en ese foro, el [TSemiPanel], ¿no?, funciona perfectamente, ahora, me puedes explicar el funcionamiento básico de esta función que logra la opacidad, es decir, en parte ando buscando una explicación en pseudocódigo, porque realmente no entiendo nada de nada de estas operaciones.

mil gracias de antemano!
saludos!
aeff!

[[Lepe]]

Conociendo el código que postea cHackAll, la explicación puede durar años

Si te consuela, yo tampoco entiendo el código, tendría que estudiarlo durante días

Saludos

[[cHackAll]]

Empezado por aeff

...esta cita creo que fue sacada de un foro para los miembros millenium ¿verdad?...

Empezado por aeff

...me puedes explicar el funcionamiento básico de esta función que logra la opacidad...

Claro, es bien sabido que por cada pixel existe un R (rojo), G (verde) y B (azul)... estos valores los obtienes con GetRValue(Canvas.Pixels[0, 0]) (por ejemplo).

Ahora, cada imagen estaría compuesta (en el mejor de los casos) por una matriz de pixeles X * Y, cada una de 24 bits (8 del R, 8 del G y 8 del B ).

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

Sí;
 
R1 = 10, G1 = 10, B1 = 10
R2 = 250, G2 = 250, B2 = 0
 
entonces;
 
R =  (10 + 250) / 2 = 130
G =  (10 + 250) / 2 = 130
B =  (10 + 0) / 2 = 5

Puedes variar el método de promediado para obtener el resultado tal como con TSemiPanel mostrado anteriormente.

Lee tambien.

Saludos

[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.