anchor.diff:  begin
    result:=false;
   
  - if Assigned(bitmap ) and
  -    not bitmap.Empty then
  -  case bitmap.PixelFormat of
  -   pf32bit :
  + if Assigned(bitmap ) (* and
  +    not bitmap.Empty *)then        {$Note Implement TfpgImage.Empty }
  +  case bitmap.ColorDepth of
  +   32 :
       begin
       { Rendering Buffer }
        stride:=integer(bitmap.ScanLine[1 ] ) - integer(bitmap.ScanLine[0 ] );
  
positive.code:   AGG_RasterFontCache ,
    AGG_VectorFontCache );
  
   PAggTransformations = ^TAggTransformations;
   TAggTransformations = record
     affineMatrix : array[0..5 ] of double;
  
negative.code: 
  { TRANSFORMIMAGE }
  procedure TAgg2D.TransformImage(
             bitmap : TfpgImage;
             imgX1 ,imgY1 ,imgX2 ,imgY2 : integer;
             dstX1 ,dstY1 ,dstX2 ,dstY2 : double );
  var
  