anchor.diff:                      xn := yCurr-yPrev;
                       yn := xPrev-xCurr;
                       // normalize..
  -                    pointDist := sqrt((xn*xn)+(yn*yn));
  +                    pointDist := ComputeDistanceBetweenPoints(xn, yn);
   
                       //draw left side
                       if validL then
  
positive.code:   end;
  end;
  
  { TSliceDiffGeometryClassChangePolygonStripeLR }
  
  constructor TSliceDiffGeometryPolygonStripeLR.Create(aLayer: TLayer; aPalette: TWDPalette; aTimeStamp: TDateTime; aCurrentSlice, aRefSlice: TSliceGeometryPolygonLR);
  begin
  
negative.code:     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);
  