anchor.diff:    private
       fGeometry: TWDGeometryPoint;
       fValue: Double;
  -    fCalculatedGeometry: TWDGeometryPoint;
  +    //fCalculatedGeometry: TWDGeometryPoint;
       fModeOfTransportation: Integer;
       fLocation: Integer;
     public
       property geometry: TWDGeometryPoint read fGeometry;
       property value: Double read fValue;
  -    property calculatedGeometry: TWDGeometryPoint read fCalculatedGeometry write fCalculatedGeometry;
  +    //property calculatedGeometry: TWDGeometryPoint read fCalculatedGeometry write fCalculatedGeometry;
       property modeOfTransportation: Integer read fModeOfTransportation write fModeOfTransportation;
       property location: Integer read fLocation write fLocation;
   
  
positive.code:   end;
  end;
  
  procedure TExpoSenseScenario.UpdateLocation(const aSensorID: TGUID; aTimeStamp: TDateTime; aLat, aLon: Double; aLocation: Integer);
  var
    ol: TOrderedListTS<TExpoSenseDataPoint>;
    dp: TExpoSenseDataPoint;
  
negative.code:     fDataPoints.AddOrSetValue(aSensorID, ol);
    end;
  
    // check for first value received, do extra inits
    if ol.Count=0 then
    begin
      so := TCircleMarker.Create(fCombinedTrackLayer, 'home', aLat, aLon, 12);
      so.addOptionGeoColor(TGeoColors.Create(motColors[motStationary]));
      fCombinedTrackLayer.AddObject(so, so.jsonNewObject);
      fCalculatedECValuesChart.reset;
      fMeasuredECValuesChart.reset;
    end;
  
    prevESDP := ol.ItemsTS[aTimeStamp, True];
  