anchor.diff:  {$ENDIF}
   
   
  +procedure PopulateReverseTable;
  +var i,j,k: Integer;
  +begin
  +  //Gold-Rader algorithm
  +  j:=0;
  +  for i := 0 to 254 do begin  //usually it is used to 'permutate' input data for FFT,
  +                        //then we can skip elems which stay intact
  +                        //but here we must populate whole table
  +    k:=128;
  +    ReverseTable[i]:=j;
  +    while k<=j do begin
  +      dec(j,k);
  +      k:=k shr 1;
  +    end;
  +    inc(j,k);
  +  end;
  +  ReverseTable[255]:=255;
  +end;
  +
  +
  +initialization
  +  PopulateReverseTable;
  +
   end.
   
  
positive.code:   end;
  
    TCCITTFax3Decoder = class(TCCITTDecoder)
    public
      procedure Decode(var Source, Dest: Pointer; PackedSize, UnpackedSize: Integer); override;
      procedure Encode(Source, Dest: Pointer; Count: Cardinal; var BytesStored: Cardinal); override;
  
negative.code: 
  end;
  
  //------------------TCCITTFax4Decoder ------------------------------------------------------------------------------------
  procedure TCCITTFax4Decoder.Decode(var Source, Dest: Pointer; PackedSize, UnpackedSize: Integer);
  begin
  
  end;
  
  procedure TCCITTFax4Decoder.Encode(Source, Dest: Pointer; Count: Cardinal; var BytesStored: Cardinal);
  begin
  
  end;
  
  
  //----------------- TCCITTMHDecoder ------------------------------------------------------------------------------------
  
  procedure TCCITTMHDecoder.Decode(var Source, Dest: Pointer; PackedSize, UnpackedSize: Integer);
  