anchor.diff:      end;
     end
     else Log.WriteLn('TSliceDiffGeometryPolygonLR layer '+fLayer.LayerID.ToString+': no palette defined', llError);
  +end;
  +
  +function TSliceDiffGeometryPolygonLR.ComputeDistanceBetweenPoints(aXDiff, aYDiff: Double): Double;
  +begin
  +  Result := sqrt((aXDiff*aXDiff)+(aYDiff*aYDiff));
   end;
   
   procedure TSliceDiffGeometryPolygonLR.DrawDefaultPath(path: TPathData; aBitmap: FMX.Graphics.TBitmap);
  
positive.code:   protected
      // tile generation
      function GenerateTileCalc(const aExtent: TExtent; aBitmap: FMX.Graphics.TBitmap; aPixelWidth, aPixelHeight: Double): TGenerateTileStatus; override;
      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;
  
negative.code:                   begin
                      xn := yCurr-yPrev;
                      yn := xPrev-xCurr;
                      pointDist := ComputeDistanceBetweenPoints(xn, yn);
  
                      if validL then
                      begin
  