anchor.diff:                    begin
                       xn := yCurr-yPrev;
                       yn := xPrev-xCurr;
  -                    // normalize..
                       pointDist := sqrt((xn*xn)+(yn*yn));
   
  -                    //draw left side
                       if validL then
                       begin
                         isCommonPoly := True;
  
positive.code:     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;
      function ConstructPolygon(aPolyPoints: TArray<Double>): TPolygon; Virtual;
      procedure DrawFillPolygon(aColor: TGeoColors; aBitmap: FMX.Graphics.TBitmap; aPolygon: TPolygon);
    end;
  
  
negative.code:       aBitmap.Canvas.Fill.Color := TAlphaColorRec.Lightsteelblue;
        aBitmap.Canvas.FillPolygon(aPolygonCommon, 1);
      end;
    end;
  
    if aColor.outlineColor<>0 then
    begin
      if xCommon <> xExtra then
  