THStock.cxx

Go to the documentation of this file.

#include "THStock.h"
/*
//#include "AbstractObjectStock.h"
#include "ObjectLine.h"
#include "ObjectStock.h"
*/

#include <utility>
// gPad used a lot in *cpp, like in TH1
//#include <TPad.h>
#include <TMath.h>
#include <TColor.h>

//for ROOT dictionnary
ClassImp(THStock)

//Constructors and destructors
THStock::THStock() : TH1()
{
  // set default size for array and init: fNcells = n;
  // but no used by THstock, need list of StockData
  SetBinsLength(3);
  // needed ? not maybe later
  //if (fgDefaultSumw2) Sumw2();

  fcommon_xaxis_th = 0 ;
  //default value of FontSize, to check if used ??
  fsize_title = 0;
  //shoudl be done by constructor TH1 by default, to check
  fMaximum       = -1111;
  fMinimum       = -1111;
}

THStock::THStock(const char* name, const char* title, int size_axis ) : 
TH1(name,title, size_axis ,(Float_t *)0), fcommon_xaxis_th(0)
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "Constructor THStock name and title and size only " << size_axis << std::endl;
#endif
  //set default size for array and init: fNcells = n; But no used by THstock, need list of StockData
  SetBinsLength(3);
  fsize_title = 0;
  //shoudl be done by constructor TH1 by default, to check
  fMaximum       = -1111;
  fMinimum       = -1111;
}


//trick with TH1 constructor, do not provide *float, will create by default 0,1
// and will setup fNcells of TH1 according to nbins
THStock::THStock(const char* name, const char* title, ListDataStockBase * ldata) :
TH1(name,title,ldata->GetSize(),(Float_t *)0)
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "\n\tEntry constructor THStock with ldata argument " << std::endl;
  std::cout << "name " << name << " title " << title << std::endl;
#endif
  fDimension = 1;
  //default zero, but could set the normal xaxis ?? not sure about common, so keep it like this
  // will be set up after
  fcommon_xaxis_th = 0;
  std::cout << "In constructor get size xaxis " << GetXaxis()->GetNbins() << std::endl;
  //will create with factory and store the corresponding ObjectStock
  AddPairToVector ( ldata );
}

// Copy constructor, why complaining, clone ?? used ??
THStock::THStock( const THStock& ht ) : TH1(), fcommon_xaxis_th(0),fsize_title(0)
{
 ((THStock&)ht).Copy(*this);
 // copy the list of Object ?? check with TH1, do not copy function, 
 // seems to need TObject::Clone, not clear ..certainly clone needed with polymorphic
}
 
THStock::~THStock()
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "Destructeur THStock " << std::endl;
#endif
  // Allocated by CanvasStock, just nullify
  fcommon_xaxis_th = 0; // ?? here not goood certainly why not, allocated by CanvasStock

  // here 2 orders, need to delete objects of the pair, do not delete ListDataStock, done by StockManager
  for ( it_pair it = vect_pair_obj.begin(); it != vect_pair_obj.end(); it ++ ) {
      // first will be deleted by StockManager
      delete (*it).second;
  }
  vect_pair_obj.clear();
}

//used ?? yes where ??
void THStock::Copy(TObject &newht) const
{
    std::cout << "\nEntry THStock::Copy\n" << std::endl;
 TH1::Copy(newht);
 //need copy of the pointeur to list data stock ?? certainly...
}

//used ?? not yet ! certainly no need here ??
THStock* THStock::DrawCopy(Option_t *option) const
{
 std::cout << "\n\t THStock::DrawCopy " << std::endl;
 TString opt = option;

 opt.ToLower();
 if (gPad && !opt.Contains("same")) gPad->Clear();

 THStock *newth = (THStock*)Clone();
 newth->SetDirectory(0);
 newth->SetBit(kCanDelete);
 newth->AppendPad(option);
 return newth;
}


void THStock::SetCommonXAxis( CommonXAxis * new_xaxis )
{
#ifdef DEBUG_OBJSTOCK
        std::cout << "\n\tTHStock SetCommonXAxis " << new_xaxis << std::endl;
#endif
        fcommon_xaxis_th = new_xaxis;
        return;
}

THStock& THStock::operator=(const THStock& ht)
{
#ifdef DEBUG_OBJSTOCK
    std::cout << "Entry THStock::operator= " << std::endl;
#endif
  if (this != &ht)  ((THStock&)ht).Copy(*this);
      return *this;
}

ListDataStockBase * THStock::GetListDataStock ( std::string shortname ) const
{
#ifdef DEBUG_OBJSTOCK
    std::cout << "Entry THStock::GetListDataStock fullname " << std::endl;
#endif
    for ( cit_pair it = vect_pair_obj.begin(); it != vect_pair_obj.end(); it ++) {
        std::cout << " name first " << (*it).first->GetName() << std::endl;
        if ( (*it).first->GetName() == shortname ) {
            std::cout << "Found shortname" << std::endl;
            return (*it).first;
        }
    }
    return nullptr;
}

// enforce const, because called by many const member function in THStock
ListDataStockBase * THStock::GetFirstListData() const
{
    // need const iterator for the function to be const ?
    cit_pair it1 = vect_pair_obj.begin();
    cit_pair it2 = vect_pair_obj.end();

    for ( cit_pair it = it1; it != it2; ++it ) {
            // need to clarify the names !
            //std::cout << " name of Object at it " << (*it).second->GetNameObject() << std::endl;
        if ( (*it).first != nullptr ) {
            //std::cout << " FOUND name from listdata it " << (*it).first->GetName() << std::endl;
            return (*it).first;
        }
    }
    return nullptr;
}

// with a few test on ldata could combine with Add ( ObjectLine* )
// story about CommonAxis may change this state, painting different as well
void THStock::AddPairToVector ( ListDataStockBase * ldata )
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "\n\tTHStock::AddPairToVector" << std::endl;
  std::cout << " ldata name " << ldata->GetName() << std::endl;
#endif

  std::pair< ListDataStockBase*, IndicatorObjectStock* > tmp_pair;
  IndicatorObjectStock * object;

  Indicator indic = Indicator::GetIndicator ( ldata->GetName() );
  //UInt_t size = ldata->GetSize();
  unsigned int size = 0;
  size = ldata->GetSize();
  std::cout << "size " << size << std::endl;

  // call factory method, delete all reference to listdatastock
  // set parent when creating object ( need for STOCHF support ), not anymore !
  // need the fullname as well for collection, and the indicator
  // need this for Collection only ?? strange
  object = FactoryObjectStock::CreateObjectStock ( indic, ldata->GetName(), size, this );

  if ( object == 0 ) {
      std::cout << "object is null " << std::endl;
      return;
  }
  //else {
  //   std::cout << "THStock::AddPairToVector object created " << std::endl;
  //}

  // set as parent, extend to all now, if needed could extend to Candle or Bar but not needed interact through ListObject
  // now extended to all, could get all dates from it !! no need to copy in ObjectStock !
  // need to parent in constructiong object ( support in STOCHF ), to delete
  object-> SetParent( this ); //keep for the other
  //std::cout << "Setted up the parent AddPairToVector " <<  object->GetParent() << std::endl;

  tmp_pair = std::make_pair ( ldata, object );
  // push Indicator AFTER the supports, problem in THisPainterStock !
  // here insert first, or THisPainterStock loop until ldata is not null
  // now inserted last : ex RSI, support first and then PStockLine
  vect_pair_obj.push_back( tmp_pair );
#ifdef DEBUG_OBJSTOCK
  std::cout << "AddPair ldata/object " << ldata << " " << object << std::endl;
  std::cout << "After push_back size " << vect_pair_obj.size() << std::endl;
#endif
}

// specify last commented, when commented for compilation, should be moved to ObjectSupportTendance
// cannot compile with Abstract ?? problem in make pair !
// void THStock::Add ( AbstractObjectStock *obj_stock )
void THStock::Add ( ObjectLine *obj_stock )
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "\n\tTHStock::Add (ObjectLine ) obj_stock " << obj_stock << std::endl;
  std::cout << "this->GetName() " << this->GetName() << std::endl;
  // need ObjectLine in parameter here
  std::cout << "obj X0 X1 " << obj_stock->GetX0() << " " << obj_stock->GetX1() << std::endl;
  std::cout << "obj Y0 Y1 " << obj_stock->GetY0() << " " << obj_stock->GetY1() << std::endl;
#endif

  // insert the object in the vector
  //std::cout << "before push_back size " << vect_pair_obj.size() << std::endl;
  vect_pair_obj.push_back( std::make_pair<ListDataStockBase*,AbstractObjectStock*>( nullptr,obj_stock) );
#ifdef DEBUG_OBJSTOCK
  std::cout << "After push_back size " << vect_pair_obj.size() << std::endl;
#endif
}

void THStock::AnchorToIndicator( const int & px, const int & py, ObjectLine * obj_line, FactoryObjectStock::EStageDraw kDraw )
{
#ifdef DEBUG_OBJSTOCK
    std::cout << "Entry AnchorToIndicator with object " << std::endl;
    std::cout << " enum EStageDraw " << kDraw << std::endl;
    std::cout << "px/py " << px << " / " << py << std::endl;
#endif

    double y_anchor = -1;
    double dist_y_anchor = 9999;

    // check if bin necessary ?? here can simply compute bin in DistancetoPoint
    dist_y_anchor = DistancetoPoint ( px, py , y_anchor ); //bin_x0
    std::cout << "dist_y_anchor " << dist_y_anchor << "y_anchor " << y_anchor << std::endl;

    if ( dist_y_anchor < DIST_ANCHOR ) {
      //now just fixe Y0, X0 is correct (bin by default), coeff_d will be modified after, when repainting
      if ( kDraw == FactoryObjectStock::kBeginDraw )
        obj_line->SetY0( y_anchor );
      // seems ok with support, keep the first point
      else if ( kDraw == FactoryObjectStock::kEndDraw )
        obj_line->SetY1( y_anchor );
    }
}

// called when update, need to increase the size of the objectstock, if needed
// no need of new_size if listdata stock has been updated
// just intermediate to force correct resize of ObjectStock, no need to check all the time

// how to get if replace last ?? no probelm until now shoud use SetValues() all the time
// update is forced anyway a new message is given

// maybe change name, make clear than only modifies the size
// AdaptSize ResizeObjectsStock
void THStock::UpdateObjectStock() // unsigned int new_size )
{
#ifdef DEBUG_OBJSTOCK
  std::cout <<"Entry THStock::UpdateObjectStock() " << std::endl;
#endif
  unsigned int size_ldata, size_object;
  Int_t new_size;
  //Indicator indic;

  it_pair it_p;
  for ( it_pair it_p = vect_pair_obj.begin(); it_p != vect_pair_obj.end(); it_p++ ) {

#ifdef DEBUG_OBJSTOCK
      if ( ((*it_p).first) != nullptr ) {
        std::cout << "ldata_name / size " << ((*it_p).first)->GetName() << " " << ((*it_p).first)->GetSize() << std::endl;
        std::cout << "pointer to ldata " << (*it_p).first << std::endl;
      }
      std::cout << "size object "<< ((*it_p).second)->GetSize() << std::endl;
#endif

      // case of ObjectLine, 0 and 0
      if ( ((*it_p).first) != nullptr ) {
          size_ldata = ((*it_p).first)->GetSize();
          std::cout << "sizeldata " << size_ldata << std::endl;
      } else {
          std::cout << "ObjectLine size = 0 " << std::endl;
          size_ldata = 0;
      }
      size_object = ((*it_p).second)->GetSize();

      // before was using indicator and send to Factory. Now call directly
      // Indicator indic = Indicator::GetIndicator ( ((*it_p).first)->GetName() );
      // should work all time, send listdatastock to Factory to know the type
      // new version, send only the size to add, always SetValues, so no problem with replace first
      if ( size_ldata > size_object ) {

          std::cout << "need to resize ObjectStock to " << size_ldata << " Call Factory::Resize()" << std::endl;
          new_size = size_ldata - size_object;
          std::cout << " send to resize new_size " << new_size << std::endl;
          // why factory ? could be specialized
          //FactoryObjectStock::Resize( (*it_p).second, indic, new_size );
          ((*it_p).second)->Resize( new_size );
      }
  }

}

unsigned int THStock::GetNTHStockToPaint () const
{
  unsigned int nb_paint = 0;
  for ( cit_pair it = vect_pair_obj.begin(); it != vect_pair_obj.end(); it ++ ) {
      if ( ((*it).second )->ToPaint() ) {
          nb_paint++;
      }
  }
  return nb_paint;
}

// delete wrong with RSI
void THStock::HideNameListData ( std::string fullname, bool toDelete )
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "Entry THStock::HideNameListData fullname " << fullname << " toDelete " << toDelete << std::endl;
#endif

  for ( it_pair it = vect_pair_obj.begin(); it != vect_pair_obj.end(); it ++ ) {

          // case RSI, all support must be deleted
          // for now, SetToPaint false by default
          if ( (*it).first == nullptr ) {
                  std::cout << "found nullptr THStock::HideNameListData in to solve later " << std::endl;
                  std::cout << "case RSI " << std::endl;
                  std::cout << "name object " << ( (*it).second )->GetNameObject() << std::endl;
                  // default
                  ( (*it).second )->SetToPaint( false );
                  ( (*it).second )->ClearObjectStock();
                  continue;
          }

      if ( ( (*it).first )->GetFullName() == fullname ) {
          //std::cout << "found set paint to false" << std::endl;
          // hide ObjectStock if toDelete false
          ( (*it).second )->SetToPaint( false );
          // but will not be "Clear"
          //std::cout << "THStock::HideNameListData need to clear the object here ??" << std::endl;
          ((*it).second)->ClearObjectStock();

          //if need to delete
          if ( toDelete ) {
              std::cout << "THStock::HideNameListData option toDelete " << std::endl;
              //delete explicitely the Object, listdata will be done by StockManager
              delete ( (*it).second );
              vect_pair_obj.erase ( it );
          }
          return;
      }
  }
  std::cout << "THStock::HideNameListData not found" << std::endl;
}

void THStock::ShowNameListData ( std::string fullname ) const
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "Entry THStock::ShowNameListData " << fullname << std::endl;
#endif
  for ( cit_pair it = vect_pair_obj.begin(); it != vect_pair_obj.end(); it ++ ) {

          // Case RSI, support before in vector
          if ( (*it).first == nullptr ) {
                  // needed to see the support again
                  ((*it).second)->SetToPaint( true );
                  std::cout << "nullptr case RSI " << std::endl;
                  continue;
          }

      if ( ( (*it).first )->GetFullName() == fullname ) {
          ((*it).second)->SetToPaint( true );
#ifdef DEBUG_OBJSTOCK
          std::cout << "fund return true" << std::endl;
#endif
          return;
      }
  }
}

void THStock::SetColor( ListDataStockBase * ldata, Pixel_t color ) const
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "Entry THStock::SetColor " << color << std::endl;
  std::cout << "ldata->GetName() " << ldata->GetName() << std::endl;
#endif

  for ( cit_pair it = vect_pair_obj.begin(); it != vect_pair_obj.end(); it ++ ) {

          std::cout << (*it).first << std::endl;
          // case RSI, Support added, makes problem
          if ( (*it).first == nullptr )
                  continue;

      if ( (*it).first == ldata ) {

          // need to check the pointer for all those function

          // equivalent to dynamic_cast ??
          // THstock derive from ROOT, so better to use
          if ( ((*it).second)->InheritsFrom("PStockLine") ) {
              std::cout << "SetLineColor " << TColor::GetColor( color ) << std::endl;
              ((*it).second)->SetLineColorObject( TColor::GetColor( color ) );
          }
          std::cout << "found return " << std::endl;
          return;
      }
  }
}

// new version send the fullname, hash table, map faster ??
// changed from ldata to name
void THStock::SetColor( std::string fname, Pixel_t color ) const
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "Entry THStock::SetColor " << color << std::endl;
  std::cout << "TColor::GetColor( color ) " << TColor::GetColor( color ) << std::endl;
  std::cout << "With fullname " << fname << std::endl;
#endif
  //std::cout << "ldata->GetName() " << ldata->GetName() << std::endl;

  // could be a function GetItMap/VecByFName()
  for ( cit_pair it = vect_pair_obj.begin(); it != vect_pair_obj.end(); it ++ ) {

          // case RSI, Support added, list = 0, makes problem
          if ( (*it).first == nullptr )
                  continue;

      if ( (*it).first->GetFullName() == fname ) {

          //std::cout << ((*it).second)->ClassName() << std::endl;
          // could be better, Be sure SetLineColorObject exists for all.. some crashes
          if ( ((*it).second)->InheritsFrom("PStockLine") ) {
              //std::cout << "SetLineColor " << TColor::GetColor( color ) << std::endl;
              //((*it).second)->SetLineColorObject( TColor::GetColor( color ) );
              ((PStockLine*) ((*it).second))->SetLineColorObject( TColor::GetColor( color ) );
          }
#ifdef DEBUG_OBJSTOCK
          std::cout << "found return " << std::endl;
#endif
          return;
      }
  }
}

//do not work for MACD, other THStock, need to refer to first THStock, not used anymore
// so need access CanvasStock, or throught fCommonAxis or directly from ListObjectStock !!
//maybe needed for ObjectLine, make sense in this case.
// here safe, no idea about the order ??
// easier with commonaxis
time_t THStock::GetDateFromBin ( Int_t bin ) const
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "Entry THStock::GetDateFromBin bin " << bin << std::endl;
#endif

  time_t date;
  ldata_candle *ldata = (ldata_candle *) GetFirstListData();
  //std::cout << "ldata " << ldata << " " << ldata->GetName() << std::endl;

  date = ldata->ChronologicAt( bin ).GetDate();
  //std::cout << "size_data " << size_data << " size_data-bin " << size_data-bin << " date " << date << std::endl;
#ifdef DEBUG_OBJSTOCK
  std::cout << "ldata " << ldata << " " << ldata->GetName() << std::endl;
  std::cout << "date " << date << " " << Utils::Time_tToString(date) << std::endl;
#endif
  return date;
}

//developped for MACD, for retriving date, problem because in another THStock
//used in PstockLine as well !!
Int_t THStock::GetBinFromPixel ( Int_t px, Int_t &bin2 ) const
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "Entry THStock::GetBinFromPixel px " << px << std::endl;
#endif
  Int_t bin = fcommon_xaxis_th->GetXAxis()->FindBin( gPad->AbsPixeltoX( px ) );
  //total_bin = fcommon_xaxis_th->GetNbins();
  if ( bin2 > 0 ) {
      //std::cout << "option bin2, check next or previous closest bin " << std::endl;
      //std::cout << "bin center " << fcommon_xaxis_th->GetXAxis()->GetBinCenter( bin ) << std::endl;
      if ( gPad->AbsPixeltoX( px ) > fcommon_xaxis_th->GetXAxis()->GetBinCenter( bin ) ) {
          //std::cout << " gPad->AbsPixeltoX( px ) is > center " << std::endl;
          bin2 = bin + 1;   
      } else {
          bin2 = bin - 1;
      }
  }
  return bin;
}

//not used anyymore for MACD,
// used by ObjectLine
time_t THStock::GetDateBinFromPixel ( Int_t px, Int_t /*py*/, Int_t &bin, Int_t &bin2 ) const
{
  //std::cout << "Entry THStock::GetDateBinFromPixel " << std::endl;
  time_t date;

  bin = fcommon_xaxis_th->GetXAxis()->FindBin( gPad->AbsPixeltoX( px ) );
  date = GetDateFromBin( bin );
  //std::cout << "get bin " << bin << " get date " << date << std::endl;

  if ( bin2 > 0 ) {
      //std::cout << "option bin2, check next or previous closest bin " << std::endl;
      //std::cout << "bin center " << fcommon_xaxis_th->GetXAxis()->GetBinCenter( bin ) << std::endl;
      if ( gPad->AbsPixeltoX( px ) > fcommon_xaxis_th->GetXAxis()->GetBinCenter( bin ) ) {
          //std::cout << " gPad->AbsPixeltoX( px ) is > center " << std::endl;
          bin2 = bin + 1;   
      } else {
          bin2 = bin - 1;
      }
  }
  return date;
}

void THStock::GetObjectExtrema( double & ymin, double & ymax ) const
{
#ifdef DEBUG_OBJSTOCK
    std::cout << "\n\tEntry THStock::GetObjectExtrema " << std::endl;
#endif

    double min, max;
    // shoul give default values !!
    min = 10e6;
    max = -10e6;

    // loop over object, here only ObjectStock
    for ( cit_pair it = vect_pair_obj.begin(); it != vect_pair_obj.end(); it ++) {

        // try to call the appropriate function, ok
        // important test, if hidden should not enter into account
        if ( (*it).second->ToPaint() ) {
            (*it).second->GetExtrema( min, max );

            if ( max > ymax ) ymax = max;
            if ( min < ymin ) ymin = min;
        }
    }
#ifdef DEBUG_OBJSTOCK
    std::cout << "will return ymin " << ymin << " ymax " << ymax << std::endl;
#endif
}

Int_t THStock::DistancetoPrimitive(Int_t px, Int_t py, TObject** obj)
//Int_t THStock::DistancetoPrimitive(Int_t px, Int_t py, AbstractObjectStock** obj)
{
/*
#ifdef DEBUG_OBJSTOCK
  std::cout << "THStock::DistancetoPrimitive size vect_pair_obj " << vect_pair_obj.size() << std::endl;
#endif
*/
  Int_t dist = 9999;
  Int_t dist_objstock = 9999;

  //need a tmp_obj, cannot set and change in the same time
  AbstractObjectStock * tmp_object;

  for ( it_pair it = vect_pair_obj.begin() ; it != vect_pair_obj.end(); it ++ ) {
      // check if is painted 
      if ( !((*it).second)->ToPaint() ) {
#ifdef DEBUG_OBJSTOCK
          std::cout <<"ToPaint false"<< std::endl;
#endif
          continue;
      }

      tmp_object = 0;
      // will return a tmp_object anyway, accepted only if better or equal
      dist_objstock = ((*it).second)->DistancetoPrimitive( px, py, &tmp_object ); //obj );
      //std::cout << " dist_objstock after PLine " << dist_objstock << " value of dist " << dist << std::endl;
      // test before ??
      if ( tmp_object == 0 ) {
#ifdef DEBUG_OBJSTOCK
          std::cout << "\nYES CALLED ! tmp_object is null, continue\n" << std::endl;
#endif
          continue;
      }
      if ( dist_objstock <= dist ) {
          //std::cout << "THStock new min dist " << dist_objstock << std::endl;
          dist = dist_objstock;
          //std::cout << "Set object in THStock " << tmp_object << (tmp_object)->ClassName() << std::endl;
          *obj = tmp_object;
      }
      //std::cout << "  THStock::DistancetoPrimitive dist " << dist << std::endl;
      //std::cout << " obj?? " << *obj << std::endl;
  }

  //std::cout << " THStock return obj " << *obj << " " << (*obj)->ClassName() << std::endl;
  return dist;
}

// inspired from DistancetoPrimitive, used by the anchor function when drawing ObjectLine
// called by 
// After modification of ObjectStock, could change
Int_t THStock::DistancetoPoint(Int_t px, Int_t py, Double_t &yvalue ) const
{
#ifdef DEBUG_OBJSTOCK
  std::cout << "Entry THStock::DistancetoPoint" << std::endl;
#endif
  Int_t dist = 9999;
  Int_t dist_objstock = 9999;
  Double_t yvalue_tmp;

  // want to anchor to any IndicatorObjectStock, not other
  IndicatorObjectStock *indic_anchor_obj;

  int bin_x0 = fcommon_xaxis_th->GetXAxis()->FindBin( gPad->AbsPixeltoX( px ) );
  std::cout << "bin_x0 " << bin_x0 << std::endl;

  // should check for bin_x0,bin_x1 only, intermediate noisy
  for ( cit_pair it = vect_pair_obj.begin() ; it != vect_pair_obj.end(); it ++ ) {
      // check if is painted
      if ( !((*it).second)->ToPaint() ) {
          //std::cout << " Not paint !! continue " << std::endl;
          continue;
      }
      //std::cout << "name associated " << GetNameListData( (*it).second ) << std::endl;
      // return AbstractBase
      //std::cout << "ClassName() " << ((*it).second )->ClassName() << std::endl;
      indic_anchor_obj = dynamic_cast<IndicatorObjectStock *>( (*it).second );
      if ( indic_anchor_obj != nullptr ) { //0 ) { //nullptr )
        //std::cout << "name associated " << GetNameListData( (*it).second ) << std::endl;

        //may need an option, over all bin, bin not fixed ( but printed ) depend of bin loop over bin should be here
        // if sure Indicator. distancetoPoint maybe limited to it...
        dist_objstock = ((*it).second)->DistancetoPoint( px, py, yvalue_tmp, bin_x0 );
        //dist_objstock = ((*it).second)->DistancetoPoint( gPad->AbsPixeltoX( px ), gPad->AbsPixeltoY( py ),
         //                                                bin_x0, yvalue_tmp );
        if (  dist_objstock <= dist ) {
            dist = dist_objstock;
            yvalue = yvalue_tmp;
            std::cout << "set new dist " << dist << " yvalue " << yvalue << std::endl;
        }
      }
      // for test only
      /*
      else { std::cout << ((*it).second)->GetNameObject() << " not inheriting from IndicatorObjectStock " << std::endl; }
      */
  } // end loop over object

#ifdef DEBUG_OBJSTOCK
  std::cout << "Exit THStock::DistancetoPoint final dist " << dist << " yvalue " << yvalue << std::endl;
#endif
  return dist;
}

// only call method Paint on the object
// could use Paint default ?? argument not used
void THStock::PaintObjectStock( const Option_t* option ) // Hparam_stock_t &Hparam_stock )
{
#ifdef DEBUG_OBJSTOCK
    std::cout << "\n\tEntry THStock::PaintObjectStock new version " << std::endl;
    //std::cout << "Hparam_stock.xfirst " << Hparam_stock.xfirst << std::endl;
    //std::cout << "Hparam_stock.xlast " << Hparam_stock.xlast << std::endl;
#endif

    //ListDataStockBase *ldata;
    AbstractObjectStock *object;

    for ( it_pair it = vect_pair_obj.begin(); it != vect_pair_obj.end(); it ++ ) {

          //ldata = (*it).first; // can be nullptr
          object = (*it).second;
          //std::cout << "object name " << (*it).second->GetName() << std::endl;

          // forgot strange bug, in part because painted 2 times..
          if ( object->ToPaint() )
              object->Paint();
          else {
#ifdef DEBUG_OBJSTOCK
              std::cout << "ToPaint is False " << std::endl;
#endif
          }
    }
}

void THStock::SetObjectStock( Hparam_stock_t &Hparam_stock ) const
{
#ifdef DEBUG_OBJSTOCK
    std::cout << "\n\tEntry THStock::SetObjectStock new version " << std::endl;
    std::cout << " size of vect_pair " << vect_pair_obj.size() << std::endl;
    //std::cout << "Hparam_stock.xfirst " << Hparam_stock.xfirst << std::endl;
    //std::cout << "Hparam_stock.xlast " << Hparam_stock.xlast << std::endl;
#endif

    ListDataStockBase *ldata;
    AbstractObjectStock *object;

    for ( cit_pair it = vect_pair_obj.begin(); it != vect_pair_obj.end(); it ++ ) {

          ldata = (*it).first;
          object = (*it).second;

          // can protect

#ifdef DEBUG_OBJSTOCK
          if ( ldata != nullptr ) {
          std::cout << "Call ClearObjectStcok and SetObjectStock on " << ldata->GetName() << std::endl;
          } else {
          std::cout << "pointer ldata is nullptr, it is a line objectstock " << std::endl;
          }
#endif

          // consider here than clear object and set to paint = false is already called when hide/delete is pressed
          // so only Object to redraw here
          if ( object->ToPaint() ) {
                // - For ListObjectStock, really set ToPaint in Candle and Bar to false, ClearObject is used
                // - For PStockLine, delete all values, will need to be recreated each time, or need to extend like ListObjectStock.
                //     ToPaint false, only by IndicatorFrame
                // - Collection call ClearObjectStock on every items
            // - ObjectLine, should always be draw ? will enforce in GetExtrema
            //             easy to modify, because in subclass
            //             for the moment do nothing
            object->ClearObjectStock();

            // do not want to overwrite Paint(), paint different Set better
            // original ROOT done in THistPainter ??
            //if ( object->ToPaint() )
            // here redondant, many of the property in common_axis in Hparam_stock
            // in fact only Hparam_stock.shift_futur is used = fcommon_xaxis_th.GetShift()
            //object->SetObjectStock( ldata, fcommon_xaxis_th ); //, Hparam_stock );
            object->SetObjectStock( ldata, fcommon_xaxis_th, Hparam_stock );
          }
    }
}