anchor.diff:  
   { TRANSFORMIMAGE }
   procedure TAgg2D.TransformImage(
  -           bitmap : TBitmap;
  +           bitmap : TfpgImage;
              imgX1 ,imgY1 ,imgX2 ,imgY2 : integer;
              parallelo : PDouble );
   var
  
positive.code: end;
  
  { BITMAPALPHATRANSPARENCY }
  function BitmapAlphaTransparency(bitmap : TBitmap; alpha : byte ) : boolean;
  var
   fcx ,fcy : integer;
   transp   : ^byte;
  
negative.code: 
  { TRANSFORMIMAGE }
  procedure TAgg2D.TransformImage(
             bitmap : TfpgImage;
             dstX1 ,dstY1 ,dstX2 ,dstY2 : double );
  var
   parall : array[0..5 ] of double;
  