anchor.diff:                    begin
                       xn := yCurr-yPrev;
                       yn := xPrev-xCurr;
  -                    pointDist := sqrt((xn*xn)+(yn*yn));
  +                    pointDist := ComputeDistanceBetweenPoints(xn, yn);
   
                       if validL then
                       begin
  
positive.code:     end;
    end
    else Log.WriteLn('TSliceDiffGeometryPolygonLR layer '+fLayer.LayerID.ToString+': no palette defined', llError);
  end;
  
  procedure TSliceDiffGeometryPolygonLR.DrawDefaultPath(path: TPathData; aBitmap: FMX.Graphics.TBitmap);
  
negative.code:   protected
      // tile generation
      function GenerateTileCalc(const aExtent: TExtent; aBitmap: FMX.Graphics.TBitmap; aPixelWidth, aPixelHeight: Double): TGenerateTileStatus; override;
      function ComputeDistanceBetweenPoints(aXDiff, aYDiff: Double): Double;
      procedure DrawDefaultPath(path: TPathData; aBitmap: FMX.Graphics.TBitmap);
      function CalculateWidth(aActiveValue, aRefValue: Double; var aValidFlag: Boolean): Double; Virtual;
      function GetPaletteColor(aActiveTexture, aRefTexture: Double; var aValidFlag: Boolean): TGeoColors;
  