Scanline - BMP Monocromo
 

El siguiente código es un fragmento de un programa que lee de una imagen BMP monocromática.

En teoría cuando leo con scanline los valores tendrían que ser 0 o 1, dependiendo si es blanco o negro, ya que es una imagen monocromática? O cada píxel es de 8 bit? Para mi un píxel representa un bit, no?

Haciendo pruebas, el valor de “a” es 0 siempre que leo un píxel negro, pero a los blancos los lee con diferentes valores, porque?

Gracias

Código Delphi [-]
 for y := 0 to BitMap.Height-1 do
 begin
   P := BitMap.ScanLine[y];
   for x := 0 to BitMap.Width-1 do
   begin
     a := P[x];
     if a=255 then
       blanco:=blanco+1
     else
       otro:= otro+1;
   {...}

Tengo un fuente en C para leer un BMP si te sirve avisame.

Saludos

Un pixel - un bit.

Código Delphi [-]
 
function GetMonoPixel(P: PArrayOfByte; I: Integer): TColor;
const Colors: array[0..1]of TColor = (clBlack, clWhite);
var NByte, nbit: Integer;
    ByteN: Byte;
begin
  NByte := I div 8;
  nbit := 7 - (I - NByte*8);
  ByteN := P^[NByte];
  Result := Colors[  (ByteN shr nbit) and 1  ];
end;

procedure SetMonoPixel(P: PArrayOfByte; I: Integer; Value: TColor);
var NByte, nbit: Integer;
    ByteN: Byte;
begin
  NByte := I div 8;
  nbit := 7 - (I - NByte*8);
  ByteN := P^[NByte];
  case Value of
    clWhite: ByteN := ByteN or (1 shl nbit);
    clBlack: ByteN := ByteN and (not(1 shl nbit))
    else raise Exception.Create('Only white or black!');
  end;
  P^[NByte] := ByteN;
end;