//+------------------------------------------------------------------+
//|                                                      MTF_ATR.mq4 |
//|                               Copyright © 2013, Gehtsoft USA LLC |
//|                                            http://fxcodebase.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2013, Gehtsoft USA LLC"
#property link      "http://fxcodebase.com"

#property indicator_separate_window

extern string Instrument="";
extern int ATR_Length=14;
extern int TF1=1;       // M1
extern int TF2=5;       // M5
extern int TF3=15;      // M15
extern int TF4=30;      // M30
extern int TF5=60;      // H1
extern int TF6=240;     // H4
extern int TF7=1440;    // D1
extern int TF8=10080;   // W1
extern int TF9=43200;   // MN
extern double Gate=0;
extern color UpColor=Green;
extern color DnColor=Red;
extern color NeutralColor=Blue;

string Instr;
string IndName;

int init()
{
 IndicatorDigits(Digits);

 if (Instrument=="") Instr=Symbol(); else Instr=Instrument;
 
 IndName="Multi Time Frame ATR "+Instr;
 IndicatorShortName(IndName);

 return(0);
}

double CalcATR(int Length, int TF, int& Direction)
{
 double ATR0=iATR(Instr, TF, Length, 0);
 double ATR1=iATR(Instr, TF, Length, 1);
 if (ATR0-ATR1>=Gate)
 {
  Direction=1;
 }
 else
 {
  if (ATR0-ATR1<=-Gate)
  {
   Direction=-1;
  }
  else
  {
   Direction=0;
  }
 }
 return (ATR0);
}

int deinit()
{

 return(0);
}

string StringTF(int TF)
{
 if (TF==1) return ("M1");
 if (TF==5) return ("M5");
 if (TF==15) return ("M15");
 if (TF==30) return ("M30");
 if (TF==60) return ("H1");
 if (TF==240) return ("H4");
 if (TF==1440) return ("D1");
 if (TF==10080) return ("W1");
 if (TF==43200) return ("MN");
 return ("");
}

void DrawATR(int Num, int TF)
{
 int Dir;
 double ATR=CalcATR(ATR_Length, TF, Dir);

 string D;
 color Clr;
  
 if (Dir==1)
 {
  D=CharToStr(221); 
  Clr=UpColor;
 }
 else if (Dir==-1)
 {
  D=CharToStr(222); 
  Clr=DnColor;
 }
 else 
 {
  D=CharToStr(219);
  Clr=NeutralColor;
 }
   
 int WindowNumber=WindowFind(IndName);
 if (WindowNumber!=-1)
 {
  string ObjName="L_"+WindowNumber+"_"+Num+"_1";
  if (ObjectFind(ObjName)==-1)
  {
   ObjectCreate(ObjName, OBJ_LABEL, WindowNumber, 0, 0);
  }
  ObjectSet(ObjName, OBJPROP_XDISTANCE, 20+(Num-1)*150); 
  ObjectSet(ObjName, OBJPROP_YDISTANCE, 10); 
  ObjectSetText(ObjName, Instr, 12, "Arial", Clr);

  ObjName="L_"+WindowNumber+"_"+Num+"_2";
  if (ObjectFind(ObjName)==-1)
  {
   ObjectCreate(ObjName, OBJ_LABEL, WindowNumber, 0, 0);
  }
  ObjectSet(ObjName, OBJPROP_XDISTANCE, 20+(Num-1)*150); 
  ObjectSet(ObjName, OBJPROP_YDISTANCE, 30); 
  ObjectSetText(ObjName, StringTF(TF), 12, "Arial", Clr);

  ObjName="L_"+WindowNumber+"_"+Num+"_3";
  if (ObjectFind(ObjName)==-1)
  {
   ObjectCreate(ObjName, OBJ_LABEL, WindowNumber, 0, 0);
  }
  ObjectSet(ObjName, OBJPROP_XDISTANCE, 20+(Num-1)*150); 
  ObjectSet(ObjName, OBJPROP_YDISTANCE, 50); 
  ObjectSetText(ObjName, "ATR "+DoubleToStr(ATR, Digits), 12, "Arial", Clr);

  ObjName="L_"+WindowNumber+"_"+Num+"_4";
  if (ObjectFind(ObjName)==-1)
  {
   ObjectCreate(ObjName, OBJ_LABEL, WindowNumber, 0, 0);
  }
  ObjectSet(ObjName, OBJPROP_XDISTANCE, 20+(Num-1)*150); 
  ObjectSet(ObjName, OBJPROP_YDISTANCE, 70); 
  ObjectSetText(ObjName, D, 12, "Wingdings", Clr);

 }
 
 return;
}

int start()
{
 DrawATR(9, TF1);
 DrawATR(8, TF2);
 DrawATR(7, TF3);
 DrawATR(6, TF4);
 DrawATR(5, TF5);
 DrawATR(4, TF6);
 DrawATR(3, TF7);
 DrawATR(2, TF8);
 DrawATR(1, TF9);
 
 return(0);
}