Histograma
 

Hola a todos,
estoy realizando una aplicación para la generación de imágenes en 3D:
http://imagen3d.site88.net/
Esta aplicación muestra un histograma donde se muestran los valores de los tres componentes de color primarios (Rojo, Azul y Verde).
http://imagen3d.site88.net/img/ayuda9.jpg
El código que utilizo para generar el histograma es el siguiente:
El problema que tengo es que este método de mostrar el histograma es muy lento lo que produce que me ralentice el programa cuando modifico el brillo, contraste, etc...
¿A alguien se le ocurre alguna fórmula para aumentar la velocidad al mostrar el histograma?

Es un poco dificil ayudar cuando no se "tiene" el código completo; "undeclared identifier; pRGBTripleArray" !!! y bueno tambien vale la pena comentar el mismo problema acerca de las variables globales!

Eh aqui una posible solucion... tiene alguna falla pero no la puedo probar con el "original", por lo anteriormente comentado!

Código Delphi [-]
function GetHistogram(Image: TImage; UseMax: LongBool = True): TBitmap;
type
 RGBStruct = packed record
  b, g, r: byte;
 end;
var
 Color: ^RGBStruct;
 Count, Max: Cardinal;
 Index, Position, r, g, b: Byte;
 Histogram: array [0..255] of record
  r, g, b: Cardinal;
 end;
 Value: TColor;
begin
 Max := 0;
 Result := TBitmap.Create;
 Result.Assign(Image.Picture.Graphic);
 Result.PixelFormat := pf24bit;
 Count := Result.Width * Result.Height;
 Color := Result.ScanLine[Result.Height - 1];
 FillChar(Histogram, SizeOf(Histogram), 0);
 while LongBool(Count) do
  begin
   Inc(Histogram[Color.r].r);
   Inc(Histogram[Color.g].g);
   Inc(Histogram[Color.b].b);
   if UseMax then
    begin
     if Color.r > Max then Max := Color.r;
     if Color.g > Max then Max := Color.g;
     if Color.b > Max then Max := Color.b;
    end;
   Inc(Color);
   Dec(Count);
  end;
 Result.Width := 256;
 Result.Height := 256;
 if not UseMax then Inc(Max);
 for Index := 0 to 255 do
  begin
   Histogram[Index].r := (Histogram[Index].r * 100) div Max;
   Histogram[Index].g := (Histogram[Index].g * 100) div Max;
   Histogram[Index].b := (Histogram[Index].b * 100) div Max;
   for Position := 0 to 255 do
    begin
     r := Byte(Position <= Histogram[Index].r) * 255;
     g := Byte(Position <= Histogram[Index].g) * 255;
     b := Byte(Position <= Histogram[Index].b) * 255;
     if (r > 0) and (g > 0) and (b > 0) then
      Value := RGB(r, g, b)
     else
      Value := clGray shr 1;
     Result.Canvas.Pixels[Index, Position] := Value;
    end;
  end;
end;

Toma una atencion principal en la cantidad de bucles; y en el uso del ScanLine.

Un Saludo

Hola,
gracias por el interés mostrado. He editado mi primer mensaje para añadir pRGBTripleArray y aclarar un poco más el código que utilizo para mostrar el histograma. Estudiaré el código que me han enviado para ver si saco algo en claro porque la verdad es que me supera un poco.

Saludos...
Miguel Angel

Pues como lo comentaba, tampoco conozco la declaración de las variables ni funciones globales;

• gflGetColorAt
• pgfl_colorSbS
• HmaxSideCal
• HmaxSide

La idea es poder reproducir dicha funcion en un proyecto en limpio para rehacerlo (como ya lo habras notado en mi anterior post).

Si te continua dando mucha "lata", aclarame lo anterior a ver que se puede hacer ;)

PD; el histograma solo se puede sacar de dos imagenes? las dos imagenes se deben entrelazar?

Saludos

Hola,
para el desarrollo del programa estoy utilizando la librería gráfica GFL SDK. En esta librería se define la función gflGetColorAt:

pgfl_colorSBS es, por tanto, una estructura del tipo GFL_COLOR:

GFL_BITMAP:

HMaxSideCal es una variable del tipo Boolean que utilizo para determinar si realizo el cálculo del valor máximo del histograma. Este cálculo sólo lo realizo cuando se carga incialmente la imagen y no lo vuelvo a realizar cuando dicha imagen se refrezca al cambiar el brillo, contraste, saturación, etc...
HMaxSide es el valor máximo del histograma, y es del tipo integer.

GFL_SDK es una librería desarrollada en C y me da algunos quebraderos de cabeza que todavía no he podido resolver (como la obtención de los datos EXIF de una fotografía, lo Metadatos, etc...). Aún así, es muy potente a la hora de 'gestionar' fotografías, tal y como queda demostrado en la aplicación XnView.

Saludos y gracias por el interés...
Miguel Angel