/// \file
/// \ingroup tutorial_rcanvas
///
/// This macro generates two RH1D, fills them and draw with different options in RCanvas.
/// The canvas is display in the web browser
///
/// \macro_image (rcanvas_js)
/// \macro_code
///
/// \date 2015-03-22
/// \warning This is part of the ROOT 7 prototype! It will change without notice. It might trigger earthquakes. Feedback is welcome!
/// \authors Axel Naumann <axel@cern.ch>, Sergey Linev <s.linev@gsi.de>

/*************************************************************************
 * Copyright (C) 1995-2019, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/

#include "ROOT/RHist.hxx"
#include "ROOT/RHistDrawable.hxx"
#include "ROOT/RFrameTitle.hxx"
#include "ROOT/RCanvas.hxx"
#include "ROOT/RPad.hxx"
#include "TRandom.h"

// macro must be here while cling is not capable to load
// library automatically for outlined function see ROOT-10336
R__LOAD_LIBRARY(libROOTHistDraw)

using namespace ROOT::Experimental;

void rh1()
{
   // Create the histogram.
   RAxisConfig xaxis(25, 0., 10.);
   auto pHist1 = std::make_shared<RH1D>(xaxis);
   auto pHist2 = std::make_shared<RH1D>(xaxis);

   for (int n=0;n<1000;n++) {
      pHist1->Fill(gRandom->Gaus(3,0.8));
      pHist2->Fill(gRandom->Gaus(7,1.2));
   }

   // Create a canvas to be displayed.
   auto canvas = RCanvas::Create("RH1 drawing options");

   // histograms colors
   auto col1 = RColor::kRed, col2 = RColor::kBlue;

   // Divide canvas on 2x3 sub-pads to show different draw options
   auto subpads = canvas->Divide(2,3);

   // default draw option
   subpads[0][0]->Draw<RFrameTitle>("Default RH1 drawing");
   auto draw001 = subpads[0][0]->Draw(pHist1);
   draw001->line.color = col1;
   draw001->line.width = 2;
   auto draw002 = subpads[0][0]->Draw(pHist2);
   draw002->line.color = col2;
   draw002->line.width = 4;

   // errors draw options
   subpads[1][0]->Draw<RFrameTitle>("Error() draw options");
   subpads[1][0]->Draw(pHist1)->Error(1).line.color = col1;
   subpads[1][0]->Draw(pHist2)->Error(4).fill = RAttrFill(col2, RAttrFill::k3003);

   // text and marker draw options
   subpads[0][1]->Draw<RFrameTitle>("Text() and Marker() draw options");
   subpads[0][1]->Draw(pHist1)->Text().text.color = col1;
   subpads[0][1]->Draw(pHist2)->Marker().marker = RAttrMarker(col2, 0.02, RAttrMarker::kOpenStar);

   // bar draw options
   subpads[1][1]->Draw<RFrameTitle>("Bar() draw options");
   subpads[1][1]->Draw(pHist1)->Bar(0,0.5).fill = RAttrFill(col1, RAttrFill::kSolid);
   subpads[1][1]->Draw(pHist2)->Bar(0.5,0.5,true).fill = RAttrFill(col2, RAttrFill::kSolid);

   // line draw option
   subpads[0][2]->Draw<RFrameTitle>("Line() draw option");
   subpads[0][2]->Draw(pHist1)->Line().line.color = col1;
   subpads[0][2]->Draw(pHist2)->Line().line.color = col2;

   // lego draw option
   subpads[1][2]->Draw<RFrameTitle>("Lego() draw option");
   subpads[1][2]->Draw(pHist1)->Lego().fill = RAttrFill(col1, RAttrFill::kSolid);

   canvas->SetSize(1000, 700);
   canvas->Show();
}