AlphaBlend
 

saludos, como indica el título de este post mi duda es relacionada con esta API, lo que quiero lograr es opacidad entre dos Bitmaps, tengo una referencia implementada para C++ y cuando intento llevarla a Pascal usando Delphi no me funciona absolutamente nada, en realidad no tengo ni idea de que hace realmente con los objetos en juego, si alguien ya tiene alguna experiencia con esta API les pido que me den una mano, aquí les va la referencia quie tengo pero para C++,

no tengo idea de como hacer funcionar esta API,

mil gracias de antemano colega,
espero que me puedan ayudar.

saludos!
aeff!

SemiPanel.pas

saludos, colega, el código que me planteas realmente no lo entiendo, mira, yo soy un novat en este mundo de la programación con gráficos y Dispositivos de Contextos (DC), no se que me quieres dar a entender, mira, esta cita creo que fue sacada de un foro para los miembros millenium ¿verdad?, y yo no pertenezco a esta categoría por razones ajenas a este foro, mira, si pudieras darme una explicación más detallada realmente estaría muy agradecido, mi objetivo es lograr opacidad entre dos Bitmaps o al menos entender esta API y lograrla hacerla funcionar.

me puedes ayudar??
mil gracias de antemano!
saludos!
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!

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

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

Saludos

:eek:

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 :p).

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

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

Lee tambien.

Saludos

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:

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!

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

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

saludos!

mira colega, anteriormente mencionas:

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:

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!

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!

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.