//+------------------------------------------------------------------+
//|                                Multi ATRs Data only Comments.mq4 |
//|                                       Copyright © 2008,  Sjcoinc |
//|                                            sjcoinc2000@yahoo.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008,  Sjcoinc"
#property link      "sjcoinc2000@yahoo.com"

#property indicator_chart_window

extern string  Note = "The value 0 in the Timeframe field";
extern string  Note2 = "uses the current timeframe.";
extern string  Note3 = "60 = H1, 240 = H4, 1440 = D1";
extern string  Note4 = "10080 = W1, 43800 = MNth";
extern string  Note5 = "                      ";
extern int     WindowNum = 0;
extern bool    ValuesAsIntegers = true;
extern int     ATR2Period = 20;
extern int     ATR2Timeframe = 0;
extern int     ATR3Period = 20;
extern int     ATR3Timeframe = 1440;
extern int     ATR4Period = 60;
extern int     ATR4Timeframe = 1440;
extern int     ATR5Period = 120;
extern int     ATR5Timeframe = 1440;
extern int     ATR6Period = 240;
extern int     ATR6Timeframe = 1440;
int            ATR1Period = 1;
int            ATR1Timeframe = 1440;
extern color   FontColor = Yellow;
extern string note5 = "Display info in what corner?";
extern string note6 = "Upper left=0; Upper right=1";
extern string note7 = "Lower left=2; Lower right=3";
extern int    WhatCorner=1;
extern int Shift_UP_DN =2; 
extern int Adjust_Side_to_side= 1;

double dXPoint;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
  //Checking for unconventional Point digits number
if (Point == 0.00001) dXPoint = 0.0001; //6 digits
else if (Point == 0.001) dXPoint = 0.01; //3 digits (for Yen based pairs)
else dXPoint = Point; //Normal   

//---- indicators
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
  ObjectDelete("SIG_INFO_2a");  ObjectDelete("SIG_INFO_3a");
  ObjectDelete("SIG_INFO_4a");  ObjectDelete("SIG_INFO_5a");

   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int    counted_bars=IndicatorCounted();
//----
 double     var1 = iATR(NULL,ATR1Timeframe,ATR1Period,0),
            var2 = iATR(NULL,ATR2Timeframe,ATR2Period,0),
            var3 = iATR(NULL,ATR3Timeframe,ATR3Period,0),
            var4 = iATR(NULL,ATR4Timeframe,ATR4Period,0),
            var5 = iATR(NULL,ATR5Timeframe,ATR5Period,0),
            var6 = iATR(NULL,ATR6Timeframe,ATR6Period,0);

 if ( ValuesAsIntegers )
 {
            var1 = NormalizeDouble(iATR(NULL,ATR1Timeframe,ATR1Period,0)/dXPoint,0);
            var2 = NormalizeDouble(iATR(NULL,ATR2Timeframe,ATR2Period,0)/dXPoint,0);
            var3 = NormalizeDouble(iATR(NULL,ATR3Timeframe,ATR3Period,0)/dXPoint,0);
            var4 = NormalizeDouble(iATR(NULL,ATR4Timeframe,ATR4Period,0)/dXPoint,0);
            var5 = NormalizeDouble(iATR(NULL,ATR5Timeframe,ATR5Period,0)/dXPoint,0);
            var6 = NormalizeDouble(iATR(NULL,ATR6Timeframe,ATR6Period,0)/dXPoint,0);
 }           
     int var1a=var1;
     int var2a=var2;
     int range =  (iHigh(NULL,Period(),0)-iLow(NULL,Period(),0))/dXPoint;
//     int range=High[0]-Low[0];

     ObjectCreate("SIG_INFO_2a", OBJ_LABEL, WindowNum, 0, 0);
//     ObjectSetText("SIG_INFO_2a","Range = "+range+" Pips", 8, "Comic Sans MS", White); //daily range
     ObjectSetText("SIG_INFO_2a","Range", 8, "Comic Sans MS", White); //current bar range
     ObjectSet("SIG_INFO_2a", OBJPROP_CORNER, WhatCorner);
     ObjectSet("SIG_INFO_2a", OBJPROP_XDISTANCE, 6+Adjust_Side_to_side);
     ObjectSet("SIG_INFO_2a", OBJPROP_YDISTANCE, 9+Shift_UP_DN); 

     ObjectCreate("SIG_INFO_3a", OBJ_LABEL, WindowNum, 0, 0);
     ObjectSetText("SIG_INFO_3a"," "+range+" Pips", 8, "Comic Sans MS", FontColor);
     ObjectSet("SIG_INFO_3a", OBJPROP_CORNER, WhatCorner);
     ObjectSet("SIG_INFO_3a", OBJPROP_XDISTANCE, 3+Adjust_Side_to_side);
     ObjectSet("SIG_INFO_3a", OBJPROP_YDISTANCE, 22+Shift_UP_DN); 

//----
     ObjectCreate("SIG_INFO_4a", OBJ_LABEL, WindowNum, 0, 0);
//     ObjectSetText("SIG_INFO_2a","Range = "+range+" Pips", 8, "Comic Sans MS", White); //daily range
     ObjectSetText("SIG_INFO_4a","ATR", 8, "Comic Sans MS", FontColor); //current bar range
     ObjectSet("SIG_INFO_4a", OBJPROP_CORNER, WhatCorner);
     ObjectSet("SIG_INFO_4a", OBJPROP_XDISTANCE, 6+Adjust_Side_to_side);
     ObjectSet("SIG_INFO_4a", OBJPROP_YDISTANCE, 37+Shift_UP_DN); 

     ObjectCreate("SIG_INFO_5a", OBJ_LABEL, WindowNum, 0, 0);
     ObjectSetText("SIG_INFO_5a"," "+var2a+" Pips", 8, "Comic Sans MS", FontColor);
     ObjectSet("SIG_INFO_5a", OBJPROP_CORNER, WhatCorner);
     ObjectSet("SIG_INFO_5a", OBJPROP_XDISTANCE, 3+Adjust_Side_to_side);
     ObjectSet("SIG_INFO_5a", OBJPROP_YDISTANCE, 47+Shift_UP_DN); 


/*     
     ObjectCreate("SIG_INFO_3a", OBJ_LABEL, 2, 0, 0);
     ObjectSetText("SIG_INFO_3a","ATR = "+var2a+" Pips", 8, "Comic Sans MS", White);
     ObjectSet("SIG_INFO_3a", OBJPROP_CORNER, WhatCorner);
     ObjectSet("SIG_INFO_3a", OBJPROP_XDISTANCE, 3+Adjust_Side_to_side);
     ObjectSet("SIG_INFO_3a", OBJPROP_YDISTANCE, 22+Shift_UP_DN); 
*/      

/*
//   Comment  (        "\nThe ATR for ", ATR2Timeframe," With ",ATR2Period," Periods is ",var2, " pips"
   Comment  (        "\nThe ", ATR2Period," Period ATR is ",var2, " pips"
//----               "\nThe ATR for ", ATR3Timeframe," With ",ATR3Period," Periods is ",var3,
//----               "\nThe ATR for ", ATR4Timeframe," With ",ATR4Period," Periods is ",var4,
//----               "\nThe ATR for ", ATR5Timeframe," With ",ATR5Period," Periods is ",var5,
//----               "\nThe ATR for ", ATR6Timeframe," With ",ATR6Period," Periods is ",var6 
            );           
*/
//----
   return(0);
  }
//+------------------------------------------------------------------+