I've been looking at adding some support for bilevel (black & white) TIFF images.

I seem to have something working for uncompressed images, but I'm almost
sure that this:
procedure TFPReaderTiff.ReadImgValue(BitCount: Word; var Run: Pointer;
x: dword;
  Predictor: word; var LastValue: word; out Value: Word); inline;
var
  BitNumber: byte;
begin
...
  //Get the value of the right bit depending on x value
  // and scale it to dword: either $ffff or $0000
  BitNumber:=7-(x mod 8); //Leftmost pixel starts with bit 7
  Value:=$ffff*
        ((PCUInt8(Run)^) and (1 shl BitNumber) shr BitNumber);

can be rewritten so it is faster.

Any suggestions?

Thanks,
Reinier

Reinier Olislagers wrote

I've been looking at adding some support for bilevel (black & white) TIFF images.

<snip>

can be rewritten so it is faster. Any suggestions?

Any kind soul who wants to earn eternal glory by adding 1 bit support for TIFF?
http://bugs.freepascal.org/view.php?id=23959

Thanks,
Reinier

Reinier Olislagers wrote

Any kind soul who wants to earn eternal glory by adding 1 bit support for TIFF? http://bugs.freepascal.org/view.php?id=23959

Mattias,

Thanks a lot for the quick commit!

Regards,
Reinier