//+------------------------------------------------------------------+
//|                                       RagheeCandleVagueBars .mq4 |
//|                            Copyright © 2009, Roman Robidet Burel |
//|    IF you find this Indicator/Code usefull and you want          |
//|                    donate something                              |
//|         YOU ARE WELCOME  PayPal : roman.robidet@hotmail.com      |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright "RagheeCandleVagueBars Copyright © 2009, Roman Robidet Burel"
#property link      "none"

#property indicator_chart_window
//#property  indicator_separate_window
#property indicator_buffers 4
//#property indicator_color1 Red
#property indicator_width1 2
//#property indicator_color2 Chartreuse
#property indicator_width2 2
//#property indicator_color3 Tan
#property indicator_width3 2
//#property indicator_color4 DarkOliveGreen
#property indicator_width4 2
#import "stdlib.ex4"
int RGB(int red_value,int green_value,int blue_value);

extern double HighAngle=30;
extern double LowAngle=-30;

double DnTrend[];
double UpTrend[];
double buff3[];
double buff4[];
double XScale;
int ExtCountedBars=0;
datetime inicio;
bool First=true;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
//SetIndexStyle(0,DRAW_LINE,EMPTY,2,Red);
   int rouge=RGB(255,0,0);
   int chartr=RGB(187,255,0);
   int orange=RGB(227,147,27);
//int ver       =RGB(63,158,76);
   int ver=RGB(0,255,0);

   SetIndexStyle(0,DRAW_HISTOGRAM,0,2,rouge);
   SetIndexStyle(1,DRAW_HISTOGRAM,0,2,ver);
   SetIndexStyle(2,DRAW_HISTOGRAM,0,2,orange);
   SetIndexStyle(3,DRAW_HISTOGRAM,0,2,chartr);
   SetIndexBuffer(0,DnTrend);
   SetIndexBuffer(1,UpTrend);
   SetIndexBuffer(2,buff3);
   SetIndexBuffer(3,buff4);
   SetIndexLabel(0,"Dn Ragheebars");
   SetIndexLabel(1,"UP Ragheebars");
   SetIndexLabel(2,"neutre_Dn Ragheebars");
   SetIndexLabel(3,"neutre_Up Ragheebars");
   inicio=TimeLocal();
   First=true;
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   XScale=MarketInfo(Symbol(),MODE_TICKVALUE)*MarketInfo(Symbol(),MODE_TICKSIZE)*10;
   if(XScale==0) return(0);
//Comment("inicio= "+inicio+"  inicio+ 20="+(inicio+20)+"  timelocal="+TimeLocal());
   int  pos;
   RefreshRates();
   double Angle;
   if(Bars<=10)  return(0);

   int counted_bars = IndicatorCounted();
   if(counted_bars < 0)  return(-1);
   if(counted_bars > 0)   counted_bars--;
   int limit = Bars - counted_bars;
   if(counted_bars==0) limit-=1+1;
   
//int pos=Bars;
// if (inicio==Bars+2) pos= Bars;
// if (TimeLocal()>=(inicio+300) && TimeLocal()<=(inicio+600)) pos=Bars;
   pos=limit;
//if (  (TimeLocal()> inicio + 40)  && (TimeLocal()<inicio +55) ) pos=Bars-1;
   lookback();
   WindowRedraw();
   while(pos>=0)
     {
      double RV1=iMA(Symbol(),0,34,0,MODE_EMA,PRICE_CLOSE,pos+1);
      double RV2=iMA(Symbol(),0,34,0,MODE_EMA,PRICE_CLOSE,pos);
      //XScale=MarketInfo(Symbol(),MODE_TICKVALUE)*MarketInfo(Symbol(),MODE_TICKSIZE)*10;
      //if (XScale==0) XScale=1;
      // while(XScale==0){
      //            XScale=MarketInfo(Symbol(),MODE_TICKVALUE)*MarketInfo(Symbol(),MODE_TICKSIZE)*10;
      //            }
      Angle=MathArctan((RV2-RV1)/XScale)/3.1415965*180;

      if(MathAbs(Angle)<=HighAngle) 
        {
         buff3[pos] =Open[pos];
         buff4[pos] =Close[pos];
        }
      else if(Angle<LowAngle)
        {
         if(Open[pos]>Close[pos]) 
           {
            DnTrend[pos] = Open[pos];
            UpTrend[pos] =Close[pos];
           }
         else   
           {
            DnTrend[pos] =Close[pos];
            UpTrend[pos] =Open[pos];
           }
        }
      else if(Angle>HighAngle)
        {
         if(Open[pos]<Close[pos]) 
           {
            DnTrend[pos] = Open[pos];
            UpTrend[pos] =Close[pos];
           }
         else   
           {
            DnTrend[pos] =Close[pos];
            UpTrend[pos] =Open[pos];
           }
        }
      pos--;
     }
//----
   return(0);
  }
//+------------------------------------------------------------------+

void lookback()
  {
   int Periodo=Period();
   double PosL;
   if(Periodo==1440) PosL=240; //D1  Daily
   else if(Periodo==240) PosL=120; // H4  4 hours
   else if(Periodo==180) PosL=160; // H3
   else if(Periodo==60) PosL=240; // H1 1 hours
   else if(Periodo==30) PosL=480; // M30  30 minutes
   else if(Periodo==15) PosL=480; // M15  15 minutes
   else if(Periodo==5 || Periodo==1) return;

   if(ObjectFind("lookback")!=-1) ObjectDelete("lookback");
   ObjectCreate("lookback",OBJ_VLINE,0,iTime(Symbol(),0,PosL),0);
//ObjectCreate("lookback",OBJ_VLINE,0,10);
   ObjectSet("lookback",OBJPROP_WIDTH,2);
   ObjectSet("lookback",OBJPROP_COLOR,DodgerBlue);

   return;
  }
//+------------------------------------------------------------------+