anchor.diff:  procedure TSesmiScenario.ReadBasicData;
   var
     palette: TWDPalette;
  +  layer: TSesmiLinkLayer;
   begin
   
     // Group exposure
  
positive.code:            '"lng":'+DoubleToJSON(car.latlon.x)+','+
             '"lat":'+DoubleToJSON(car.latlon.y)+','+
             '"fillColor":"'+ColorToJSON(car.baseColor)+'"}}';
        }
      end;
    end;
    if _json<>'' then
  
negative.code:     procedure RegisterSlice; override;
      function SliceType: Integer; override;
    end;
   }
    TSesmiMobileSensorLayer  = class(TLayer)
    constructor Create(aScenario: TScenario; const aDomain, aID, aName, aDescription: string; aDefaultLoad: Boolean; aShowInDomains: Boolean;  aPalette: TWDPalette; aLegendJSON: string; aChart: TChartLines);
    destructor Destroy; override;
  