anchor.diff:      [{font, [{size, "+2"}], [br, {str, "Extended data (raw)"}, br, br]},
        {term, Ext}].
   
  -histogram(Id, Title, Ext, ReportCfg) ->
  +histogram(Id, Title, Data, ReportCfg) ->
       {show_table, ShowTable} = config_lookup(Id, show_table, ReportCfg),
       {width, Width} = config_lookup(report, width, ReportCfg),
  -    PngFile = ds_graphics:histogram_graph([{xsize, Width-36}], %% FIXME
  -                                          Ext),
  +    PngFile = ds_graphics:histogram_graph([{xsize, Width-40}], %% FIXME
  +                                          Data),
       ds_graphics:gc_image_file(PngFile, ?IMAGE_GC_TIMEOUT),
       Link = config_link(Id, show_table, not ShowTable),
       LinkText = case ShowTable of
                      true  -> "[Hide table]";
                      false -> "[Show table]"
                  end,
  -    [{table, [{width, "100%"},
  -              {cellspacing, 0}],
  +    [{table, [{width, "100%"}, {cellspacing, 0}],
        [{tr, [], [{td, [], [br]}]}, % vskip
         {tr, [],
          [{th, [{align, left}],
  
positive.code:       {tr, [],
         [{td, [],
           [{table, [{cellspacing, 0}],
             histogram_data_table(ShowTable, Id, Ext, ReportCfg)}]}]}]}].
  
  histogram_data_table(false,_Id,_Data,_ReportCfg) -> [];
  histogram_data_table(true, Id, Data, ReportCfg) ->
  
negative.code:     Data = [value_row(V, AttrCols) || V <- Values],
      frame(samples, stats_headers(AttrCols), Data, fun stats_display_f/1, ReportCfg).
  
  range_graph(false,_Pts,_Samples,_ReportCfg) -> [];
  range_graph(true, Pts, Samples, ReportCfg) ->
      AllSamples0 = Samples ++ [{Value, PVAttrs} || {_Pt, Value, PVAttrs} <- Pts],
      AllSamples1 = [value_row(V, true) || V <- AllSamples0],
      AllSamples = [Row || {_V,_C, MinTS,_MinK, MaxTS,_MaxK} = Row <- AllSamples1,
  