anchor.diff:      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;
  
positive.code:   guid: TGUID;
    scenario: TSesmiScenario;
    palette: TWDPalette;
  begin
    scenario := TSesmiScenario.Create(Self, aScenarioID, 'Fietsproject', 'Persoonlijke fietsdata - ' + aScenarioID, False, MapView, False);
    TMonitor.Enter(fLinks);
  
negative.code:            '"lng":'+DoubleToJSON(car.latlon.x)+','+
             '"lat":'+DoubleToJSON(car.latlon.y)+','+
             '"fillColor":"'+ColorToJSON(car.baseColor)+'"}}';
      end;
    end;
    if _json<>'' then
  