anchor.diff:  constructor TSliceDiffGeometryICLR2.Create(aLayer: TLayer; aPalette: TWDPalette; aTimeStamp: TDateTime; aCurrentSlice, aRefSlice: TSliceGeometryICLR);
   begin
     inherited Create(aLayer, aPalette, aTimeStamp, aCurrentSlice, aRefSlice);
  -  //fGeometries := TObjectDictionary<TWDID, TSliceGeometryICLRObject>.Create([doOwnsValues]);
   end;
   
   destructor TSliceDiffGeometryICLR2.Destroy;
   begin
  -  //FreeAndNil(fGeometries);
     inherited;
   end;
   
  
positive.code:     function GetPaletteColor(aActiveTexture, aRefTexture, aWidth: Double; var aValidFlag: Boolean): TGeoColors; override;
      function ComputeCoordinateDist(aWidth, aActiveValue, aRefValue, aCapacityFactor, aXY_Diff, aPerpDist: Double; aIsCommonPoly: Boolean): Double;
      procedure DrawFillPolygon(aColor: TGeoColors; aBitmap: FMX.Graphics.TBitmap; aPolygonCommon, aPolygonExtra: TPolygon; xCommon, xExtra: Double);
      //function HandleSliceUpdate(const aBuffer: TByteBuffer; var aCursor: Integer; aLimit: Integer): Boolean; override;
    end;
  
    TSliceDiffGeometryICLR3 = class(TSliceDiffGeometryICLR)
  
negative.code:     end;
    end;
  end;
  
  { TSliceDiffGeometryICLR3 }
  
  