anchor.diff:        aBitmap.Canvas.Clear(0);
         aBitmap.Canvas.Fill.Kind := TBrushKind.Solid;
         capacityFactor := IfThen((aExtent.YMax <> aExtent.YMin), 0.001/Abs(aExtent.YMax-aExtent.YMin), 0);
  -      bufferExtent := aExtent.Inflate(1.3);
  +      UpdateBufferExtent(aExtent, capacityFactor, aPixelWidth, aPixelHeight, bufferExtent);
         fCurrentSlice.fDataLock.BeginRead;
         fRefSlice.fDataLock.BeginRead;
         try
  
positive.code:   else Log.WriteLn('TSliceDiffGeometryPolygonLR layer '+fLayer.LayerID.ToString+': no palette defined', llError);
  end;
  
  procedure TSliceDiffGeometryPolygonLR.DrawDefaultPath(path: TPathData; aBitmap: FMX.Graphics.TBitmap);
  begin
    try
  
negative.code:       aBitmap.Canvas.Clear(0);
        aBitmap.Canvas.Fill.Kind := TBrushKind.Solid;
        capacityFactor := IfThen((aExtent.YMax <> aExtent.YMin), 0.001/Abs(aExtent.YMax-aExtent.YMin), 0);
        UpdateBufferExtent(aExtent, capacityFactor, aPixelWidth, aPixelHeight, bufferExtent);
        fCurrentSlice.fDataLock.BeginRead;
        fRefSlice.fDataLock.BeginRead;
        try
  